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16  Abstract 

Described  in  this  report  are  two  computer  programs  for  predicting  the  transient  large- 
deflection  elastic-viscoplastic  responses  of  thin  single-layer  mitially-flat  unstiffened  or 
integrally-stiffened  Kirchhoff-Love  ductile-metal  panels.  The  PLATE  1 program  pertains  to 
structural  responses  produced  by  prescribed  externally-applied  transient  loading  or  prescribed 
initial-velocity  distributions.  The  CIVM-PLATE  1 program  concerns  structural  responses  produced 
by  impact  of  an  idealized  nondeformable  fragment.  Finite  elements  are  used  to  represent  the 
structure  m both  programs.  Strain-hardening  and  strain-rate  effects  of  initially- isotropic 
material  are  taken  into  account. 

An  appropriate  analysis  involving  impulse-momentum  relations  is  used  to  predict  the  after- 
impact velocity  components  of  the  fragment  and  of  the  impact-affected  region  of  the  panel  from 
each  impact;  the  procedure  is  termed  the  collision- imparted  velocity  method  (CIVM) . Local 
fragment-panel  impact  may  be  treated  as  perfectly-elastic,  perfectly-plastic,  or  intermediate 
between  these  two  extremes.  Also,  the  effects  of  friction  between  ;the  fragment  and  the  impacted 
panel  are  taken  into  accout.  The  imparted-velocity  information  is  used  m conjunction  with  a 
finite-element  structural  response  code  to  predict  the  resulting  transient  structural  response 
in  small  increments  At  m time.  Similarly,  the  equations  of  motion  for  the  fragment  are  solved 
in  small  steps  m time. 

Illustrative  examples  for  both  PLATE  1 and  CIVM-PLATE  1 are  described,  input  data  are 
shown,  and  example  solution  data  are  given  to  enable  the  user  to  check  the  adaptation  of  these 
computer  programs  to  his  particular  computing  facilities. 
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SUMMARY 


Described  in  this  report  are  two  computer  programs  for  predicting  the 
transient  large-deflection  elastic-viscoplastic  responses  of  thin  single-layer 
mitially-flat  unstiffened  or  integrally-stiffened  Kirchhoff-Love  ductile- 
metal  panels.  The  PLATE  1 program  pertains  to  structural  responses  produced 
by  prescribed  externally- applied  transient  loading  or  prescribed  initial- 
velocity  distributions.  The  CIVM-PLATE  1 program  concerns  structural  responses 
produced  by  impact  of  an  idealized  nondeformable  fragment.  Finite  elements 
are  used  to  represent  the  structure  m both  programs.  Strain-hardening  and 
strain-rate  effects  of  mitially-isotropic  material  are  taken  into  account. 

An  approximate  analysis  involving  impulse-momentum  relations  is  used 
to  predict  the  after-impact  velocity  components  of  the  fragment  and  of  the 
impact-affected  region  of  the  panel  from  each  impact;  the  procedure  is  termed 
the  collision- imparted  velocity  method  (CIVM) . Local  fragment-panel  impact 
may  be  treated  as  perfectly-elastic,  perfectly-plastic,  or  intermediate 
between  these  two  extremes.  Also,  the  effects  of  friction  between  the 
fragment  and  the  impacted  panel  are  taken  into  account.  The  imparted-velocity 
information  is  used  in  conjunction  with  a finite- element  structural  response 
code  to  predict  the  resulting  transient  structural  response  in  small  incre- 
ments At  in  time.  Similarly,  the  equations  of  motion  for  the  fragment  are 
solved  in  small  steps  m time. 

Illustrative  examples  for  both  PLATE  1 and  CIVM-PLATE  1 are  described, 
input  data  are  shown,  and  example  solution  data  are  given  to  enable  the  user 
to  check  the  adaptation  of  these  computer  programs  to  his  particular 
computing  facilities. 


SECTION  1 


INTRODUCTION 

The  PLATE  and  CIVM-PLATE  computer  programs  are  the  first  of  a proposed 
series  of  codes  which  are  intended  to  be  made  available  to  the  aircraft  in- 
dustry for  possible  use  m analyzing  three-dimensional  (3-d)  structural  response 
problems  such  as  initially-flat  plates  subjected  to  prescribed  initial  velocity 
distributions  and/or  external  forcing  functions,  or  subjected  to  impact  by  an 
idealized  rigid  fragment.  In  particular,  the  CIVM-PLATE  code  may  be  used  for 
the  analysis  of  containment/deflection  structures  intended  to  cope  with  engine 
rotor-burst  fragments.  This  computer  program  may  also  be  applicable  to  crash- 
worthiness  problems  which  are  of  interest  to  the  automobile  and  nuclear  power 
plant  industries. 

The  computer  programs,  written  m FORTRAN  IV,  permit  one  to  analyze  the 
large,  three-dimensional,  elastic-plastic  responses  of  longeron-stiffened  or 
unstiffened  mitially-flat  single-layer  thin  plates.  In  actuality,  elastic- 
viscoplastic  behavior  is  treated  m this  report  since  strain-rate  effects  are 
taken  into  account;  hereafter  in  this  report,  this  behavior  is  termed  simply 
elastic-plastic  for  convenience.  The  PLATE  code  is  designed  to  predict  the 
response  of  plates  subjected  to  prescribed  initial  velocity  distributions  and/or 
prescribed  externally-applied  forces.  The  CIVM-PLATE  code  is  designed  to  pre- 
dict the  response  of  plates  subjected  to  impact  by  a single  idealized  rigid 
spherical  fragment.  The  plate  may  be  subjected  to  a variety  of  restraint 
conditions,  and  linear-elastic  line  restoring  springs  may  be  specified.  The 
plate  element  used  in  these  programs  is  restricted  to  a rectangular  planform; 
hence,  the  geometrical-  shape  of  the  plate  is  restricted  to  a planform  which  can 
be  modeled  by  rectangular  elements.  The  material  behavior  may  be  elastic 
strain- hardening,  and/or  strain-rate  sensitive. 

The  assumed-displacement  finite-element  model  is  used  to  obtain  the 
spatial  properties  of  the  plate,  and  the  temporal  solution  is  accomplished  by 
using  the  Houbolt  finite-difference  operator.  For  predicting  the  transient  re- 
sponses of  plates  to  rigid- fragment  impact  (CIVM-PLATE  code) , energy  and  momen- 
tum considerations  are  employed  in  an  approximate  analysis  to  predict  the  col- 
lision-induced velocities  which  are  imparted  to  the  fragment  and  to  the  affected 
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plate  segments.  The  presence  of  fragment/plate  surface  friction  is  taken  into 
account.  The  collision- imparted-velocity  method  (CIVM)  was  originally  de- 
veloped for  use  in  the  CIVM-JET  series  of  codes  [1/  2,  3,  4]*  for  the  analysis 
of  2-d  ring  structures  subjected  to  fragment  impact;  the  CIVM  approach  has  been 
extended  to  3-d  impact  analyses  for  the  CIVM- PLATE  code.  The  pertinent  analyti- 
cal development  and  the  solution  methods  upon  which  the  PLATE  and  CIVM-PLATE 
codes**  are  based  are  presented  m Appendices  A and  B,  respectively. 

Section  2 contains  a general  description  of  the  organization  and  capa- 
bilities of  the  PLATE  and  CIVM-PLATE  codes  including  (1)  plate  geometry,  sup- 
ports, elastic  restraints,  and  material  properties,  (2)  external  loading  options 
and  solution  procedure  for  the  PLATE  code,  and  (3)  fragment/plate  collision  in- 
teraction analysis  and  solution  procedure  used  for  the  CIVM-PLATE  code. 

Section  3 contains  a description  of  the  mam  program  and  subprograms  associated 
with  the  PLATE  and  CIVM-PLATE  codes,  and  a description  of  the  flow/usage  of  these 
subprograms.  The  input  data,  user-prepared  subprograms , and  output  information 
for  the  PLATE  and  CIVM-PLATE  codes  are  presented  in  Sections  4 and  5,  respectively. 
A complete  FORTRAN  IV  listing  of  the  two  codes  is  given  in  Section  6.  Illustra- 
tive examples,  including  input  data  and  the  resulting  solution  data,  using  the 
PLATE  and  CIVM-PLATE  codes  are  given  m Sections  7 and  8,  respectively.  Finally, 
Appendices  A and  B summarize  the  equations  on  which  these  programs  are  based. 


Numbers  in  square  brackets  [ ] denote  references  included  in  the  reference 
list. 

Throughout  this  report,  the  terms  PLATE  and  CIVM-PLATE  are  used  for 
simplicity  rather  than  their  correct  names  PLATE  1 and  CIVM-PLATE  1;  these 
codes  accommodate  large  deflections  and  elastic-inelastic  material 
behavior  but  various  implementation  features  restrict  their  applicabilities 
to  small  strain.  Later,  finite-strain  versions  called  PLATE  2 and  CIVM-PLATE  2 
will  be  prepared  and  released. 
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SECTION  2 


GENERAL  DESCRIPTION  OF  THE  PLATE  AND 
CIVM-PLATE  PROGRAMS 

2.1  Plate  Geometry,  Supports,  Elastic  Restraints, 
and  Material  Properties 

The  present  subsection  is  devoted  to  a general  description  of  the  capa- 
bilities of  the  PLATE  and  the  CIVM-PLATE  program  including  (1)  geometry,  (2) 
supports,  (3)  elastic  restraints,  and  (4)  material  properties.  It  is  important 
to  note  that  the  capabilities  of  the  PLATE  and  CIVM-PLATE  programs  are  identi- 
cal with  respect  to  these  categories.  Thus,  the  present  discussion  will  be 
restricted  to  the  PLATE  code;  any  differences  between  the  two  codes  will  be 
noted.  Discussions  of  those  features  of  PLATE  and  CIVM-PLATE  which  differ 
(i.e.,  solution  procedure  and  external  loading)  are  given  m Subsections  2.2 
through  2.5. 

The  PLATE  computer  code  treats  single  layer  unstiffened  or  longeron- 
stiffened  initially-flat  plates  of  uniform  thickness.  The  Kirchhoff  hypothesis 
is  employed;  that  is  transverse  shear  deformation  is  neglected.  Thus,  the 
total  thickness  of  the  plate  should  be  small  compared  with  the  spanwise  di- 
mensions of  the  plate.  A global  XYZ  rectangular  Cartesian  coordinate  system 

AAA 

with  associated  unit  vectors  i,  j,  k is  employed.  The  initially-flat  plate  is 
assumed  to  lie  in  a plane  which  is  parallel  to  the  global  XY  plane.  The  unit 

/v 

outward-normal  vector  of  the  plate,  n,  is  defined  by  the  right-hand  rule  as 

A A A 

n = lxg;  the  unit-outward  normal  direction  of  the  plate  is  thus  m the  direction 
of  the  positive  z axis,  and  is  automatically  chosen  once  the  directions  of  the 

A A 

unit  vectors  i and  j (in  the  global  X and  Y directions,  respectively)  have  been 

A A 

chosen.  The  choice  of  the  positive  direction  for  the  unit  vector  i and  j also 
serves  to  define  the  "inner"  and  "outer"  surfaces  of  the  plate;  the  positive 
outward-normal  of  the  plate  is  directed  toward  the  "outer"  surface  of  the  plate. 
For  analyses  using  the  CIVM-PLATE  code,  the  positive  outward  normal  direction 
must  be  chosen  such  that  fragment  impact  can  occur  only  on  the  "inner"  surface 
of  the  plate  (see  Fig.  1). 


3 


In  the  spatial  finite-element  analysis,  the  plate  is  represented  by  an 
assemblage  of  discrete  (or  finite)  elements  compatibly  joined  at  the  nodal 
stations.  For  the  present  codes,  the  plate  elements  are  restricted  to  rectangu- 
lar planform  and  uniform  thickness;  the  geometry  and  nomenclature  of  the  present 
four-noded  rectangular  plate  elements  are  shown  in  Fig.  2,  where  a local  (element) 
xyz  coordinate  system  has  been  adopted  such  that  the  sides  of  the  element  are 
parallel  to  the  x or  y axis,  the  origin  of  the  local  xyz  system  (z=0)  is  located 
at  the  geometric  midsurface  of  the  plate.  The  plate  structure  may  contain  void 
regions  (cutouts) , but  m all  cases  (whether  or  not  cutouts  are  present)  the 
plate  structure  must  be  modeled  by  a series  of  rectangular  elements.  This  re- 
striction limits  the  types  of  plate  structures  which  can  be  analyzed  using  the 
present  programs;  in  subsequent  versions  of  the  present  codes,  this  restriction 
could  be  relaxed  by  adopting  a more  general  planform  for  the  basic  plate  element. 

The  behavior  of  each  finite  element  is  characterized  by  a knowledge  of 

2 

the  six  generalized  displacements:  u,v,w,  8 = 3w/3x,  ip  = 3w/3y,  and  X ~ % w/3x3y 
at  each  of  its  four  (corner)  nodal  stations  where  u,  v,  and  w are  the  transla- 
tional displacements  of  the  reference  surface  in  the  x,  y,  and  z directions, 
respectively.  The  displacement  behavior  within  each  finite-element  is  repre- 
sented by  a bilinear  interpolation  m x and  y for  the  mplane  displacements  u 
and  v and  a bicubic  interpolation  m x and  y for  the  transverse  displacement  w, 
anchored  to  the  generalized  nodal  displacements  at  each  node  (see  Appendix  A 
for  further  details) . The  geometry  of  each  finite-element  is  completely  de- 
fined by  the  side  length  dimensions  and  the  thickness  of  the  element,  which  is 
assumed  to  be  constant. 

The  present  analysis  may  be  applied  to  integrally-stiffened  flat  plates. 
The  stiffeners  must  be  oriented  in  the  global  X and/or  Y direction,  are  assumed 
to  be  of  constant  cross  section  over  each  element,  and  must  begin  and  terminate 
only  at  an  element  boundary  (i.e.,  each  stiffener  must  completely  span  one  or 
more  rectangular  plate  element  in  the  finite-element  mesh) . The  geometry  and 
nomenclature  for  a typical  stiffened  plate  element  are  given  m Fig.  3.  In 
this  illustration,  the  stiffener  is  located  along  the  inner  surface  of  the  plate 
element  and  is  oriented  m the  Y direction:  however,  note  that  stiffeners  may 
also  be  located  on  the  outer  surface  of  the  plate  and  may  also  be  oriented  in  the 
X direction. 
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The  formulation  of  the  spatial  properties  for  the  X and/or  Y direction 
stiffeners  follows  the  formulation  used  m Ref.  5 in  which  each  stiffener  is 
treated  as  a discrete  structural  component,  with  behavior  similar  to  that  of  a 
beam  element.  The  following  assumptions  have  been  made  concerning  the  geometry 
and  deformation  behavior  of  the  stiffeners: 

(1)  In  general,  the  stiffeners  may  be  of  material  different  from 
that  of  the  plate  to  which  it  is  attached;  however,  perfect 
bonding  is  assumed  at  the  stiff ener /plate  interface.  Thus, 
displacements  are  assumed  to  be  continuous  across  the  inter- 
faces. 

(2)  The  stiffeners  are  characterized  as  being  thin;  that  is,  a 
typical  cross-sectional  dimension  of  the  stiffener  is 

small  compared  with  a typical  spanwise  dimension  of  the  plate, 
and  exhibit  Bernoulli-Euler  behavior. 

(3)  The  contributions  of  twisting  strain  of  the  stiffener  about 
its  axial  direction  and  bending  strain  of  the  stiffener  m the 
plane  parallel  to  the  plate  midsurface  have  been  neglected. 

Only  the  normal  strain  of  the  stiffener  m its  axial  direction 
is  taken  into  account. 

Within  this  framework  and  by  considering  the  compatibility  of  displacements  at 
the  stiffener/plate  interface,  the  displacement  behavior  of  the  stiffener  can 
be  related  to  the  generalized  degrees  of  freedom  at  the  nodes  of  the  plate  ele- 
ment to  which  it  is  attached  by  employing  the  displacement  interpolation  assump- 
tion of  the  plate.  The  spatial  properties  of  the  stiffener  are  thus  defined  by 
a knowledge  of  the  material  properties  and  cross-sectional  dimensions  of  the 
stiffener,  and  the  relative  location  and  orientation  of  the  stiffener  on  the 
plate  element.  The  reader  is  invited  to  consult  Appendix  A for  further  details 
on  the  formulation  of  stiffener  spatial  properties. 

Two  types  of  support  conditions  for  the  structure  are  included  m the 
present  programs:  prescribed  nodal  displacement  conditions  and  line  elastic 
restraints.  The  following  six  prescribed  displacement  boundary  condition 
options  have  been  included  (see  Fig.  4a) : 


5 


Constrained  Degrees  of  Freedom 


Boundary  Condition 

Free 

Symmetry 

Ideally  Clamped 

Pinned-Fixed 

Pinned,  Free-Sliding 
z-direction 

Pinned,  Free-Sliding 

(inplane)  normal 


along  side  Y = constant 
None 
v=ip=x=0 
u=v=w=9  ='jJ=X=0 
u=v=w=0=x=O 

u=v=0=x=O 

u=w=9=x=0 


along  side  X = constant 
none 
u=0=x=O 
u=v=w=  Q=ip=x~0 
u=v=rw=tj;=x=  0 

u=v=ip=x=0 

v=w=>jj=x=0 


Elastic  restraints  are  provided  in  the  form  of  linear  elastic  line  translation 
and  torsional  restoring  springs  which  can  be  specified  along  any  element  boundary 
or  mterelement  boundary.  Five  spring  constants  (three  translational  and  two 
rotational)  may  be  specified  for  each  element  boundary  on  which  line  restoring 
springs  are  present  (see  Fig.  4b) . A global  effective  stiffness  matrix  sup- 
plied by  the  linear-elastic  line  restoring  springs  is  evaluated,  and  derived 
from  the  virtual-work  statement. 

For  the  present  programs,  the  plate  structure  and  the  stiffeners  can  be 
of  different  elastic,  or  elastic,  perfectly-plastic,  or  elastic-stram- 
hardenmg  behavior.  A maximum  of  five  different  material  types  may  be  specified 
by  the  user  to  define  the  behavior  of  the  stiffeners  if  different  from  that  of 
the  plate.  The  strain-rate  effects  of  each  material  can  also  be  taken  into 
account.  In  the  present  analysis,  the  strain-hardening  material  is  accounted 

for  by  using  the  "mechanical  sublayer  model"  [6,7];*  see  Figs.  A.la-A.lc.  A 
useful  feature  of  this  model  is  its  accounting  for  nonlinear  strain  hardening, 
anisotropic  strain  hardening,  the  formation  of  corners  on  the  yield  surface, 

and  the  Bauschinger  effect  — all  of  these  are  features  that  ductile  metals 
exhibit.  No  other  material  model  appears  to  represent  these  features  as 
efficiently  and  faithfully  as  does  the  mechanical-sublayer  model.  Strain-rate 
effects  are  included  as  described  in  Subsection  A. 5. 


2.2  External  Loading  Options  m the  PLATE  Program 

The  PLATE  computer  program  is  designed  to  predict  the  large,  elastic 
plastic  deformation  responses  of  stiffened  or  unstiffened  flat  plates  subjected 
* 

Also,  see  Subsections  3.3.3  and  3.3.4  of  Ref.  14,  as  well  as  Refs.  5 and  11. 
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to  either  a prescribed  initial  velocity  distribution  or  a prescribed  externally 
applied,  time-varying  force  distribution.  In  the  present  finite-element  scheme 
initial  velocity  distributions  are  input  as  a vector  of  nodal  velocities,  at 
time  t=0,  corresponding  to  the  generalized  nodal  degrees  of  freedom  in  the 
finite- element  mesh.  Prescribed  externally-applied  force  distributions  are  in- 
put as  a vector  of  nodal  forces  corresponding  to  the  generalized  nodal  degrees 
of  freedom  in  the  finite-element  mesh.  In  general,  the  spatial  distribution 
of  these  forces  can  vary  with  time  so  that  this  vector  of  nodal  forces  must  be 
redefined  at  each  step  of  the  finite-difference  temporal  solution. 

Much  of  the  user  interaction  required  when  using  the  PLATE  code  is  m 
the  form  of  preparation  of  input  data  cards;  wherever  possible,  internal  logic 
has  been  incorporated  into  the  PLATE  code  to  minimize  the  amount  of  user- 
supplied  data.  However,  for  the  present  plate  analysis,  it  is  impractical  and 
computationally  inefficient  to  attempt  to  provide  the  user  with  an  all-inclu- 
sive set  of  initial  velocity  distribution  options  and  prescribed  force  distri- 
butions (m  both  space  and  time) . As  a result,  two  computer  subroutines 
(INCOND  and  EXTL)  have  been  isolated  as  user- interactive  subroutines  for  the 
generation  of  the  vector  of  initial  nodal  generalized  velocities  and  the  vector 
of  prescribed  externally-applied  nodal  forces  at  each  time  step.  The  user  will 
be  required  to  write  (m  FORTRAN  IV)  the  internal  logic  for  these  subroutines 
corresponding  to  the  particular  problem  being  considered.  Clearly,  some  basic 
knowledge  of  computer  programming  and  the  finite-element  method  is  required  to 
generate  these  computer  subroutines.  Guidelines  for  preparation  of  these  sub- 
routines, including  simple  example  subroutines,  are  given  m Subsection  4.6. 

2.3  Solution  Procedure  for  the  PLATE  Program 

The  spatial  finite-element  approach  is  utilized  m conjunction  with  the 
Principle  of  Virtual  Work  and  D'Alembert's  Principle  to  obtain  the  equations  of 
motion  of  the  plate  structure  which  is  permitted  to  undergo  large,  elastic- 
plastic,  transient  deformation.  In  the  interest  of  conciseness  and  convenience 
in  this  report,  the  user  is  invited  to  consult  Ref.  1 and  Appendix  A for  a de- 
tailed derivation  and  discussion  of  the  equation  of  motion  utilized  m the 
PLATE  code.  For  present  purposes,  it  suffices  to  note  that  the  governing 


7 


equations  of  motion  for  the  complete  assembled  discretized  structure  correspond 
to  the  conventional  formulation  of  Ref.  1 and  are  written  in  the  following 
form: 

[M]  {q*}  + [K]  {q*}  + [K  ] {q*}  = {f}  + {p151*}  (2.1) 

s 

where 

{q*}  and  {q*}  are  the  global  generalized  displacement  vector 
and  acceleration  vector,  respectively. 

[M]  is  the  mass  matrix  of  the  assembled  structure. 

[K]  is  the  linear  elastic  stiffness  matrix  of  the 

assembled  structure. 

[K  ] is  the  global  effective  stiffness  matrix 

s 

supplied  by  the  linear-elastic  line 
restoring  springs. 

{F}  is  the  global  generalized  load  vector  corres- 

ponding to  prescribed  externally-applied 
forces. 

{F^}  represent  equivalent  "generalized  loads" 

arising  from  both  large  deflections  and 
plastic  strains. 

The  matrix  equations  of  motion  are  solved  by  employing  the  Houbolt  finite- 
difference  operator.  In  the  following,  the  general  solution  process  is  de- 
scribed briefly. 

First,  information  is  provided  to  define  the  geometry  of  the  plate  and 
the  location  and  geometry  of  the  stiffeners  (if  any) . Material  constants  for 
the  plate  and  stiffeners  are  defined,  and  information  related  to  the  struc- 
tural discretization  is  specified.  Also  defined  are  the  time-step  size,  At, 
the  location  and  elastic  constants  of  the  line  restoring  springs,  and  the 
prescribed  displacement  boundary  conditions.  Next,  the  mass  matrix  and 
stiffness  matrix  for  the  entire  structure  are  evaluated  by  assembling  the  ele- 
ment mass  and  stiffness  matrices.  It  should  be  noted  that  the  PLATE  program 
provides  the  user  with  the  option  of  selecting  either  a lumped  (diagonal 
matrix)  mass  modeling  or  a consistent  (fully  populated  matrix)  mass  modeling. 
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Gaussian  quadrature  is  used  to  evaluate  these  element  matrices;  the  quadrature* 
rule  chosen  yields  an  exact  integration  of  these  element  matrices.  Following 
this  step,  the  global  effective  stiffness  matrix  supplied  by  the  linear-elastic 
line  restoring  springs  is  evaluated.  Then  the  proper  prescribed  displacement 
conditions  are  imposed  on  these  assembled  mass  and  stiffness  matrices. 

Before  beginning  the  timewise, solution  of  the  equations  of  motion,  the 

generalized  nodal  velocity  vector,  {q*}  , at  time  t and  generalized  nodal 

o o 

force  vector  corresponding  to  prescribed  externally-applied  forces  {f}^,  at 
time  t^,  must  be  specified.  From  this  information,  the  generalized  nodal  dis- 
placements and  displacement  increments  are  calculated  for  the  first  time  incre- 
ment At  (i.e.,  from  time  tQ  to  time  t } from  Eq.  2.1  written  m the  finite- 
difference  form  corresponding  to  the  Houbolt  operator.  From  a knowledge  of  the 
displacements,  displacement  increments,  and  current  states  of  stress  and  strain, 
one  can  determine  the  strain  increments,  stress  increments,  the  stresses  and/or 
the  plastic  strains  and  the  plastic  strain  increments  through  the  use  of  the 
pertinent  elastic-plastic  stress-strain  relations  including  the  plastic  yield 
condition  and  flow  rule.  From  this  information,  one  can  calculate  the  equiva- 
lent generalized  load  vector  arising  from  large  deflections  and  plastic  strains. 
Next,  the  generalized  nodal  load  vector  {f}^  corresponding  to  prescribed  ex- 
ternally-applied forces  at  time  t^  is  formed.  Then,  the  proper  recurrence 
equations,  which  is  the  finite-difference  representation  of  the  equations  of 
motion,  are  solved  to  obtain  the  generalized  displacements  and  displacement 
increments  of  the  next  time  increment  (i.e.,  at  time  t^  = t + At).  The  pro- 
cess then  proceeds  cyclically  for  as  many  time  steps  as  desired.  For  present 
purposes,  the  above  general  description  is  considered  to  be  adequate;  one  may 
consult  Appendix  A for  a more  detailed  discussion  of  the  solution  and  evalua- 
tion process. 

In  the  PLATE  code,  the  user  is  required  to  specify  the  time-step  size. 

At,  to  be  used  m the  temporal  solution  of  the  equations  of  motion  of  the 
structure.  The  proper  choice  of  the  time-step  size.  At,  requires  some  know- 
ledge of  the  characteristics  of  the  Houbolt  operator.  For  linear  structural 
analysis,  the  Houbolt  operator  is  unconditionally  stable;  that  is,  no  numerical 
instabilities  will  occur  regardless  of  the  value  of  At.  However,  as  the  time 

"^Numerical  integration  (quadrature)  is  employed  for  these  evaluations  since  it 
is  much  more  efficient  and  less  likely  to  produce  errors  than  if  an  analyst 
were  to  carry  out  and  program  (lengthy)  expressions  obtained  by  analytical 
evaluations . 
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step  size  is  increased,  the  solution  will  tend  to  diverge  from  the  "exact" 
solution  because  of  the  presence  of  false  damping  and  of  frequency  distortion 
contributed  by  the  Houbolt  operator;  this  is  a problem  of  "convergence". 

Usually,  it  is  recommended  that  successive  runs  of  the  same  problem  be  made, 
each  with  a time-step  size  half  that  of  the  previous  run  until  the  computed 
results  of  two  successive  runs  are  sufficiently  close  to  each  other  (i.e., 
to  represent  a converged  solution) . For  nonlinear  structure  analysis,  where 
the  effects  of  nonlmeanties  are  included  as  equivalent  loads  (and  these 

equivalent  loads  are  obtained  by  extrapolation  (see  Appendix  A) , the 

Houbolt  operator  becomes  conditionally  stable  [8,9];  that  is,  numerical  in- 
stability will  occur  if  the  time-step  size,  At,  is  too  large.  At  present,  no 
rigorous  rules  exist  for  determining  the  maximum  allowable  At  for  nonlinear 
analysis  using  the  Houbolt  operator.  Thus,  some  numerical  experimentation 
may  be  necessary  in  order  to  determine  an  appropriate  value  for  At. 

To  assist  the  user  m the  selection  of  a value  for  At,  a "reference" 

time-step  size  is  calculated  and  output  by  the  PLATE  computer  program.  This 

. CD 

reference  time-step  size,  At  , is  equal  to  the  maximum  time-step  size  which 

max 

could  be  used  if_  the  Central  Difference  timewise  operator  were  employed,  and 

CD 

is  calculated  as  At  = 0.8  (2/io  ).  In  this  expression,  (jJ  is  the  largest 

max  max  - - max 

natural  frequency  contained  in  the  (linear)  mathematical  model  of  the  structure, 
and  At  <_  2/w^^  is  the  stability  criterion  (for  the  Central  Difference  operator) 
of  a corresponding  linear  dynamic  system;  the  factor  0.8  is  introduced,  as 
in  Refs.  1 through  3,  to  account  for  large-deflection  effects.  In  the  PLATE 
program,  the  value  of  umax  is  obtained  by  an  iteration  process  applied  to+ 

0)2  [M]  {q*}  = [K [ {q*}  (2.2) 

a CD 

Having  obtained  the  value  of  At  , the  actual  time-step  size  to  be  used  m 

max  „ 

CD  CD 

the  PLATE  program  can  be  taken  as  some  multiple  of  At  (i.e..  At  = f At  ). 

max  max 

Again,  no  firm  rules  exist  for  the  selection  of  the  factor  f,  but  results 
presented  m Ref.  1 suggest  that  values  of  up  to  f = 6 will  yield  converged 
and  stable  solutions.  These  results  are  by  no  means  conclusive,  but 
do  provide  a reasonable  guideline  for  the  initial  choice  of  At.  To  ensure 


The  inverse  power  method  is  employed  to  find  U) 

max 
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convergence  and/or  to  eliminate  instabilities,  subsequent  computer  runs  can 
be  made  using  a value  of  At  half  that  of  the  previous  run. 


2.4  Fragment/Plate  Collision  Interaction  Analysis 
for  the  C1VM-PLATE  Program 

The  CIVM-PLATE  computer  program  is  designed  to  predict  the  large-deflec 
tion,  elastic-plastic,  transient  responses  of  initially-flat  stiffened  or  un- 
stiffened  plates  subjected  to  impact  by  a single  fragment.  For  analyzing  the 
collision- induced  transient  responses  of  containment  and/or  deflector  plates 
and  fragment  motions,  the  fragment  is  idealized  as  a non-deformable  fragment 
of  spherical  configuration  (Fig.  5) . The  modeled-fragment  radius,  mass,  mass 
moment  of  inertia,  and  velocity  components  are  specified  by  the  user  to  cor- 
respond with  those  of  the  actual  fragment. 

The  process  called  the  collision- imparted  velocity  method  (CIVM) , previ 
ously  developed  for  the  2-d  ring/fragment  collision  interaction  analysis  of 
Refs.  1 through  4,  has  been  extended  for  the  present  3-d  collision-interaction 
analysis.  In  this  procedure,  energy  and  momentum  considerations  are  employed 
to  predict  the  collision- induced  velocities  which  are  imparted  to  the  fragment 
and  to  the  impact-affected  zone  of  the  plate.  Also,  the  following  simplifying 
assumptions  are  invoked: 

(1)  The  collision  process  is  instantaneous  and  involves  only  the 
fragment  and  the  impact-affected  zone  of  the  plate.  The  impact- 
affected  zone  is  defined  as  the  fraction  of  the  plate  that  re- 
sponds to  fragment  impact  instantaneously  with  momentum  changes. 
The  size  of  the  impact  affected  zone  is  estimated  from  the  speed 
of  a longitudinal  elastic  wave  in  the  material  and  the  computa- 
tional time  increment  size  At,  or  from  alternate  means  (see 
Appendix  B) . 

(2)  In  an  overall  sense,  the  fragment  is  treated  as  being  rigid, 
but  at  the  "immediate  contact  region"  between  the  fragment 
and  the  impacted  plate  the  collision  is  regarded  as  acting  in 
a perfectly-elastic  (e  = 1),  perfectly- inelastic  (e  = 0) , or 
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an  intermediate  fashion  (0<e<l),  where  e represents  the 
coefficient  of  restitution. 

(3)  The  colliding  surfaces  of  both  the  fragment  and  the  plate 
may  be  either  perfectly  smooth  (U  = 0)  or  may  be  "rough" 

(U  / 0) , where  u denotes  the  coefficient  of  sliding 
friction.  Hence,  respectively,  force  and/or  momentum 

(or  velocities)  are  transmitted  only  in  the  normal-to- 
surface  direction  or  m both  the  normal  and  tangential 
directions. 

(4)  Although  fragment/plate  collision  will,  in  general,  occur 
during  a time  step.  At  (rather  than  at  the  beginning  or 
end  of  a time  cycle) , the  impact- induced  velocity  changes 
of  the  fragment  and  the  impact-affected  zone  of  the  plate 
are  imposed  at  the  beginning  of  the  cycle  m which  the 
collision  occurs.  This  assumption  eliminates  the  need 

to  extrapolate  displacement  and  velocity  data  between 
time  steps. 

(5)  For  the  purpose  of  calculating  the  impact- induced  velocity 
changes  of  the  fragment  and  the  impact- affected  zone  of 
the  plate,  the  contact  forces  are  the  only  ones  considered 
to  act  on  the  impact-affected  zone  of  the  plate  and  in  an 
anti-parallel  fashion  on  the  fragment.  Any  internal  forces 
which  the  plate  segments  adjacent  to  the  impact-affected 
zone  may  exert  on  that  zone  as  a result  of  this  instantane- 
ous collision  are  considered  to  be  negligible  because  this 
impact  duration  is  so  short  as  to  preclude  their  "effective 
development".  However,  these  internal  forces  are  included 
in  the  calculation  of  the  post- impact  displacement  of  the 
plate. 

(6)  To  avoid  unduly  complicating  the  analysis  and  to  maintain 
program  efficiency,  each  rectangular  plate  element  is 
divided  into  two  triangular  plate  elements  in  the 
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derivation  of  the  impact  inspections  and  equations;  the 
global  coordinates  of  the  three  corners  of  the  triangle 
define  the  plane  m which  collision  may  occur  (see  Fig.  6) . 
However,  for  transient  response  predictions,  the  plate  con- 
tinues to  be  modeled  as  a series  of  rectangular  elements, 
and  general  3-d  plate  deformation  behavior  is  assumed. 

(7)  For  the  analysis  of  stiffened  plates,  only  the  geometry 
of  the  plate  elements  is  considered  m the  impact  in- 
spection procedure.  If  impact  occurs  at  a location  on 
the  plate  occupied  by  a stiffener,  the  impact  is  still 
considered  to  occur  at  the  inner  surface  of  the  plate. 

However,  stiffener  mass  contributions  have  been  included 
in  the  calculation  of  the  post- impact  velocity  changes 
of  the  fragment  and  impact-affected  zone  of  the  plate. 

Thus,  the  subsequent  motion  of  the  plate  and  fragment 

is  affected  by  the  presence  of  stiffeners. 

(8)  To  minimize  the  special  options  in  impact  inspection, 
all  impacts  must  occur  at  the  inner  surface  of  the  plate. 

An  information  flow  schematic  of  the  CIVM  procedure  is  shown  in  Fig.  7. 
Briefly,  the  analysis  procedure  indicated  in  Fig.  7 consists  of  the  following 
principal  steps: 

1.  Motions  and  Positions  of  Bodies 

The  motions  of  the  fragment  and  of  the  containment  and/or  deflector 
plate  are  predicted  and  the  (tentative)  region  of  space  occupied  by  each  body 
at  the  end  of  a given  time  cycle  is  determined. 

2.  Collision  Inspection 

Next,  an  inspection  is  performed  to  determine  whether  a collision  has 
occurred  during  the  small  increment  (At)  m time  from  the  last  instant  in 
time  at  which  the  body  locations  were  known  (beginning  of  the  present  time 
cycle)  to  the  present  instant  m time  at  which  the  body- location  data  are 
sought.  A collision  is  determined  to  have  occurred  if  the  (tentative)  regions 
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of  space  occupied  by  the  plate  and  the  fragment  overlap.  If  a collision  has 
not  occurred  during  this  At,  one  follows  the  motion  of  each  body  for  another 
At,  etc.  However,  if  a collision  has  occurred,  one  proceeds  to  carry  out  a 
collision-interaction  calculation. 

3 . Collision-Interaction  Calculation 

In  this  calculation  energy  and  momentum  conservation  relations  are  em- 
ployed in  an  approximate  analysis  to  compute  the  collision-induced  changes  in 

(a)  the  velocities  v,  , v , v_  (translational)  and  w_  , U)_  , (rotation- 

fx  fy  fz  fx  fy  fz 

al)  of  the  fragment  and  (b)  the  nodal  velocities  of  the  plate  impact-affected 
elements.  These  velocity  changes  are  imposed  at  the  beginning  of  the 
present  time  cycle  m which  impact  was  determined  to  have  occurred.  Steps  1 
and  2 are  then  repeated  for  the  present  time  cycle  until  no  plate/fragment 
overlap  is  found  at  the  end  of  the  present  time  cycle;  the  resulting  plate 
and  fragment  locations  are  then  the  corrected-for-impact  locations. 

One  then  returns  to  step  1,  and  the  process  is  repeated  for  as  many 
time  increments  as  desired.  The  details  of  this  analysis  procedure  as  well  as 
various  considerations  and  simplifying  assumptions  employed  are  discussed 
further  in  Appendix  B. 

2 . 5 Solution  Procedure  for  the  CIVM-PLATE  Program 

The  global  solution  procedure  employed  in  the  CIVM-PLATE  computer  pro- 
gram is  essentially  the  same  as  that  employed  m the  PLATE  computer  program  ex- 
cept that  initial  velocity  distributions  and  prescribed,  externally-applied 
forces  are  not  included  m the  CIVM-PLATE  program;  these  loading  options  are 
"replaced"  by  the  collision  inspection-interaction  analysis.  The  governing 
equation  of  motion  for  the  complete  assembled  discretized  plate  structure  is 
thus  obtained  by  dropping  the  external  nodal  loading  vector  from  Eq.  2.1  and 
is  given  by 

[M]  {q*}  + [K]  {q*}  + [K  ] {q*}  = {F^}  (2.3) 

s 

where  the  definition  of  the  terms  m Eq.  2.3  are  the  same  as  those  given  in 
Subsection  2.3. 

In  the  present  procedure,  a diagonal  "lumped"  mass  matrix  is  employed; 
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the  use  of  a consistent  (fully  populated)  mass  matrix  is  not  permitted  in  the 
CIVM-PLATE  program.  Lumped  mass  modeling  is  chosen  as  a consequence  of  the 
present  collision- interaction  analysis  m which  the  element  (and  structure) 
mass  properties  are  assumed  to  be  lumped  at  the  nodal  points.  Thus,  for  con- 
sistency, the  mass  properties  of  the  plate  structure  used  in  the  global  time- 
wise  solution  procedure  should  also  be  nodal  lumped  masses;  the  use  of  a con- 
sistent mass  modeling  in  the  global  timewise  solution  would  result  in  an 
energy  mismatch  following  each  impact.  In  addition,  the  use  of  a lumped  mass 
matrix  results  m a decrease  of  the  highest  natural  frequency  for  the  assembled 
structure,  compared  with  the  use  of  a consistent  mass  matrix,  and  thus  permits 
one  to  use  a larger  time  step,  At,  for  the  structural  response  calculations 
(see  discussion  m Subsection  2.3).  This  fact,  coupled  with  reduced  storage 
requirements  and  additional  savings  of  computation  time  m each  time  step  be- 
cause of  the  simple  form  of  the  mass  matrix,  makes  the  use  of  a lumped  matrix 
computationally  efficient. 

The  equations  of  motion  are  solved  through  the  use  of  the  Houbolt  finite- 
difference  operator  whereby  one  obtains  a recurrence  equation  which  provides  a 
solution  step-by-step  in  finite  time  increments.  The  discussion  of  the  sta- 
bility of  the  Houbolt  operator  given  m Subsection  2.3  also  applies  to  the 
present  impact  analysis.  However,  as  will  be  discussed  in  Appendix  B,  this 
operator  must  be  modified  for  time  cycles  m which  plate/fragment  collision 
occurs.  Experience  to  date  with  the  CIVM-PLATE  program  suggest  that  this  modi- 
fied operator  is  less  stable  than  the  conventional  Houbolt  operator,  and  thus 
smaller  time  steps,  At,  must  be  used.  Because  (diagonalized)  lumped  masses 

are  used  m all  runs  of  the  CIVM-PLATE  program,  the  reference  time  step  size, 

CD 

At  , discussed  in  Subsection  2.3  is  calculated  and  output  for  each  execution 

max  CD 

of  the  program.  It  is  recommended  that  a value  of  At  = 2*Atmay  be  specified 

on  the  initial  run  of  a containment/deflector  analysis.  A more  detailed  dis- 
cussion of  this  modified  operator  is  given  m Appendix  B. 

The  general  solution  process  employed  m the  CIVM-PLATE  program  is 
essentially  identical  to  that  employed  m the  PLATE  program  in  terms  of  input 
of  geometric,  mesh,  and  boundary  condition  information,  and  generation  of 
the  assembled-structure  mass  (lumped  mass  modeling  only)  and  stiffness  matrices. 
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Additional  input  is  required  for  the  CIVM-PLATE  program  to  define  the  initial 
location  and  velocity  components,  geometry,  and  collision  parameters  of  the 
attacking  fragment.  In  the  following,  the  general  timewise  solution  process 
(which  differs  somewhat  from  that  used  in  the  PLATE  program)  is  described 
briefly. 

The  plate  structure  is  assumed  to  be  at  rest  at  time  tQ,  and  the  posi- 
tion and  velocity  of  the  attacking  fragment  are  known  at  time  tQ.  From  this 
information  the  generalized  nodal  and  fragment  displacements  and  displacement 
increments  are  computed  for  the  first  time  increment,  At.  Then  the  fragment- 
plate  collision  mspection-and-correction  procedure  is  carried  out.  If  one, 
or  more,  fragment-plate  collisions  have  occurred  during  this  At,  the  coordi- 
nates which  locate  the  position  of  the  fragment  and  the  impact- affected  nodes 
of  the  plate  are  thereby  corrected  from  their  tentative  uncorrected-for-impact 
locations.  Next,  the  strain  increment  developed  from  t to  t,  at  every 
Gaussian  station  (or  point)  required  over  and  depthwise  through  each  finite 
element  are  calculated.  From  a knowledge  of  the  previous  states  of  stress 
and  strain,  and  the  strain  increments,  one  can  determine  the  stress  increments, 
the  stresses,  and/or  the  plastic  strains  and  plastic  strain  increments  through 
the  use  of  the  pertinent  elastic-plastic  stress-strain  relations  including 
the  plastic  yield  condition  and  flow  rule.+  Next,  one  can  calculate  the 
equivalent  generalized  load  vectors  arising  from  large  deflections  and  plastic 
strains.  Then,  the  proper  recurrence  equations,  which  is  the  finite-difference 
representation  of  the  equations  of  motion,  are  solved  to  obtain  the  plate-nodal 
generalized  displacements  and  displacement  increments  of  the  next  time  incre- 
ment. The  pertinent  equations  of  motion  for  the  fragment  are  also  solved  to 
obtain  the  displacements  and  displacement  increments  of  the  next  time  incre- 
ment for  the  fragment.  This  process  then  proceeds  cyclically  for  as  many 
time  steps  as  desired.  It  should  be  noted  that  the  plate  structure  remains 
at  rest  until  the  first  plate-fragment  collision  occurs. 

For  present  purposes,  the  above  general  description  is  considered  to 
be  adequate;  one  may  consult  Appendix  B for  a more  detailed  discussion  of  the 
solution  and  evaluation  process,  including  flow  charts . 

+The  mechanical-sublayer  material  model  is  particularly  convenient  and  efficient 
for  these  evaluations;  see  Figs.  A. la  through  A.lc. 
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SECTION  3 


DESCRIPTION  OF  PROGRAMS  AND  SUBPROGRAMS 

3.1  Organization  of  the  PLATE  and  CIVM-PLATE  Programs 

The  PLATE  and  CIVM-PLATE  computer  program  package  consists  of  two  dummy 
main  programs  fone  each  for  PLATE  and  CIVM-PLATE)  and  34  subprograms.  Of 
these  34  subprograms,  5 are  used  exclusively  in  the  PLATE  program,  8 are  used 
exclusively  m the  CIVM-PLATE  program,  and  the  remaining  21  are  used  by  both 
the  PLATE  and  CIVM-PLATE  programs. 

The  dummy  main  program  and  subroutines  used  exclusively  in  the  PLATE 
program  are 

CMASSP  INCOND  MAINP 

EXTL  MAIN  PRINT 

The  dummy  main  program  and  subroutines  unique  to  the  CIVM-PLATE  program 

are 


COLLSN 

IMAINP 

IMPSS 

IF  RAG 

IMPACT 

INTRAC 

IMAIN 

IMPDS 

IPRINT 

subroutines 

used  by  both 

the  PLATE 

and  CIVM- 

■PLATE  programs 

ARRT 

FACT 

MESHPM 

RCON 

SPRING 

ASSEMK 

GAUSS 

OMULT 

RPLATE 

STRESA 

BCONMK 

LMASSP 

PRTOP 

SFDM 

STRESC 

EAROW 

MESHPA 

PSTRN 

SOLV 

STRESP 

TSTEP 


A description  of  these  main  and  subprograms  including  the  definitions  of 
calling  arguments  for  each  subprogram  is  given  in  Subsection  3.2. 

The  PLATE  program  consists,  therefore,  of  a dummy  main  program  (MAIN)  and 
26  subroutines.  The  dummy  mam  program  has  been  included  only  to  define  array 
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dimensions  which,  are  problem  dependent,  and  to  input  those  parameters  used 
m the  dimensioning  process-.  MAIN  then  calls  subroutine  MAINP  which  is  the 
master  subroutine  which  controls  the  flow  of  the  transient  nonlinear  analysis. 
The  flow  of  subroutine  MAINP  with  particular  emphasis  on  subroutine  usage  is 
shown  in  Fig.  8.  The  information  provided  m Fig.  8 together  with  the  descrip- 
tion of  subroutines  given  m Subsection  3.2  and  the  theoretical  developments 
given  in  Appendix  A,  is  intended  to  provide  the  user  with  a better  understand- 
ing of  the  operation  and  execution  of  the  PLATE  program. 

The  CIVM-PLATE  program  consists  of  a dummy  mam  program  (IMAIN)  and  29 
subroutines.  The  dummy  mam  program  has  been  provided  only  to  define  array 
dimensions  which  are  problem  dependent,  and  to  input  those  parameters  used  in 
the  dimensioning  process.  IMAIN  then  calls  subroutine  IMAINP  which  controls 
the  flow  of  the  impact- induced  transient  nonlinear  analysis.  The  flow  of 
subroutine  IMAINP  with  particular  emphasis  on  subroutine  usage  is  shown  m 
Fig.  9.  The  information  provided  m Fig.  9,  together  with  the  description 
of  subroutines  given  m Subsection  3.2  and  theoretical  developments  given  m 
Appendix  B,  is  intended  to  provide  the  user  with  a better  understanding  of  the 
operation  and  execution  of  the  CIVM-PLATE  program. 

3.2  Program  and  Subprogram  Descriptions 

In  this  subsection,  each  of  the  programs/subprograms  used  m the  PLATE 
and  CIVM-PLATE  computer  codes  is  described.  The  programs/subprograms  are 
grouped  (and  presented  alphabetically)  according  to  those  used  only  in  the 
PLATE  code,  those  used  only  in  the  CIVM-PLATE  code,  and  those  common  to  both 
codes.  In  each  case,  the  subroutine  names  and  argument  list  (as  it  appears 
in  that  subroutine)  are  given;  each  of  the  subroutine  arguments  is  defined 
and  a description  of  the  overall  operation  of  the  subroutine  is  given. 

No  attempt  is  made  to  describe  the  programming  logic  or  to  describe  each 
programming  step  of  each  subroutine.  Information  of  this  form  could  be 
generated  by  a user  facility  by  a careful  comparison  of  programming  logic 
and  associated  theory  presented  in  Appendices  A and  B,  as  well  as  various 
programming  conventions  discussed  throughout  this  report.  Such  a detailed 
understanding  of  the  PLATE  and/or  CIVM-PLATE  codes  would  facilitate  modifica- 
tions and/or  additions  to  the  codes,  but  is  not  necessary  for  effective  use 
of  the  codes. 
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3.2.1  Main  Program  and  Subroutines  Unique  to  the  PLATE  Program 

In  the  following,  the  mam  program  and  subroutines  used  only  in  the 

PLATE  program  are  discussed. 

SUBROUTINE  CMASSP (NTYPE , XL,  YL,  TH,  XF,  SLOC,  CSA,  SMOI,  EM,  GBI,  DENS) 

Purpose:  This  subroutine  computes  the  consistent  mass  matrix  for  a rectangular 

plate  element,  x-direction  stiffener  element,  or  y-direction  stiffener 
element.  The  formation  corresponds  to  Eqs.  A. 28  and  A. 29  (for  plate 
elements) , Eq.  A. 91  for  x-direction  stiffners,  and  Eq.  A. 91b  for 
y-direction  stiffeners;  see  Figs.  10-14.  Gaussian  quadrature  is 
used  to  compute  the  required  integral. 


Arguments : 
NTYPE 


XL 

YL 

TH 

XF 

SLOC 

CSA 

SMOI 

EM(24, 24) 
GBI (24, 24) 
DENS 


Type  of  element 
= 1 for  plate  element 
= 2 for  x-direction  stiffener 
= 3 for  y-direction  stiffener 

The  x-direction  length  of  the  element 

The  y-direction  length  of  the  element 

The  plate  element  thickness 

The  stiffener  offset  distance  (see  Fig.  12) 

The  location  of  the  stiffener  on  its  corresponding  element 
(see  Fig.  13) 

The  stiffener  cross-sectional  area 

The  mass  moment  of  inertia  of  the  stiffener 

The  mass  matrix  of  the  element 

The  matrix  G 1 given  by  Eq.  A. 19 

The  initial  mass  per  unit  volume  of  the  element 
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SUBROUTINE  EXTL  ( ELV , ITT , NP , NODE , XGI , Yd) 

Purpose:  This  user-prepared  subroutine  is  used  to  generate  the  nodal 

generalized  forces  corresponding  to  prescribed  externally-applied 

forces  at  time  t (=  mAt)  as  described  m Subsection  4.6.2  and 
m 

corresponding  to  the  development  in  Subsection  A. 1.3. 4. 


Arguments : 
ELV (I) 


ITT 

NP ( I , J) 


NODE  (K) 


XGI (I) 
YGI(I) 

4 


The  user-defined  nodal  force  vector  at  time  t = ITT*DELTAT 
(where  DELTAT  = At) . ELV (I)  is  the  generalized  force 
corresponding  to  the  Ith  generalized  degree  of  freedom. 

The  cycle  number 

The  global  node  number  associated  with  the  Ith  element 
node  of  element  J. 

The  assembly  list  associating  element  degrees  of  freedom 
with  global  degrees  of  freedom.  If  K is  defined  as 
K=24* ( J-l)  + I,  then  NODE (K)  is  the  global  degree  of 
freedom  number  associated  with  the  Ith  degree  of  freedom 
of  element  J. 

The  global  X and  Y coordinates,  respectively,  of  the 
Ith  global  node  at  time  zero. 


SUBROUTINE  INCOND ( DISP , VEL , NP , NODE , XGI , YGI ) 

Purpose:  This  user-prepared  subroutine  is  used  to  specify  the  initial  (time 

zero)  conditions  on  the  plate  nodal  displacements  and  velocities 

q*  and  q*,  respectively,  required  for  the  finite-difference  solution 
~o  ~o 

of  the  governing  equations  of  motion  (see  Subsection  A. 3) . Instruc- 
tions for  preparation  of  this  subroutine  are  given  m Subsection 
4.6.1. 


Arguments: 

DISP  (I)  : The  displacement  at  time  zero  of  the  Ith  generalized  nodal 

degree  of  freedom 
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VEL(D 


The  velocity  at  time  zero  corresponding  to  the  Ith 
generalized  nodal  degree  of  freedom 


NP(I,J) 
NODE  (KJ 
XGICI) 
YGI(I) 


> 


See  SUBROUTINE  EXTL 


MAIN 


Purpose:  The  dummy  mam  program  of  the  PLATE  computer  code.  Problem 

dependent  array  dimensions  are  specified  in  this  dummy  mam 
program  and  certain  of  those  variables  used  m this  dimensioning 
process  are  input.  Guidelines  for  preparation  of  the  array 
dimensions  are  given  m Subsection  4.5 

Arguments : None 


SUBROUTINE  MAINP (DELD , DIS , DISP , DISM1 , DISM2 , FLN , FLVA , FLVM , FLVP , ELV , VEL , ICOL , 

INUM , KROW , NDEX , STOR, STF, AMASS , NP , NODE , TAUSS , TAUSE , TAUEE , EPS  S I , EPSSO , EPEE I , 

EPEEO , EPSEI , EPSEO , NBC , BC , RFM, I LAST , UCF1 , UCF2 , XG , YG , ZG , XGI , YGI , TAGSS , LNXS , XSPROP , 
MATXS , TSGEE , LNYS , YSPROP , MATYS , LNRS , ISRS , SC , MAXEL , MNSL , MNSLT4 , NBE, MB WE , MNXST , 
MNYST,NVSA,NCON) 

Purpose:  The  primary  subroutine  of  the  PLATE  program.  This  subroutine 

controls  the  flow  of  program  input,  structural  response  prediction, 
and  program  output. 


Arguments : 

DELD (I)  ' 

DIS (IP) 

> 

DISP (I) 

DISMl(I) 

DISM2CI) 


The  displacement  increment  and  displacement  vectors 

4a+i 5 <s+i  - s>-  sUi-  s-  s-i'  S-2' 

respectively  (e.g.  Eq.  A. 110).  The  Ith  term  in 
each  vector  corresponds  to  the  Ith  structural  degree 
of  freedom. 
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Vectors  -used  to  accumulate  effective  nonlinear  and 
external  nodal  forces  required  to  form  the  right-hand 
side  of  Eq.  A. 114  (corresponding  to  Ith  structural 
degree  of  freedom) . 

See  Subroutine  EXTL 

The  velocity  corresponding  to  the  Ith  structural 
degree  of  freedom 

Vectors  containing  pointers  used  to  locate 
terms  in  the  assembled  stiffness  matrix  which  is 
stored  in  compacted  vector  form  (see  Subsection  4.1.5) 

Temporary  vector  in  which  the  current  external  force 
vector  is  stored 

Assembled  stiffness  matrix  stored  m compacted  vector 
form  (see  Subsection  4.1.5) 

The  assembled  (structure)  mass  matrix  stored  either 
m compacted  vector  form  (if  consistent  mass  option  is 
used)  or  as  a vector  of  the  diagornal  terms  (if  lumped 
mass  is  used) . 

See  Subroutine  EXTL 

The  stresses  a , a , a , respectively  at  the  Jth 
xx  yy  xy 

depthwise/sublayer  integration  station  (J  is  a function 

of  both  location  and  sublayer)  at  the  Kth  spanwise 
Gaussian  integration  station  of  the  Ith  plate  element 
at  the  current  time. 
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The  strains  e , e , and  e , respectively,  at  the 
xx  yy  xy  J 

Kth  Gaussian  integration  station  (K=l,2,  ...9) 
on  the  inner  surface  of  the  Ith  plate  element. 

As  above,  at  the  outer  surface  of  the  Ith  plate 
element 

A list  of  the  NB  constrained  degree-of-freedom  numbers 

and  corresponding  constrained  values  (BC(J)  =0.0  set 
internally) 

Matrix  used  in  the  calculation  of  the  reaction  forces 
at  constrained  nodes,  and  contains  the  rows  of  the 
assembled  stiffness  matrix  (from  the  first  nonzero  term 
to  the  last  nonzero  term  in  that  row)  corresponding  to 
each  of  the  constrained  degrees  of  freedom. 

For  row  NBC(J)  of  the  assembled  stiffness  matrix,  the 
column  in  which  the  last  nonzero  term  is  found. 

Vectors  containing  the  right-hand  side  of  Eq.  A. 114 

(prior  to  constraint)  corresponding  to  constrained 
degree  of  freedom  NBC(J) 

The  current  global  (X,Y,Z)  coordinates,  respectively, 
of  structural  node  I 

See  Subroutine  EXTL 

The  normal  stress,  O , at  the  Jth  depthwise/sublayer 

XX 

integration  station  at  the  Kth  spanwise  Gaussian  integra- 
station  of  the  Ith  individual  X-direction  stiffener. 


I 
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LNXS(I)  : The  plate  element  numbers  to  which,  the  Ith  individual 

X-direction  stiffener  is  attached. 

XSPROP (J, I)  : Geometric  and  material  properties  of  the  Ith  individual 

X-direction  stiffener.  See  Cards  28-34  (Subsection  4.2) 
for  definition  of  J = 1,2,3,  ...  6. 

MATSX(I)  : The  material  type  for  the  Ith  individual  X-direction 

stiffener. 


TSGEE(I,J,K)  : 


The  normal  stress,  CF  , at  the  Jth  depthwise/sublayer 
integration  station  at  the  Kth  spanwise  Gaussian 
integration  station  of  the  Ith  individual  Y-direction 
stiffener. 

Same  as  above  (LNXS , XSPROP, MATXS) , now  for  individual 
Y-direction  stiffeners. 


The  plate  element  number  and  element  side  number, 

respectively,  to  which  the  Ith  linear  line  restoring 
spring  is  attached. 


SC (K, I) 


MAXEL 

MNSL 

NBE 

> 

MB  WE 

MNXST 

MNYST 


: The  given  (K  = 1,2,  5)  elastic  spring  constant 

(K  ,K  ,K  , K , K , ) corresponding  to  the  Ith  line 
u v w 6 ip 

restoring  spring. 

Problem  size  and  dimensioning  variables  input  by 
the  user.  See  Card  1 (Subsection  4.2)  for  the 
definition  of  these  parameters. 
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MNSLT4 


: MNSL*4  (maximum  number  of  depthwise/sublayer  integration 

stations) . 

NVSA (I)  : A list  of  those  global  node  numbers  at  which  nodal 

average  strain  output  is  given. 

NCON(J,I)  : The  element  numbers  (J  = 1,2, 3, 4 in  general)  which  are 

common  to  structure  node  number  NVSA(I) . 

SUBROUTINE  PRINT (DISP , XG, YG, ZG,EPSSI,EPSSO,EPEEI ,EPEEO,EPSEI ,EPSEO , XGI , YGI , 

NP , GBI , STDEP , NODE , RFM, NBE , MBWE , ILAST , UCF1 , NBC , ICOL , NMSUB , SUBW , TAUSS , TAUEE , 
TAUSE , MAXEL , NZS , NXST , LNXS , MATXS , XSPROP , TAGSS , MNXST , NYST , LNYS , MATYS , YSPROP , 
TSGEE , MNYST , NELES , LNRS , ISRS , SC , EK, IMASS , AMASS , VEL , FLVM , KROW , NDEX , WFORCE , 

CINETI , NNS A , NVSA , NCON) 

Purpose:  This  subroutine  controls  the  calculation  (as  necessary)  and  output 

of  all  quantities  (displacements,  strains,  energies,  etc.)  requested 
by  the  user  at  regular  intervals  during  the  timewise  solution  for 
the  PLATE  program. 

Arguments:  The  arguments  DISP,XG,YG,ZG,EPSSI,EPSSO,EPEEI,EPEEO,EPSEI,EPSEO, 

XGI , YGI , NP , NODE , RFM , NBE , MBWE , ILAST , UCF 1 , NBC , ICOL , TAUSS , TAUEE , 

TAUSE , MAXEL , LNXS , MATXS , XSPROP , TAGSS , MNXST , LNYS , MATYS , YSPROP , 

TSGEE, MNYST, LNRS, ISRS, SC, AMASS, VEL, FLVM, KROW, NDEX, NVSA,  and  NCON 
are  defined  in  Subroutine  MAINP. 


GBI (24, 24) 
STDEP (9, 24) 


NMSUB (I) 


SUBW ( I , K) 


See  Subroutine  CMASSP. 

The  matrix  used  to  calculate  strains  from  displacements 

for  an  element.  The  rows  correspond  to  the  vectors 
T T T 

D , D . . . D of  Eqs.  A. 10  evaluated  at  a specified 
~ X 

location  within  the  element. 

The  number  of  mechanical  sublayers  used  to  define  the 
uniaxial  stress-strain  curve  for  material  type  I. 

The  sublayer  weighting  factors  C (Eq.  A. 120b)  corres- 
ponding  to  material  type  I. 
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NZS 

4*MNSL  where  MNSL  is  the  maximum  number  of  mechanical 
sublayers  used  to  specify  a material  behavior  and  4 
depthwise  integration  stations  are  used. 

NXST 

: 

The  actual  number  of  individual  X-direction  stiffeners. 

NYST 

: 

The  actual  number  of  individual  Y-direction  stiffeners. 

NELES 

: 

The  number  of  element  sides  on  which  linear  restoring 
springs  are  attached. 

EK(24, 24) 

The  equivalent  stiffness  matrix  for  an  element  corres- 
ponding to  line  restoring  springs.  The  matrix  is  used 
here  to  calculate  the  energy  stored  in  restoring  springs. 

IMASS 

Indicates  the  type  of  mass  matrix  employed 
= 1 for  lumped  (diagonalrzed)  mass  matrix 

= 2 for  consistent  mass  matrix. 

WFORCE 

s 

Current  value  of  the  work  done  by  the  externally- 
applied  forces. 

CINETI 

: 

The  initial  kinetic  energy  imparted  to  the  structure  by 
the  user-specified  initial  velocity  distribution. 

NNSA 

■ 

The  number  of  nodes  at  which  averaged  nodal  strains 
are  to  be  output. 

3.2.2  Mam  Program  and  Subroutines  Unique  to  the  CIVM- PLATE  Program 

In  the  following,  the  main  program  and  subroutines  used  only  in  the 
CIVM- PLATE  program  are  discussed. 

SUBROUTINE  COLLSN ( IOPT , XG , YG , ZG , PEN , RF , THALF , NNSR, XF , YF , ZF , XN , YN , ZN , T , NN1 , 
NN2,NN3) 

Purpose:  This  subroutine  performs  the  detailed  collision  inspection  over 

a triangular  subregion  of  a plate  element.  If  collision  (plate 
fragment  overlap)  is  detected,  the  penetration  distance,  location 
of  maximum  penetration  distance  on  the  element,  and  appropriate 
coordinate  transformation  matrix  are  calculated.  (See  Subsection 
B.2.1) . 
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Arguments : 


I OPT 


XG  (I) 
YG(I) 
ZG(I) 

PEN (I) 


RF 

THALF 

NNSR 

N 

XF 

YF  > 

ZF  J 

XN(I)  'j 
YN(I) 

ZN(I)  J 

T (3 , 3) 


NN1 

NN2 

NN3 


} 


: A parameter  for  subroutine  usage. 

= 1 if  the  entire  check  process  is  to  be  followed. 

= 2 if  the  subroutine  is  to  be  terminated  after 
calculation  of  the  coordinate  trams formation  matrix 
for  the  triangular  subregion. 

Current  global  X,Y,Z  coordinates  of  the  Ith  structural 
node. 


The  penetration  distance  between  the  fragment  and  the 
Ith  triangular  subregion. 

: The  radius  of  the  spherical  fragment. 

: The  plate  half  thickness. 

: The  current  triangular  subregion  being  inspected. 

The  current  global  X,Y,Z  coordinates  of  the  center 
of  the  spherical  fragment 

The  global  location  (x  ,y  , z — see  Eg.  B.12)  of 

n n n 

the  point  of  maximum  penetration  for  the  Ith 
triangular  subregion. 

: The  coordinate  transformation  matrix  used  to  transform 

from  global  to  local  (impact)  coordinates.  See 
Egs.  B.7  and  B.8. 

The  global  node  numbers  of  nodes  1,  2,  and  3, 
respectively  of  the  current  triangular  inspection 
region. 


SUBROUTINE  IFRAG  (PMASS, AMASS) 
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Purpose:  In  this  subroutine  the  initial  fragment  position  and  velocity, 

fragment  geometric  properties,  contact  surface  properties  and 
any  symmetry  options  are  input  and  printed  for  verification. 

The  fragment  initial  kinetic  energy  is  calculated  and  the  mass 
matrix  used  in  impact- interaction  calculations  is  formed. 

Arguments : 

PMASS (I)  : The  lumped  (diagonal  terms  only)  mass  matrix  correspond 

ing  only  to  translational  degrees  of  freedom,  used  m 
impact- interaction  calculations. 

AMASS (I)  : The  lumped  mass  matrix  for  the  complete  plate  structure 


IMA  IN 

Purpose:  The  dummy  main  program  of  the  CXVM-PLATE  computer  code.  Problem- 

dependent  array  dimensions  are  specified,  and  certain  of  those 
variables  used  in  this  dimensioning  process  are  input.  Guidelines 
for  preparation  of  the  array  dimensions  are  given  in  Subsection  5.3 

Arguments : None . 

SUBROUTINE  IMAINP (DELD , DIS , DISP , DISM1 , DISM2 , FLN , FLVA , FLVM, FLVP , VEL , ICOL , INUM , 
KROW , NDEX , STF , AMASS , NP , NODE , TAUSS , TAUSE , TAUEE , EPSSI , EPSSO , EPEE I , EPEEO , EPSEI , 
EPSEO , NBC , BC , RFM, I LAST , UCF1 , UCF2 , XG , YG , ZG , XGI , YGI , TAGSS , LNXS , XSPROP , MATXS , 
TSGEE , LNYS , YSPROP , MATYS , LNRS , ISRS , SC , MAXEL , MNSL , MNSLT4 , NBE , MB WE , MNXST , MNYST , 
NVS A , NCON , PMASS , VN , VNB , SI , NEFF , ALPHA , NIAN ) 

Purpose:  The  controlling  main  program  for  the  CIVM-PLATE  code.  The  flow  of 

input,  timewise  calculation,  and  output  is  governed  by  this  primary 
subroutine . 


Arguments : 

PMASS (I) 
VN ( J, I) 


: See  Subroutine  IFRAG 

The  translational  velocity  components  m the  global 
X, Y,Z  coordinates  (J  = 1,2,3)  for  the  Ith  impact- 
affected  node  at  the  current  time  instant. 
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VNB ( J , I) 


SI(I) 


NEFF (I) 


ALPHA (I) 


NIAN 


: The  translational  velocity  components  in  the  local 

(x,y,N)  impact  coordinate  system  (J  = 1,2,3)  for  the 
Ith  impact-affected  node  at  the  current  time  instant. 

: For  the  current  impact  interaction  calculation,  the 

distance  |s^|  (see  Eq.  B.16)  from  the  point  of  impact 
to  the  Ith  impact-affected  node. 

s For  the  current  impact- interaction  calculation  the 
global  node  number  of  the  Ith  impact-affected  node. 

: The  proportionality  factor,  (see  Eqs.  B.19) , for 

impulse  distribution  associated  with  the  Ith  impact- 
affected  node  for  the  current  impact-interaction 
calculation. 

: A user  estimate  of  the  maximum  number  of  nodes  which 

will  be  affected  by  any  impact. 


The  remaining  arguments  are  as  defined  for  Subroutine  MAINP  given  in 
Subsection  3.2.1. 


SUBROUTINE  IMPACT (XG,YG,ZG,DELD,VEL,NP,VN, VNB, PMASS, NBC, SI, NEFF, ALPHA, 

IMP CT1, NIAN) 

Purpose:  Controlling  subroutine  for  impact  inspection  and  interaction 

calculations  for  general  (no  symmetry)  impact  cases) . For  each 
step  time,  this  subroutine  controls  inspection  for  maximum  plate- 
fragment  overlap.  If  impact  has  occurred,  impact-affected  nodes 
are  identified  and  their  pre-impact  velocities  are  updated  to  post- 
impact velocities  (similarly  for  the  fragment)  via  the  impact- 
interaction  calculations. 


Arguments : 

XG(I)  1 
YG(I)  S 
ZG(I) 


See  Subroutine  COLLSN 
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DELD(I)  : The  current  vector  Aq*  , = q*  , - q*  of  nodal 

~ m+1  2 m+1  t m 

displacement  increments. 

VEL(I)  : The  velocity  corresponding  to  the  Ith  degree  of 

freedom  at  the  beginning  of  the  current  time  step 

(from  t to  t , ) . 
m m+1 

IMPCTl  : Index  indicating  if  impact  has  been  detected  during 

the  current  execution  of  Subroutine  IMPACT. 

= 0 if  no  impact  has  been  detected. 

= 1 if  impact  has  been  detected. 

The  remaining  variables  are  as  defined  in  Subroutine  IMAINP. 

SUBROUTINE  IMPDS (XG , YG , ZG , DELD , VEL , NP , VN , VNB , PMASS , NBC , SI , NEFF , ALPHA , 

IMPCTl, NIAN) 

Purpose:  Controlling  subroutine  for  impact  inspection  and  interaction 

calculations  for  double- symmetry  impact  cases.  The  underlying 
flow  and  purpose  are  the  same  as  Subroutine  IMPACT. 

Arguments:  All  arguments  are  the  same  as  m Subroutine  IMPACT. 

SUBROUTINE  IMPSS (XG,YG,ZG, DELD , VEL, NP,VN, VNB, PMASS, NBC, SI, NEFF, ALPHA, 

IMPCTl, NIAN) 

Purpose:  Controlling  subroutine  for  impact  inspection  and  interaction 

calculations  for  single-symmetry  impact  cases. 

Arguments:  See  Subroutine  IMPACT. 

SUBROUTINE  INTRACT (S1,S2,A0,B1,B3, COEFR , FRNC , PTILDA) 

Purpose:  The  impulse  coordinates  p _ ,p  ,pN  at  the  instant  of  termination 

x y 

of  the  collision  are  calculated  in  this  subroutine.  The  relations 
used  to  calculate  these  values  correspond  to  Cases  I through  III 
(Eqs.  B.25  through  B.28)  of  Subsection  B.2.2. 


30 


Arguments : 


51 

52 

AO 

Bl 

B3  , 


COEFR^ 
FRNC 


PTILDA (I) 


Interaction  constants,  si,S2,ao,Bi'  and  B^ 
defined  by  Eqs.  B.22. 


The  coefficient  of  restitution,  e,  and  coefficient  of 
friction,  Ur  respectively,  between  the  plate  and 
rigid  spherical  fragment  surfaces. 

: The  impulse  coordinates  p _ , p , and  p^  (I  = 1,2,3, 

x y 

respectively)  at  the  instant  of  termination  of  the 
collision. 


SUBROUTINE  IPRINT(DISP,XG,YG,ZG,EPSSI,EPSSO,EPEEL,EPEEO,EPSEI,EPSEO,XGI, 
YGI ,NP , GBI , STDEP , NODE , RFM,NBE , MB WE , ILAST , UCF1 , NBC , ICOL , NMSUB , SUBW , TAUSS , 
TAUEE , TAUSE , MAXEL , NZS , NXST , LNXS , MATXS , XSPROP , TAGSS , MNXST , NYST , LNYS , MATYS , 
YSPROP , TSGEE , MNYST , NELES , LNRS , ISRS , SC , EK , AMASS , VEL , NNSA , NVSA , NCON ) 

Purpose:  This  subroutine  controls  the  calculation  and  output  of  all 

quantities  (displacement,  strain,  energies,  etc.)  as  requested 
by  the  user  at  regular  intervals  during  the  timewise  solution 
for  the  CIVM- PLATE  program. 

Arguments:  All  arguments  are  as  defined  in  Subroutine  PRINT  in  Subsection 

3.2.1. 


3.2.3  Subroutines  Used  by  both  the  PLATE  and  the  CIVM-PLATE  Program 

In  the  following,  the  subroutines  used  by  both  the  PLATE  and  the 
CIVM-PLATE  program  are  discussed. 

SUB  ROUTINE  ARRT ( STF , AMASS , F , ICOL , INUM , KROW , NDEX , NODE , NDPE ) 
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Purpose:  In  this  subroutine,  the  mesh  nodal  connectivity  data  m NODE (I) 

is  used  to  establish  the  pointer  arrays  necessary  to  locate  terms 
in  the  assembled  stiffness  matrix  (and  mass  matrix  if  consistent 
mass  is  used)  stored  m compacted  vector  form.  The  number  of 
words  of  storage  required  for  the  assembled  stiffness  matrix  is 
calculated,  output,  and  compared  with  the  user  estimate;  if  the 
user  estimate  is  too  small,  a message  is  output  and  the  run 
terminated.  The  assembled  stiffness  and  mass  (only  for  lumped 
mass)  matrices  and  force  vector  are  zeroed. 

Arguments : 

F(I)  : A force- type  vector  of  length  NDT,  where  NDT  is  the 

total  number  of  degrees  of  freedom  for  the  current 
plate  structure  being  analyzed. 

NDPE  : The  number  of  degrees  of  freedom  per  element  (NDPE  - 24 

for  the  present  plate  elements) . 

All  remaining  arguments  are  as  defined  m Subroutine  MAINP  of 
Subsection  3.2.1. 


SUBROUTINE  ASSEMK (EK , STF , INUM , NDPE , NODE , N) 

Purpose:  Perform  assembly  operation  of  the  element  stiffness  matrix  into 

the  assembled  stiffness  matrix. 


Arguments : 

EK(24, 24) 
STF (I) 

INUM (I)  > 

NODE (I) 

* 

NDPE 

N 


: The  stiffness  matrix  for  the  current  element. 

See  Subroutine  MAINP  of  Subsection  3.2.1. 


: See  Subroutine  ARRT. 

: The  current  element  number  being  assembled. 
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SUBROUTINE  BCONMK ( STF , BC , ICOL , INUM , NBC ) 

Purpose:  Imposes  the  boundary  condition  constraints  (zero  displacements) 

2 

on  the  assembled  matrix  [ =■  M + K]  given  in  Eq.  A. 114,  by  zeroing 

(At)  ~ ~ 

the  row  and  column  (not  including  the  diagonal  terms)  corresponding 
to  each  constrained  degree  of  freedom. 

Arguments:  See  Subroutine  MAINP  of  Subsection  3.2.1. 

SUBROUTINE  EAROW ( STF , NBC , ICOL , INUM , RFM , I LAST , NBE , MB WE ) 

r 2 

Purpose:  This  subroutine  extracts  the  rows  of  the  assembled  matrix  [ rM  + KJ 

(At)2  ~ 

(from  the  first  nonzero  term  to  the  last  nonzero  term  of  that  row) 
corresponding  to  each  constrained  degree  of  freedom  (prior  to 
constraining)  and  stores  these  values  m the  matrix  RFM(I,J) . The 
user  estimate  of  maximum  bandwidth  at  a constrained  degree  of 
freedom  is  checked;  if  the  user  estimate  is  too  small,  a message 
is  output  and  the  run  is  terminated. 

Arguments:  See  Subroutine  MAINP  of  Subsection  3.2.1. 

SUBROUTINE  FACT (STIFM , NCOL , KROW , NDEX , IDET , NTAPE6 , IC) 

, 2 

Purpose:  Performs  triple-factorization  on  the  assembled  matrix  [ r M + K] 

(AtP  ~ ~ 

T 

m Eq.  A. 114,  putting  it  m the  form  L DL  where  L is  a lower 
triangular  matrix  and  D is  a diagonal  matrix.  The  original  matrix 
is  destroyed  in  this  operation.  Details  of  the  triple-factoring 
operation  may  be  found  m numerous  texts  on  numerical  methods  and 
finite-element  methods. 


Arguments : 


STIFM (I) 
NCOL (I) 
KROW (I) 
NDEX (I) 
IC(I) 


> 


These  arrays  correspond  to  arrays  STF (I) , ICOL (I) , 
KROW(I) ,NDEX(I) , and  INUM (I) , respectively,  as 
defined  m Subroutine  MAINP  of  Subsection  3.2.1. 
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IDET 


NT APE 6 


A parameter  set  equal  to  the  number  of  negative 
diagonals  in  the  assembled  matrix  being  factored.  If 
the  matrix  is  not  positive  definite,  IDET  = -1  is  set 

The  device  number  used  for  printed  output.  NTAPE6=6 
is  used  in  the  PLATE  and  CIVM-PLATE  programs. 


SUBROUTINE  GAUSS (N,GS , GW) 

Purpose:  This  subroutine  defines  the  location  of  the  Gaussian  integration 

stations  and  the  corresponding  weighting  factors  m one  dimensional 
space.  The  number  of  Gaussian  stations  used  may  be  from  1 to  6. 


Arguments : 
N 

GS  (I) 
GW  (I) 


The  number  of  Gaussian  stations  to  be  used. 

The  location  of  the  N Gaussian  stations  relative  to 
a normalized  coordinate  -1  _<  s < 1. 

The  corresponding  Gaussian  weights  at  the  N Gaussian 
stations . 


SUBROUTINE  LMASSP (NTYPE , XL, YL,TH, SL, CSA, SMOI , EML , DENS ) 

Purpose:  This  subroutine  forms  the  lumped  (diagonal)  mass  matrix  for  a plate 

or  stiffener  element. 

Arguments : 

NTYPE  : Element  type 

= 1 for  a plate  element  (unstiffened) 

= 2 for  an  x-direction  stiffener  element 
= 3 for  a y-direction  stiffener  element 


XL 

YL 

TH 


The  x-length,  y- length,  and  thickness,  respectively, 
of  the  plate  element  (if  NTYPE=1) , or  of  the  plate 
element  to  which  the  stiffener  is  attached  (if 
NTYPE=2  or  3) . 
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SL 


CSA  | 
SMOI  J 

EML(24) 


If  NTYPE=2  or  3,  the  normalized  £ location  (0  _<  £ _<  1) 
of  an  x-direction  stiffener  on  the  plate  element 
(NTYPE=2)  , or  the  normalized  r)  location  (0  _<  n _<  1) 
of  a y-direction  stiffener  on  the  plate  element 
(NTYPE=3) . 

The  stiffener  cross-sectional  area  and  mass  moment  of 
inertia,  respectively  (required  only  if  NTYPE=2  or  3) . 

The  lumped  mass  matrix  for  the  element. 


DENS 


: The  original  mass  per  unit  volume  for  this  element 

(lb-sec2/in4) . 


SUBROUTINE  MESHPA (NP , NODE , XG , YG , ZG , NBC , BC , LNXS , LNYS , XGI , YGI , XSPROP , YSPROP , 
NXST , NYST , IMESH , MATXS , MATYS ) 

Purpose:  This  subroutine  controls  input,  formation,  and  output  of  mesh, 

stiffener,  and  boundary  condition  information  when  the  auto-mesh 
generation  option  is  chosen.  A detailed  discussion  of  this 
subroutine  is  given  m Subsection  4.1.2. 

Arguments : 

IMESH 

NXST 
NYST 

All  remaining  arguments  are  as  defined  for  Subroutine  MAINP  of 
Subsection  3.2.1. 


: See  Card  2 of  Subsection  4.2. 

See  Subroutine  PRINT  of  Subsection  3.2.1. 


SUBROUTINE  MESHPM (NP , NODE , XG , YG , ZG , NBC , BC , LNXS , LNYS , XGI , YGI , XSPROP , YSPROP , 
NXST , NYST , IMESH , MATXS , MATYS ) 

Purpose:  Mesh  generation  subroutine  (similar  to  MESHPA)  when  the  manual 

mesh  generation  option  is  chosen.  A detailed  discussion  of  this 
subroutine  is  given  in  Subsection  4.1.3. 
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Arguments:  Same  as  Subroutine  MESHPA. 


SUBROUTINE  OMULT  ( SQVCT , RWVCT , ACC , NCOL , KROW , NDEX) 

Purpose:  This  subroutine  performs  the  matrix  multiplication 

(ACC)  = (SQVCT)  * (RWVCT)  . 

A square  (nxn)  symmetric  vector  stored  in  lower 
triangle  compacted  vector  form,  in  a fashion  consistent 
with  the  pointers  established  in  Subroutine  ARR. 

A vector  of  length  n of  known  quantities. 

The  vector  product  (ACC) =( SQVCT) * (RWVCT)  of  length  n. 

Pointer  array  corresponding  to  ICOL(I)  in  Subroutine 
MAINP. 

See  Subroutine  MAINP  in  Subsection  3.2.1. 

SUBROUTINE  PRTOP(NNSA,NVSA,NCON,NP) 

Purpose:  In  this  subroutine,  the  print  options  to  be  executed  at  regular 

user-specified  time  intervals  are  established.  Relevant  data 
corresponding  to  various  of  these  options  is  also  defined.  Those 
options  available  and  the  associated  input  are  given  on  Cards  51 
through  62  in  Subsection  4.2. 

Arguments : 

NNSA 

NVSA(I) 

NCON (I , J)  > 

NP ( I , J)  J 

SUBROUTINE  PSTRN(G11,G22,G12,S,D) 

Purpose:  The  maximum  principal  strain  and  associated  direction  (in  degrees, 

with  respect  to  the  X axis)  are  calculated.  Only  principal 
tensile  strains  are  considered. 


See  Card  61  m Subsection  4.2. 


See  Subroutine  MAINP  in  Subsection  3.2.1. 


Arguments : 

SQVCT (I) 

RWVCT (I) 
ACC (I) 
NCOL (I) 

KROW(I) 
NDEX (I) 
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Arguments : 


Gil  1 
G22 
G12  . 

S 

D 


The  strain  components  £ ,£  , and  £ , respectively, 

xx  yy  xy 

at  a point  on  the  plate  structure. 


s The  maximum  principal  tensile  strain. 

: The  direction  (degrees)  of  the  maximum  principal 

tensile  strain  (with  respect  to  the  X axis) . 


SUBROUTINE  RCON(F,NBC) 

Purpose:  Subroutine  which  applies  boundary  constraints  to  the  force  vector. 

Terms  in  the  force  vector  corresponding  to  constrained  degrees  of 
freedom  are  zeroed  (it  is  assumed  that  all  prescribed  displacements 
are  zero) . 


Arguments : 

F(I)  : Force  vector. 

NBC (I)  : List  of  those  degrees  of  freedom  which  are  constrained. 


SUBROUTINE  RPLATE (NTYPE , ANU, XL, YL,TH,SL, CSA, SLAM, SMOI ,KT, GBI , YMOD) 

Purpose:  The  stiffness  matrix  for  an  unstiffened  rectangular  plate  element 

(NTYPE=1) , or  an  x-direction  stiffener  element  NTYPE=2) , or  a 
y-direction  stiffener  element  (NTYPE=3)  are  formed  m this 
subroutine.  The  pertinent  theoretical  basis  for  the  plate  element 
is  found  m Subsection  A.l.3.3.  The  theoretical  basis  for 
stiffener  elements  is  found  in  Subsection  A. 2. 3. 


Arguments : 

NTYPE 

ANU 

XL 

YL 

TH  f 

SL 

CSA 


: See  Subroutine  LMASSP. 

: Poisson's  ratio,  V,  for  the  element  material  type. 


See  Subroutine  LMASSP. 
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SLAM 


SMOI 

KT(24,24) 
GBI (24, 24) 


YMOD 


: The  distance  (in  the  z direction)  from  the  centerline 

of  the  stiffener  to  the  midsurface  of  the  plate  (for 
NTYPE=2  or  3)  . 

: See  Subroutine  LMASSP. 

: The  calculated  element  stiffness  matrix. 

s The  matrix  G ^ relating  generalized  displacement 
parameters  a to  normalized  nodal  degrees  of  freedom 
q;  see  Eq.  A. 19. 

: Young’s  modulus  for  the  element  material  type. 


SUBROUTINE  SFDM(SL, EL, XL, YL, GBI , STD) 

T T T 

Purpose:  This  subroutine  generates  the  row  matrices  D , D , ...  D of 

Eqs.  A. 10  used  to  evaluate  strain  components  (or  increments  in 
strain)  at  a specified  location  within  an  element  in  terms  of 
the  element  nodal  generalized  displacements. 


Arguments : 


GBI (24, 24) 
STD (9,24) 


X V 

The  normalized  location  5 =*  — , n **  rv  respectively, 

_ _ cl  Id 

T T T 

at  which  D , , ...  Dg  are  to  be  evaluated. 

The  dimensions  a and  b of  the  element  in  the  x and 
y directions,  respectively. 

: See  Subroutine  RPLATE. 

: The  strain  m terms  of  displacement  matrix.  The  rows 

T T T 

correspond  to  D^,  D 2,  ...  Dg  of  Eqs.  A. 10  and  the 
column  correspond  to  q^,  q^,  q^,  •••  (t*1®  element 

generalized  degrees  of  freedom) . 


SUBROUTINE  SOLV(STIFM, G , SOL , NCOL , KROW , NDEX ) 

Purpose:  This  subroutine  performs  the  forward  and  backward  substitution 

operations  required  to  complete  the  solution  of  a system  of  linear 
simultaneous  equations  by  the  triple- factoring  method.  This 
subroutine  must  be  used  in  conjunction  with  Subroutine  FACT. 
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Arguments : 


STIFM(I) 

G(I) 

SOL (I) 

NCOL(I) 
KROW(I)  > 
NDEX(I) 


The  factored  coefficient  matrix  obtained  from 
Subroutine  FACT. 

: The  right-hand  side  vector  (known)  of  the  system  of 

equations . 

: The  solution  vector  of  the  system  of  equations. 

See  Subroutine  FACT. 


SUBROUTINE  SPRING (EK, SS , ISIDE , XL, YL) 

Purpose:  This  subroutine  calculates  the  effective  element  stiffness  matrix 

corresponding  to  line  translational  and  torsional  linear  restoring 
springs  applied  along  the  side  of  a rectangular  plate  element. 

The  theoretical  basis  for  these  calculations  is  given  m 
Subsection  A. 1.3. 5. 


Arguments : 

EK(24, 24) 


SS  (5) 


ISIDE 


: The  effective  element  stiffness  matrix  corresponding 

to  line  restoring  springs  applied  to  an  element. 

: The  five  elastic  spring  constants  (K  ,k  ,k  , k_ , k.) 

u v w 0 ip 

of  the  line  restoring  springs. 

: The  element  side  number  (1,2,3,  or  4)  to  which  the 

line  restoring  springs  are  attached. 

The  x and  y dimensions,  respectively,  of  the  plate 
element  to  which  the  line  springs  are  attached. 


SUBROUTINE  STRES A (DISP , DELD , FLVA , ITT , NODE , MAXEL , MAX2 , TSGEE , PLASTW , XGI , YGI , 

NP , STDEA, GBI , NMSUB , DSR, PSR, SUBW, SNOM, NXST , XSPROP , LNXS , MATXS , NZS ) 

Purpose:  This  subroutine  calculates  the  effective  nodal  force  vector  for  an 

x-direction  stiffener  element  corresponding  to  nonlinear  geometric 
and  material  effects.  The  expression  for  this  vector  is  given 
by  Eq.  A. 97. 
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Arguments: 


DISP(I) 

DELD(I) 

FLVA(I) 


ITT 

NODE (I)  1 
MAXEL  J 

MAX2 

TSGEE  (I,  J,K) 


PLASTW 

XGI(I) 
YGI(I)  l 
NP  (I , J)  _ 

STDEA (9, 24) 

GBI (24, 24) 

NMSUB(I) 

DSR(I) 
PSR(I) 

SUBW(I,K) 

SNOM{I , k) 


NXST 


The  displacement  vector  q^+^  at  the  current  time  step 

The  vector  of  displacement  increments  Aq^+^ 

The  vector  of  equivalent  nodal  forces  for  the  structure 
corresponding  to  geometric  and  material  nonlinear 
effects. 

The  current  cycle  number. 

See  Subroutine  MAINP  in  Subsection  3.2.1. 


— cr*  — a* 

3m+l  3m 


Corresponds  to  MNXST  on  Card  1 of  Subsection  4.2. 

Matrix  to  store  current  stress  values  at  Gaussian 
integration  (sublayer  stations,  corresponding  to 
matrix  TAGSS(I,J,K)  of  Subroutine  MAINP  in  Subsection 
3.2.1. 

A scalar  corresponding  to  plastic  work  contributions. 


See  Subroutine  MAINP  in  Subsection  3.2.1. 


Strains  m terms  of  displacement  matrix  corresponding 
to  STD (9, 24)  of  Subroutine  SFDM. 

See  Subroutine  RPLATE. 

See  Subroutine  PRINT  m Subsection  3.2.1. 

The  strain-rate  parameters,  D and  p,  respectively, 
(see  Eq.  A. 122)  of  the  Ith  material  type. 

See  Subroutine  PRINT  in  Subsection  3.2.1. 

The  static  yield  stress  a for  the  kth  mechanical 

°k 

sublayer  of  the  Ith  material  type. 

See  Subroutine  PRINT  of  Subsection  3.2.1. 
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XSPROP ( J, I) 

LNXS(I) 

MATXS(I) 


See  Subroutine  MAINP  m Subsection  3.2.1. 


N2S  : See  Subroutine  PRINT  in  Subsection  3.2.1. 

SUBROUTINE  STRESC (DISP , DELD , FLVA , ITT , NODE , MAXEL , MAX2 , TS GEE , PLASTW , XGI , YGI , 

NP , STDEC , GBI , NMSUB , DS  R, PSR, SUBW , SNOM , NYST , YSPROP , LNYS , MATYS , NZS ) 

Purpose:  Calculates  the  effective  nodal  force  vector  for  a y-direction 

stiffener  element  corresponding  to  nonlinear  geometric  and 
material  effects  (Eq.  A.9S) . 

Arguments:  Many  of  the  arguments  are  identical  to  those  of  Subroutine  STRESA. 

Only  those  which  are  different  are  defined  here. 

MAX2  : Corresponds  to  MNYST  on  Card  1 of  Subsection  4.2. 

TSGEE ( I , J, K)  : See  Subroutine  MAINP  m Subsection  3.2.1. 

STDEC (9, 24)  : Strains  m terms  of  displacement  matrix  corresponding 

to  STD (9, 24)  of  Subroutine  SFDM. 

NYST  : See  Subroutine  PRINT  in  Subsection  3.2.1. 

YSPROP (J, I)  l 

LNYS (I)  > See  Subroutine  MAINP  m Subsection  3.2.1. 

MATYX(I)  J 

SUBROUTINE  STRESP (DISP , DELD , FLVA, ITT , NODE , MAXEL , TAUSS , TAUEE , TAUSE ,EPSSI , 

EPSSO , EPEEI , EPEEO , EPSEI , EPSEO , PLASTW , XGI , YGI , NP , STDEP , GBI , NMSUB , DSR, PSR, 

SUBW, SNOM, NZS) 

Purpose:  Calculates  the  effective  nodal  force  vector  for  a plate  element 

corresponding  to  geometric  and  material  nonlinear  effects  (Eq.  A. 35) . 
The  theoretical  basis  for  these  calculations  is  given  in  Subsection 
A. 1.3. 2. 
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Arguments : 


DISP(I) 

DELD(I) 

FLVA(I) 

ITT 


See  Subroutine  STRESA 


NODE (I) 
MAXEL 

TAUSS (I, J,K) 
TAUEE(I, J,K) 
TAUSE(I, J,K) 
EPSSI (K, I) 
EPSSO(KrI) 
EPEEI (K, I) 
EPEEO (K, I) 
EPSEI (K, I) 
EPSEO (K, I) 


See  Subroutine  MAINP  in  Subsection  3.2.1. 


PLASTW 

XGI(I) 
YGKI) 
NP(I,J) 

STDEP (9,24) 


See  Subroutine  STRESA. 

See  Subroutine  MAINP  m Subsection  3.2.1. 

Strains  m terms  of  displacement  matrix  corresponding 
to  STD(9,24)  of  Subroutine  SFDM. 


GBI (24, 24) 
NMSUB(I) 

S 

DSR(I) 

> 

PSR(I) 

✓ 

SUBW (I , K) 
SNOM(I,K) 
NZS: 


: See  Subroutine  RPLATE. 

: See  Subroutine  PRINT  in  Subsection  3.2.1. 

See  Subroutine  STRESA 

: See  Subroutine  PRINT  in  Subsection  3.2.1. 

: See  Subroutine  STRESA. 

: See  Subroutine  PRINT  in  Subsection  3.2.1. 
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SUBROUTINE  TSTEP  CSTF , AMASS , NBC , BC , ICOL, INUM, KROW, NDEX, TRIAL , SOLN) 

Purpose:  Subroutine  used  to  calculate  a reference  time-step  bound  for  the 

Houbolt  operator.  The  maximum  natural  frequency  ^max  of  the 

system  is  calculated  from  0)2[M]{q*}  = [K]{q*}  using  an  iterative 

+ CD 

technique.  The  central-difference  time-step  bound  At  = 2/0) 

max  max 

corresponding  to  linear  systems  is  calculated  and  output.  To 

account  for  nonlinear  effects,  a reference  time-step  bound  of 
CD 

0.8 (At  ) is  calculated  and  output.  See  Subsection  2.3  for  a 
max 

discussion  of  the  use  of  these  reference  time-step  bounds. 


Arguments : 
STF(J) 

AMASS (I) 

NBC ( J) 

BC  ( J) 

ICOL (K) 

> 

INUM(K) 
KROW (K) 
NDEX(K) 

TRIAL (I) 
SOLN (I) 


The  assembled  stiffness  matrix  stored  m compacted 
vector  form  (see  Subsection  4.1.5) . 

The  assembled  mass  matrix  for  the  structure, 
stored  as  a vector. 


See  Subroutine  MAINP  m Subsection  3.2.1. 


Trial  and  updated  eigenvector  solutions  used  m the 
iteration  scheme. 


The  inverse  power  method  is  used  to  calculate  0J 

max 


43 


SECTION  4 


USE  OF  THE  PLATE  PROGRAM 

4.1  Discussion  of  Conventions  Adopted  m the  PLATE  Program 

The  PLATE  program  is  designed  to  predict  the  large-deflection,  elastic- 
plastic,  transient  responses  of  stiffened  or  unstiffened  flat  plates  sub- 
jected to  prescribed  initial  velocity  distributions  and/or  prescribed  extern- 
ally-applied time-varying  load  distributions.  The  user- interaction  required 
to  execute  a run  of  the  PLATE  code  falls  into  three  categories: 

(1)  Preparation  of  input  data  cards 

(2)  Assigning  of  array  dimensions  m the  dummy  MAIN 
program 

(3)  Preparation  of  internal  logic  for  subroutines  INCOND 
and  EXTL. 

Instructions  for  preparation  of  input  cards  are  given  in  Subsections  4.2 
through  4.4,  for  array  dimensioning  in  Subsection  4.5,  and  for  preparation 
of  subroutines  INCOND  and  EXTL  m Subsection  4.6. 

The  PLATE  program  provides  the  user  with  the  option  of  generating  struc- 
tural discretization  information  by  using  an  automated  mesh  generation  pro- 
cedure or  a manual  mesh  generation  procedure.  If  the  automated  mesh  genera- 
tion procedure  is  employed,  substantially  less  input  data  are  required,  and 
bookkeeping  tasks  such  as  nodal  and  element  numbering,  generation  of  con- 
strained degrees  of  freedom,  etc.  are  performed  internally  according  to  well- 
defined  conventions.  The  purpose  of  the  present  subsection  is  to  define  those 
problems  for  which  automated  mesh  generation  can  be  employed,  and  to  discuss 
the  numbering  conventions  used  when  automated  mesh  generation  is  employed. 

Also  discussed  are  the  schemes  adopted  for  internal  renumbering  of  stiffeners 
and  storage  of  the  assembled  stiffness  matrix. 

4.1.1  Use  of  Auto-Mesh  Generation  vs.  Use  of  Manual 
Mesh  Generation 

An  automated  mesh  generation  procedure  has  been  provided  m the  PLATE 
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program  in  an  attempt  to  simplify  the  preparation  of  input  data;  this  should, 
in  turn,  result  in  fewer  input  data  card  errors.  However,  the  auto-mesh  gen- 
eration procedure  can  be  used  only  when  all  of  the  following  conditions  are 
met: 

(1)  The  planform  of  the  plate  structure  must  be  rectangular 
(or  square) 

(2)  The  plate  must  have  no  void  regions  (or  cutouts) 

(3)  Prescribed  (zero)  displacement  boundary  conditions 
must  be  imposed  only  along  the  outer  boundaries  of 
the  rectangular  plate  structure 

(4)  Only  one  boundary  condition  option  (i.e.,  free,  or 
clamped,  etc.)  may  be  specified  on  each  side  of  the 
rectangular  plate  structure,  and  the  specified 
boundary  condition  must  apply  along  the  entire  side 
of  the  rectangular  plate  structure 

If  one  or  more  of  these  conditions  is  not  met,  then  the  manual  mesh-generation 
procedure  must  be  employed.  In  either  case,  it  should  be  noted  again  that  the 
basic  plate  element  used  in  the  PLATE  program  is  of  rectangular  planform;  when 
using  either  the  automated  or  manual  mesh  generation  procedure,  the  plate 
structure  must  be  modeled  by  a series  of  compatibly-connected  rectangular 
elements. 

4.1.2  Conventions  Adopted  in  the  Auto-Mesh 
Generation  Procedure 

when  the  auto-mesh  generation  procedure  is  employed,  the  numbering  of 
element  nodes,  global  nodes,  elements,  and  plate  sides  is  performed  internally 
according  to  well-defined  conventions;  these  conventions  are  illustrated  in 
Fig.  10.  The  rectangular  plate  lies  in  the  global  X-Y  plane,  with  the  X-axis 
to  the  right  and  the  Y-axis  up,  so  that  the  global  Z-axis  would  be  out  of  the 
paper.  The  four  sides  of  the  plate  structure  are  numbered  sequentially  in  a 
counterclockwise  fashion  beginning  with  the  side  of  the  plate  having  the 
minimum  Y=constant  value.  Note  also  that  the  sides  of  the  plate  structure 
and  the  sides  of  all  plate  elements  are  parallel  to  the  X or  Y axis.  Elements 
and  nodes  are  numbered  sequentially  beginning  at  the  lower,  left-hand  corner 
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of  the  plate;  the  first  row  of  nodes  (elements)  is  numbered  left  to  right, 
followed  by  the  second  row  of  nodes  (elements)  numbered  left  to  right,  the 
third  row  of  nodes  (elements)  numbered  left  to  right,  etc.  until  all  rows 
of  nodes  (elements)  have  been  processed.  When  this  process  is  completed, 
the  number  assigned  to  the  node  at  the  upper  right-hand  corner  of  the  plate 
structure  will  be  equal  to  the  total  number  of  nodes  m the  finite-element 
mesh.  Similarly,  the  number  assigned  to  the  element  in  the  upper,  right-hand 
corner  of  the  plate  structure  will  be  equal  to  the  total  number  of  elements 
in  the  finite-element  mesh. 

Once  the  global  node  numbers  have  been  assigned,  the  global  degree-of- 
freedom  numbers  are  assigned  by  taking  (u, v, w, 0 ,ip, X)  at  global  node  number  1, 
followed  by  (u, v,w, d,ip,x)  at  global  node  number  2,  etc.,  until  all  global 
nodes  have  been  processed.  The  total  number  of  degrees  of  freedom  in  the 
finite-element  mesh,  NDT,  is  thus  given  by  NDT=6*NOT,  where  NOT  is  the  total 
number  of  nodes  in  the  finite-element  mesh.  As  an  example  of  the  corres- 
pondence between  global  degree-of-freedom  number  and  displacement  parameter, 
the  global  degree-of-freedom  number  (NDF)  assigned  to  the  w displacment 
parameter  at  global  node  number  9 would  be  NDF= (9-1) *6+3=51.  In  general,  the 
global  degree-of-freedom  number  assigned  to  displacement  parameter  J (J=l,2, 

3,  6 corresponding  to  u,  v,  w,9 ,ip,  and  x at  a node,  respectively)  at 

global  node  number  I is  given  by  NDF=(I-1) *6+J. 

For  purposes  of  assembling  element  matrices  (stiffness,  mass,  loads, 
etc.)  into  the  global  (system)  matrices,  certain  "nodal  connectivity"  informa- 
tion is  required.  In  particular,  the  auto-mesh  procedure  determines  for  each 
element  the  global  node  number  associated  with  each  of  the  four  element  nodes. 
As  shown  m Fig.  10,  the  element  nodes  are  numbered  counterclockwise  1 
through  4 beginning  with  the  element  node  in  the  lower  left-hand  corner  of  the 
element.  As  an  example,  the  nodal  connectivity  information  for  element  5 of 
Fig.  10  would  be  as  follows; 

ELEMENT  NODE  NUMBER  GLOBAL  NODE  NUMBER 

1 6 

2 7 

3 11 

4 10 
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This  nodal  connectivity  information  is  internally  generated  in  the  auto-mesh 
procedure.  However,  as  will  be  discussed  shortly,  when  the  manual  mesh  gen- 
eration procedure  is  employed,  the  user  is  required  to  input  this  nodal  con- 
nectivity information. 

A thorough  understanding  of  the  above  discussed  numbering  conventions 
is  essential  for  the  accurate  preparation  of  input  data  cards,  dimensioning  of 
arrays,  and  preparation  of  subroutines  INCOND  and  EXTL.  The  numbers  assigned 
to  global  nodes,  elements,  degrees  of  freedom,  plate  sides,  etc.  are  never 
modified  m the  PLATE  program.  Thus,  all  input  and  output  refers  to  this 
original  numbering  scheme. 

Two  types  of  meshes  can  be  generated  using  the  auto-mesh  procedure: 

(1)  meshes  for  which  the  side  lengths  of  elements  in  the  mesh  differ  (non- 

uniform  mesh) , and  (2)  meshes  for  which  all  elements  m the  mesh  have  the 

same  side  dimensions  (uniform  mesh) . The  significance  of  this  "option"  is  in 
terms  of  the  generation  of  the  global  (X,Y)  coordinates  of  each  node,  and  the 
location  of  the  origin  of  the  global  X-Y  axis  system.  If  a uniform  mesh  is 
employed,  the  origin  of  the  global  X-Y  axis  system  is  automatically  chosen  to 
be  at  global  node  number  1 (i.e. , global  node  number  1 has  (X,Y)  coordinates 
of  (0,0)),  and  the  coordinates  of  each  node  are  automatically  generated  by 
knowing  the  number  of  element  subdivisions  and  the  plate  dimensions  along 
sides  1 and  4 of  the  plate.  If  a non-uniform  mesh  is  employed,  the  origin  of 
the  global  X-Y  axis  system  is  chosen  by  the  user,  and  in  order  to  generate 

the  global  X-Y  coordinates  of  each  node  m the  finite  element  mesh,  the  user 

is  required  to  input  the  global  X coordinate  of  each  node  along  side  1 of  the 
plate  structure  and  the  global  Y coordinate  of  each  node  along  side  4 of  the 
plate  structure. 

For  the  auto-mesh  procedure,  prescribed  displacement  boundary  conditions 
are  generated  by  choosing  a boundary  condition  option  (see  Subsections  2.1  and 
4.2)  for  each  side  of  the  plate.  A list  of  constrained  degrees  of  freedom 
is  then  internally  generated  by  processing  each  of  the  plate  sides  m order 
and  identifying  those  degrees  of  freedom  at  each  node  of  side  1,  including 
the  end  nodes  of  side  1,  which  are  constrained  as  a result  of  the  boundary 
condition  option  selected  for  side  1 of  the  plate.  In  general,  this  list  of 
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constrained  degrees  of  freedom  will  contain  duplicates  because  the  corner 
nodes  of  the  plate  are  processed  twice  (e.g. , if  side  1 of  the  plate  is 
ideally  clamped  and  side  2 of  the  plate  is  pin-fixed,  then  the  degree  of  free- 
dom numbers  corresponding  to  displacement  parameters  u,  v,  w,^,  and  ^ at  the 
node  where  sides  1 and  2 meet  will  appear  twice  in  the  list  of  constrained 
degrees  of  freedom) . Thus , a sorting  procedure  is  applied  to  this  original 
list  of  constrained  degrees  of  freedom,  such  that  the  final  list  of  con- 
strained degrees  of  freedom  contains  no  duplicates  and  the  constrained  degree 
of  freedom  numbers  appear  in  ascending  order. 

The  previous  discussion  pertains  to  the  auto-mesh  generation  procedure 
only;  a similar  discussion  pertaining  to  the  manual-mesh  generation  procedure 
is  given  in  the  next  subsection.  Also,  no  mention  has  been  made  of  stiffeners 
m the  present  subsection;  a discussion  of  conventions  for  stiffeners  for  both 
auto  and  manual  mesh  generation  procedures  is  given  in  Subsection  4.1.4. 

4.1.3  Discussion  of  the  Manual  Mesh  Generation  Procedure 

The  manual  mesh  generation  procedure  has  been  included  m the  PLATE 
code  to  accommodate  as  general  a plate  structure  as  possible.  The  only 
restrictions  are  that  (1)  the  plate  be  of  uniform  thickness,  (2)  the  plate 
be  modeled  by  compatibly-connected  rectangular  elements,  (3)  the  plate  be 
initially  flat,  and  (4)  the  plate  lie  initially  m a plane  parallel  to  the 
global  X-Y  plane.  The  price  to  be  paid  for  this  somewhat  more  general  analy- 
sis capability  is  the  increased  effort  required  to  prepare  the  input  data. 

In  particular,  the  user  must  assign  element  and  global  node  numbers,  input 
the  nodal  connectivity  information,  input  the  global  coordinates  of  each  node 
in  the  mesh,  and  input  each  constrained  degree  of  freedom.  Each  of  these 
areas  will  now  be  discussed. 

The  user  is  required  first  to  define  the  mesh  pattern  chosen  for  the 
plate  structure  under  consideration.  Then  the  elements  are  numbered  (from  1 
to  NET,  where  NET  is  the  total  number  of  elements  m the  finite-element 
mesh)  using  any  convenient  scheme.  Global  node  numbers  (from  1 to  NNT,  where 
NNT  is  the  total  number  of  nodes  in  the  finite-element  mesh)  are  then 
assigned  to  each  node  on  the  plate  structure.  Note  that  m order  to  minimize 
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the  computer  core  storage  requirements  for  the  assembled  stiffness  matrix 
and  mass  matrix  (if  consistent  mass  modeling  is  chosen) , the  global  nodes 
should  be  numbered  m such  a way  as  to  minimize  the  average  semi-bandwidth 
of  the  assembled  stiffness  matrix  (see  Subsection  4.1.5  for  a discussion  of 
the  storage  of  the  assembled  stiffness  matrix) . Having  defined  the  element 
and  global  node  numbers , the  nodal  connectivity  information  for  each  element 
in  the  finite-element  mesh  may  be  prepared;  that  is,  the  global  node  number 
associated  with  the  Ith  element  node  (I  = 1,2, 3,4)  is  defined.  It  is  impor- 
tant to  note  that  the  element  nodal  numbering  convention  discussed  in  Sub- 
section 4.1.2  and  shown  in  Fig.  10  must  be  used  when  the  manual  mesh  genera- 
tion is  employed.  Global  degree-of-freedom  numbers  are  assigned  internally 
as  is  done  in  the  auto-mesh  generation  procedure;  that  is,  by  taking  (u,v, 
w,9,<J;,x)  at  global  node  1,  followed  by  (u,v,w,9,^,x)  at  global  node  2,  etc. 
until  all  global  nodes  have  been  processed. 

The  user  is  also  required  to  input  the  global  X and  Y coordinates  of 
each  global  node  m the  finite-element  mesh.  The  origin  of  the  global  XYZ 
coordinate  system  may  be  conveniently  chosen  by  the  user.  The  positive 
coordinate  directions  must  be  chosen  so  that  (1)  when  viewing  the  finite- 
element-modeled  plate  from  the  top,  the  global  X direction  is  to  the  right 
and  the  global  Y direction  is  up  and  (2)  all  element  sides  are  parallel  to 
either  the  global  X or  Y axis. 

Prescribed  displacement  constraint  conditions  on  the  plate  structure 
are  defined  by  specifying  the  global  degree-of-freedom  number  associated 
with  each  generalized  nodal  displacement  parameter  which  is  to  be  constrained 
(i.e.,  zero  displacement).  The  global  degree-of-freedom  numbering  convention 
is  related  to  the  global  node  numbering  scheme  chosen  by  the  user  as  previ- 
ously discussed.  Any  degree  of  freedom  at  any  node  of  the  structure  may  be 
constrained.  The  list  of  constrained  displacement  parameters  corresponding 
to  various  physical  constraint  conditions,  presented  in  Subsection  2.1,  may 
be  of  assistance  to  the  user.  The  user  is  required  to  input  the  constrained 
degree  of  freedom  numbers  m ascending  numerical  order  with  no  duplicates. 

The  preceding  discussion  is  intended  as  a general  overview  of  the 
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manual  mesh  generation  procedure.  Detailed  information  regarding  the  use 
of  the  manual  mesh  procedure  is  given  in  Subsection  4.3.  Also,  the  topic 
of  stiffeners  has  not  been  discussed  m the  present  subsection;  a unified 
discussion  of  stiffener  conventions  for  both  the  auto-mesh  and  manual  mesh 
generation  procedures  is  presented  m the  next  subsection. 

4.1.4  Numbering  Convention  for  Stiffeners 

The  PLATE  computer  program  accommodates  the  analysis  of  integrally- 
stiffened  flat  plates  where  the  stiffeners  are  required  to  be  m directions 
parallel  to  the  global  X or  Y axis.  These  stiffeners  are  designated  as  be- 
ing either  "complete"  or  "additional"  stiffeners.  Both  complete  and  addi- 
tional stiffeners  may  be  specified  when  using  the  auto-mesh  generation  pro- 
cedure, whereas  only  additional  stiffeners  may  be  specified  when  using  the 
manual  mesh  generation  procedure. 

In  order  for  a stiffener  to  be  designated  a complete  stiffener,  it 
must  (1)  span  the  plate  completely,  (2)  be  of  uniform  cross  section,  and 
(3)  be  made  of  a single  material.  Illustrative  examples  of  complete  stiffen- 
ers are  given  m Fig.  11.  The  properties  of  a complete  stiffener  are  charac- 
terized by  a knowledge  of  the  global  location  of  the  centerline  of  the  stif- 
fener, its  cross-sectional  dimensions,  the  distance  from  the  midplane  of  the 
plate  to  the  neutral  axis  of  the  stiffener  (offset  distance),  and  the  materi- 
al properties  of  the  stiffener  (see  Figs.  3,  11,  and  12) . In  order  for  a 
stiffener  to  be  designated  an  additional  stiffener  it  must  (1)  completely 
span  one  element  in  the  finite-element  mesh,  (2)  be  of  uniform  cross  sec- 
tion, and  (3)  be  made  of  a single  material.  Input  information  required 
for  additional  stiffeners  includes  cross-sectional  dimensions,  offset  dis- 
tance, material  type,  element  on  which  the  stiffener  is  located,  and  the 
relative  position  of  the  stiffener  on  the  element  (see  Fig.  13). 

In  the  PLATE  program,  the  numbering  of  X-direction  stiffeners  is  per- 
formed independently  of  the  Y-direction  stiffeners;  i.e.,  the  X-direction  stif- 
feners are  numbered  from  1 to  the  total  number  of  X-direction  stiffeners  and 
the  Y-direction  stiffeners  are  numbered  from  1 to  the  total  number  of  Y- 
direction  stiffeners.  In  subsequent  discussions  in  this  subsection 
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of  stiffener  numbering,  conventions  for  only  X-direction  stiffeners  will  be 
considered;  however,  the  user  should  note  that  the  discussion  applies  equally 
to  Y-direction  stiffeners. 

As  discussed  in  Subsection  2.1,  a stiffener  is  modeled  as  a beam-type 
"element"  compatibly  attached  to  a flat  plate  element  along  lines  parallel 
to  the  global  X or  Y axes.  The  stiffness  and  mass  properties  (as  well  as 
equivalent  loads  m the  timewise  solution)  of  the  stiffeners  are  obtained  by 
evaluating  the  element  stiffness  and  mass  matrices  for  each  individual  stif- 
fener spanning  a single  plate  element.  The  element  matrices  are  then  assembled 
into  the  global  stiffness  and  mass  matrices.  The  positioning  of  the  stiffener 
element  matrices  m the  global  matrices  corresponds  exactly  to  the  positioning 
m the  global  matrices  of  the  element  stiffness  and  mass  matrices  of  the  plate 
element  to  which  the  stiffener  is  attached. 

As  a result  of  the  above  procedure,  all  stiffeners  (complete  and  addi- 
tional) are  redefined  as  "individual"  stiffeners  and  assigned  individual  stif- 
fener numbers;  this  redefining  and  renumbering  of  stiffeners  is  performed 
internally  in  the  PLATE  program.  The  properties  of  an  individual  stiffener 
are  identical  to  those  for  an  additional  stiffener  (i.e.,  completely  span  one 
plate  element,  be  of  uniform  cross  section,  and  be  made  of  a single  material) . 
Thus,  a complete  stiffener  (spanning  the  plate  structure)  may  be  considered 
to  be  a series  of  individual  stiffeners.  The  convention  used  for  renumbering 
stiffeners  as  individual  stiffeners  will  be  discussed  next,  first  for  the 
auto-mesh  procedure  and  then  for  the  manual  mesh  generation  procedure.  It  is 
essential  that  the  user  understand  this  renumbering  procedure  because  subse- 
quent input  data,  various  array  dimensions,  and  all  program  output  refers  to 
the  individual  stiffeners.  Again,  note  that  the  following  discussion  refers 
only  to  X-direction  stiffeners,  but  applies  equally  to  Y-direction  stiffeners. 

When  using  the  auto-mesh  generation  procedure,  both  complete  and  ad- 
ditional X-direction  stiffeners  may  be  specified.  Complete  stiffeners  are 
implicitly  user-numbered  (from  1 to  NAST,  where  NAST  is  the  total  number  of 
complete  X-direction  stiffeners)  by  the  order  m which  the  input  data  for 
complete  stiffeners  are  specified.  Similarly,  additional  stiffeners  are 
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specified.  Similarly,  additional  stiffeners  are  implicitly  user-numbered 
(from  1 to  NAXS,  where  NAXS  is  the  total  number  of  additional  X-direction 
stiffeners)  by  the  order  in  which  the  input  data  for  additional  stiffeners 
are  specified.  The  following  notation  will  be  useful  m the  discussion  of 
the  stiffener  renumbering  procedure: 

CSn  = nth  complete  X-direction  stiffener 

ASn  = nth  additional  X-direction  stiffener 

ISn  = nth  individual  X-direction  stiffener 

NEAD  = total  number  of  plate  elements  m X-direction 

The  numbering  convention  for  individual  stiffeners  is  illustrated  m Fig.  14 
and  is  defined  as  follows.  First  CS1  is  subdivided  into  a series  of  NEAD 
individual  stiffeners  numbered  left  to  right  from  1 through  NEAD.  Next,  CS2 
is  subdivided  into  a series  of  NEAD  individual  stiffeners  numbered  left  to 
right  from  (NEAD+1)  to  2*NEAD.  This  process  is  repeated  until  each  of  the 
NAST  complete  X-direction  stiffeners  has  been  subdivided  into  individual  stif- 
feners. In  general,  3th  subdivision  (3=1, 2, 3 ...  NEAD)  of  the  kth  complete 
X-direction  stiffener  (k=l,2,3,  ...  NAST)  will  be  assigned  the  individual 
stiffener  number  ISn= (CSk-1) *NEAD+3 . After  the  processing  of  all  complete 
X-direction  stiffeners,  individual  stiffener  numbers  from  1 through  (NAST*NEAD) 
will  have  been  assigned.  Next,  the  additional  X-direction  stiffeners  (recall 
that  additional  stiffeners  have  the  same  properties  as  individual  stiffeners) 
are  processed  m the  order  m which  input  data  for  additional  stiffeners 
have  been  specified.  That  is,  the  numbering  of  individual  stiffeners  continues 
beginning  with  AS1,  then  AS2,  etc.,  until  all  NAXS  additional  X-direction  stif- 
feners have  been  renumbered.  In  general,  the  kth  additional  X-direction  stif- 
fener is  assigned  the  individual  stiffener  number  ISn= (NAST*NEAD) +k.  The  number- 
ing of  individual  X-direction  stiffeners  is  completed  once  all  additional  X- 
direction  stiffeners  have  been  processed.  The  total  number  of  individual  X- 
direction  stiffeners  (NXST)  is  thus  given  by  NXST=NAST*NEAD+NAXS . 

The  above  discussion  applies  equally  to  Y-direction  stiffeners  with 
NEAD  replaced  by  NECD  (the  total  number  of  plate  elements  in  the  Y-direction) , 
NAST  replaced  by  NCST  (total  number  of  complete  stiffeners  in  the  Y-direction) , 
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and  NAXS  replaced  by  NAYS  (total  number  of  additional  stiffeners  in  the  In- 
direction) . Also,  CSn,  ASn,  and  ISn  are  now  assumed  to  correspond  to  Y- 
direction  stiffeners.  The  renumbering  of  Y-direction  stiffeners  results  in 
the  assigning  of  individual  Y-direction  stiffener  numbers  from  1 through 
NYST,  where  NYST  is  the  total  number  of  individual  Y-direction  stiffeners  and 
is  given  by  NYST=NCST*NECD+NAYS. 

When  the  manual  mesh  generation  procedure  is  used,  only  additional  X 
and/or  Y-direction  stiffeners  may  be  specified  (i.e.,  the  option  for  complete 
stiffeners  is  not  included  m the  manual  mesh  generation  procedure) . Also, 
it  should  be  recalled  that  the  definitions  of  additional  and  individual  stif- 
feners are  identical.  As  a result,  there  is  no  need  for  internal  renumbering 
of  stiffeners  when  the  manual  mesh  generation  procedure  is  employed.  The 
numbering  of  individual  X-direction  stiffeners  is  identical  to  the  user- 
numbering scheme  for  additional  X-direction  stiffeners  implicitly  chosen  by 
the  order  in  which  the  data  for  stiffeners  are  input;  the  same  is  true  for 
individual  Y-direction  stiffeners.  Thus,  the  user  is  directly  providing  input 
data  for  the  individual  X and/or  Y-direction  stiffeners  when  using  the  manual 
mesh  generation  procedure. 

4.1.5  Storage  of  the  Assembled  Stiffness  Matrix 

A brief  description  of  the  manner  m which  the  assembled  stiffness 
matrix,  K is  stored  is  presented  m this  subsection.  An  understanding  of 
this  storage  technique  is  required  m order  to  provide  the  correct  dimensions 
for  the  assembled  stiffness  matrix  and  assembled  mass  matrix  (if  consistent 
mass  modeling  is  chosen) . 

The  assembled  stiffness  matrix  is  formed  in  such  a manner  that  the  ith 
row  of  this  matrix  corresponds  to  the  ith  global  degree  of  freedom,  and  the 
3 th  column  of  this  matrix  corresponds  to  the  jth  global  degree-of- freedom 
number.  In  all  cases  the  assembled  stiffness  matrix  is  symmetric,  so  that 
only  the  lower  triangular  portion  of  K need  be  stored.  In  general,  this 
matrix  is  also  banded  and  sparsely  populated.  A portion  of  a hypothetical 
assembled  stiffness  matrix  is  shown  in  Fig.  15a;  the  left-hand  boundary  of 
the  shaded  area  represents  the  first  nonzero  entry  m each  row  and  the 
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right-hand  boundary  of  the  shaded  area  represents  the  last  nonzero  in  each 


row.  For  present  purposes  the  total  bandwidth  of  the  ith  row  m K is  de- 
fined as  the  total  number  of  entries  in  the  ith  row  between  the  first  nonzero 
entry  and  the  last  nonzero  entry  (inclusive) , and  the  semi-bandwidth  of  the 
ith  row  m K is  defined  as  the  total  number  of  entries  m the  ith  row  between 
the  first  nonzero  entry  and  the  diagonal  term  (inclusive) . In  the  PLATE  pro- 
gram, the  assembled  stiffness  matrix  is  stored  as  a vector  (one-dimensional 
array)  by  rows,  m order,  beginning  m each  row  with  the  first  nonzero  entry 
and  ending  with  the  diagonal  term(i.e.,  the  semi-bandwidth  entries  of  each 
row  are  stored,  row  by  row,  m a vector;  the  leading  zero  terms  in  each  row 
are  not  stored) . For  example,  the  storage  of  the  hypothetical  K matrix  of 
Fig.  15a  is  shown  m Fig.  15b. 

In  order  to  dimension  the  vector  containing  the  assembled  stiffness 
matrix  properly,  the  user  must  obtain  an  estimate  of,  for  example,  the 
average  semi-bandwidth.  This  requires  some  knowledge  of  the  "assembly"  pro- 
cess in  the  finite-element  method  (see,  for  example,  Ref.  10) . Alternatively, 
an  abbreviated  run  of  the  PLATE  program  can  be  made  to  obtain  the  exact  stor- 
age requirements  for  the  assembled  stiffness  matrix;  guidelines  are  provided 
in  Subsection  4.8. 

4.2  Input  Information  and  Procedure  for  the  PLATE  1 Code  Using 
Auto-Mesh  Generation 

The  information  required  to  punch  a set  of  data  cards  for  a run  of  the 
PLATE  1 computer  program  is  presented  m a step-by-step  manner  in  this  section. 
The  variables  to  be  punched  on  the  nth  data  card  are  shown,  and  to  the  right 
is  the  format  to  be  used  for  that  card;  the  definition  of  and  some  restric- 
tions for  each  variable  are  given  directly  below.  This  is  done  for  each 
card,  m turn,  until  all  are  described.  The  notation  "Card"  implies  that 
only  one  card  is  required  to  input  the  data;  the  notation  "card(s)"  implies 
that  one  or  more  cards  may  be  required  to  input  the  data. 

Card  1 FORMAT 

MAXEL,  MNSL,  MNXST,  MNYST,  NBE,  MB WE,  MNC  8110 
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where 


MAXEL 

MNSL 

MNXST 


MNYST 

NBE 

MB  WE 


MNC 


The  total  number  of  elements  m the  finite-element 
mesh. 

The  maximum  number  of  mechanical  sublayers  employed 
to  model  the  material  nonlinear  behavior.  Note 
that  the  maximum  number  of  mechanical  sublayers 
permitted  per  material  type  is  5. 

The  maximum  number  of  individual  x-direction  stiff- 
eners employed.  Note  that  the  total  number  of  in- 
dividual X-direction  stiffeners  is  defined  to  be 
the  number  of  X-direction  stiffeners  spanning  the 
plate  times  the  number  of  elements  in  the  X-direction, 
plus  the  number  of  additional  X-direction  stiffeners 
spanning  individual  elements.  If  no  X-direction 
stiffeners  are  present,  set  MNXST=1. 

Same  as  MNXST,  except  referring  to  Y-direction 
stiffeners. 

If  reaction  force  output  is  requested  (i.e., 

I0P5=1  on  Card  51) , set  this  variable  equal  to 
the  estimated  total  number  of  constrained  degrees 
of  freedom  after  all  duplicates  have  been  eliminated. 
If  no  reaction  force  output  is  requested  (i.e., 

I0P5=0  on  Card  51),  then  set  NBE=1. 

If  I0P5=1  (on  Card  51) , set  this  variable  equal 
to  the  estimated  maximum  total  bandwidth  of  the 
assembled  stiffness  matrix  at  a constrained  degree 
of  freedom.  For  a particular  row  of  the  assembled 
stiffness  matrix,  this  number  is  equal  to  the 
number  of  terms  (including  zeros)  m that  row 
starting  with  the  first  non-zero  term  and  ending 
with  the  last  non-zero  term  of  that  row  (see  Sub- 
section 4.1.5).  If  IOP5=0,  set  MBWE=1. 

The  estimated  total  number  of  words  of  storage 
required  for  the  assembled  stiffness  matrix 
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stored  as  the  lower  triangle  from  the  first  nonzero 
term  to  and  including  the  diagonal  term  of  each  row 
(see  Subsection  4.1.5). 

Card  2 

IMESH,  IMASS,  IMCONT,  IPUNCH 

where 

IMESH  Indicates  the  type  of  mesh  being  employed 

=0  For  a structure  whose  planform  is  rectangu- 
lar (with  no  voids)  and  for  which  a mesh 
of  non-uniform  elements  is  employed. 

=1  For  a structure  whose  planform  is  rec- 
tangular (with  no  voids)  and  for  which 
a mesh  of  uniform  (equal-size)  elements  is 
employed. 

=2  For  all  plate  structures  having  non-rec- 

tangular  planform  and/or  containing  voids. 

If  IMESH=0  or  1 is  specified,  the  automatic  mesh-generation 
subroutine  is  employed,  and  the  following  input  cards  are  followed 
(Cards  3 through  43) . 

If  IMESH=2,  the  manual  mesh-generation  subroutine  is  employed; 
Cards  3 through  43  are  replaced  by  the  input  cards  given  m Subsection 
4.3. 

IMASS  Indicates  the  type  of  mass  matrix  to  be  employed 
=1  For  lumped  (diagonal)  mass  matrix 
=2  For  consistent  (fully  populated)  mass  matrix. 
IMCONT  Indicates  whether  present  run  is  a continuation  of 
a previous  run. 

=0  if  present  run  is  not  a continuation  run. 

=1  if  present  run  is  a continuation  run. 

IPUNCH  Control  parameter  which  indicates  whether  or  not  a 
deck  of  continuation  cards  is  to  be  punched  follow- 
ing the  final  cycle  of  the  present  run. 
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=0  if  no  continuation  deck  is  desired. 

=1  if  continuation  deck  is  desired. 

Card  3 

NEAD,  NECD  2014 

where 

NEAD  The  number  of  elements  m the  X-direction 

NECD  The  number  of  elements  in  the  Y-direction 

Card  4a 

EPAN,  ANUP,  DENSP,  TH,  XDIST  5D16.7 

Card  4b 

YDIST,  ZPOS 

where 

EPAN  SIG(1)/EPS (1)  given  on  cards  46  and  47  for 

the  plate  material  (psi) . 

ANUP  Poisson's  ratio  of  the  plate  material. 

2 4 

DENSP  Mass  per  unit  volume  of  the ‘plate  material  (lb-sec  /in  ) 

TH  Total  thickness  of  the  plate  (in) 

XDIST  The  dimension  of  the  plate  in  the  X-direction  (in) . 

YDIST  The  dimension  of  the  plate  in  the  Y-direction  (in) . 

ZPOS  The  Z-location  of  the  plate  midsurface  (m) 

If  IMESH=1,  skip  Cards  5 and  6. 

Card(s)  5 

XG(I),  1=1,  (NEAD+1) + 5D16.7 

where 

XG (I)  The  global  X coordinates  of  the  first  row 
of  nodes  in  the  X-direction,  left  to  right 
(plate  side  1) . 

Card(s)  6 

YG (I) , 1=1, (NECD+1)  5D16.7 


The  input  notation  XG(I),  1=1,  (NEAD+1)  indicates  that  Card(s)  5 should  con- 
tain the  values  of  XG(1),  XG(2),  XG(3)  ...  XG (NEAD) , XG (NEAD+1) . This  no- 
tation is  employed  throughout  the  description  of  input. 


57 


where 


The  global  Y coordinates  of  the  first  column 
of  nodes  in  the  Y-direction,  bottom  to  top 
(plate  side  4) . 

NCSB ( 2 ) , NCSB(3),  NCSB(4)  2014 

The  displacement  boundary  condition  applied  to 
the  Ith  side  of  the  plate  (sides  are  numbered 
counterclockwise  beginning  with  the  side  parallel 
to  the  X axis  having  the  lowest  Y=constant  value 
as  discussed  in  Subsection  4.1.2). 

=0  Free 

=1  Symmetry 

=2  Ideally  clamped 

=3  Pinned,  fixed 

=4  Pinned,  free  sliding  Z-direction 

tangent  to  boundary 

=5  Pinned,  free  sliding  normal  (inplane)  to 

boundary 

A list  of  the  nodal  degrees  of  freedom  constrained  as  a result  of 
each  of  the  options  is  given  m Subsection  2.1. 

Card  8 

NAST,  NCST  2014 

where 

NAST  The  total  number  of  complete  stiffeners  spanning 

the  plate  m the  X-direction  (a  maximum  of  30 
such  stiffeners  is  permitted) . 

NCST  The  total  number  of  complete  stiffeners  spanning 

the  plate  in  the  Y direction  (a  maximum  of  30 
such  stiffeners  is  permitted) . 

If  NAST=0  (no  X-direction  stiffeners  spanning  the  plate) , skip 
Cards  9 through  16.  If  NCST=0  (no  Y-direction  stiffeners  spanning  the 
plate) , skip  Cards  17  through  24. 


YG  (I) 


Card  7 

NCSB (1) , 

where 

NCSB (I) 
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Card(s)  9 


APCST(I),  1=1,  NAST  5D16.7 

where 

APCST(I)  The  global  Y location  of  the  centerline  of  the  Ith 
complete  X-direction  stiffener  which  spans  the 
plate  (subsequently  referred  to  as  the  Ith  complete 
stiffener) . Note  that  if  IMESH=1  (uniform  mesh) 
the  origin  of  the  global  axis  system  is  automatically 
located  at  the  first  global  node  of  the  plate  struc- 
ture (Fig.  11) . 

Card(s)  10 

RHC  (I) , 1=1,  NAST  5D16.7 

where 

RHC (I)  The  total  thickness  (in)  of  the  Ith  complete 
X-direction  stiffener  (Fig.  12) . 

Card(s)  11 

RWC(I),  1=1,  NAST  5D16.7 

where 

RWC(I)  The  width  (in)  of  the  Ith  complete  X-direction 
stiffener  (Fig.  12) . 

Card(s)  12 

ECS (I),  1=1,  NAST  5D16.7 

where 

ECS  (I)  Young's  modulus  (psi)  of  the  Ith  complete 
X-direction  stiffener .+ 

Card(s)  13 

ANUCS(I),  1=1,  NAST  5D16.7 

where 

ANUCS(I)  Poisson's  ratio  of  the  Ith  complete  X-direction 
stiffener 

Card (s)  14 

DENCS(I),  1=1,  NAST  5D16.7 

+The  user  must  for  consistency  and  correctness  provide  a value  for  ECS (I)  which 

equals  SIG(1)/EPS (1)  for  the  material  of  which  the  stiffener  is  composed. 
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where 


DENCS (I) 

Card(s)  15 

XFCST(I) , 

where 

XFCST(I) 


Card(s)  16 

MATCS (I) , 

where 

MATCS (I) 


Card(s)  17 

APCST(I) , 
Card(s)  IS 

RHC(I),  I 
Card (s)  19 

RWC(I),  I 


The  mass  per  unit  initial  volume  of  the  Ith  complete 

2 4 

X-direction  stiffener  (lb-sec  /in  ) . 


1=1,  NAST 

The  distance  (in)  from  the  centroid  of  the  Ith 
stiffener  to  the  plate  midsurface.  If  the 
direction  of  the  vector  from  the  stiffener  cen- 
troid to  the  plate  midsurface  is  the  same  as  the 
direction  of  the  global  Z axis,  then  the  sign 
of  this  quantity  is  positive.  If  the  direction 
of  the  vector  is  opposite,  the  sign  of  this 
quantity  is  negative  (Pig.  12) . 


1=1,  NAST 

The  material  type  for  the  Ith  complete  X- 
direction  stiffener  (an  integer  value  from 
1 through  5) . Note  that  the  user  will 
specify  up  to  5 different  material  types 
(and  their  associated  linear  or  nonlinear 
material  behavior)  on  Cards  45  through  48; 
the  value  of  MATCS (I)  indicates  which  of  these 
(user-numbered)  material  descriptions  applies 
to  the  Ith  complete  X-direction  stiffener. 

1=1,  NCST 
=1,  NCST 
=1,  NCST 


5D16.7 


2014 


5D16.7 

5D16.7 

5D16.7 
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Card(s)  20 


ECS (I),  1=1,  NCST  5D16.7 

Card{s)  21 

ANUCS(I),  1=1,  NCST  5D16.7 

Card(s)  22 

DENCS(I),  1=1,  NCST  5D16.7 

Card(s)  23 

XFCST(I),  1=1,  NCST  5D16.7 

Card(s)  24 

MATCS(I),  1=1,  NCST  2014 


The  geometric  and  material  properties  of 
the  Ith  complete  Y-direction  stiffener. 

The  definitions  of  these  quantities  are 
those  given  m Cards  9 through  16,  except 
that  they  now  refer  to  complete  Y-direction 
stiffeners. 


WilGi. 


APCST(I) 
RHC(I) 
RWC(I) 
ECS (I) 
ANUCS(I) 
DENCS (I) 
XFCST(I) 
MATCS (I) 


Card  25 


NAXS,  NAYS 

where 

NAXS 


NAYS 


2014 


The  total  number  of  additional  (see  Sub- 
section 4.1.4)  X-direction  stiffeners  to 
be  located  on  individual  user-specified 
elements.  Note  that  each  of  these  individual 
X-direction  stiffeners  is  assumed  to  span  the 
individual  user-specified  element  on  which  it 
is  located. 

The  total  number  of  additional  Y-direction 
stiffeners  to  be  located  on  individual  user- 
specified  elements. 
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If  both  NAXS  and  NAYS  are  greater  than  zero,  Cards  26  through  43  are 
required  next.  If  NAXS=0,  then  Cards  26  through  34  are  skipped.  If 
NAYS=0,  then  Cards  35  through  43  are  skipped. 

Card(s)  26 

LNXS(I),  1=1,  NAXS  2014 

where 

LNXS(I)  The  element  number  on  which  the  Ith  addi- 

tional X-direction  stiffener  is  located. 

Card(s)  27 

MATXS(I),  1=1,  NAXS  2014 

where 

MATXS (I)  The  material  type  for  the  Ith  additional 

X-direction  stiffener  (see  note  for  Card  16) . 


Card(s)  28 

XSPROP (1,1) , 1=1,  NAXS  5D16.7 

Card (s)  29 

XSPROP (2, I),  1=1,  NAXS  5D16.7 

Card(s)  30 

XSPROP (3,1) , 1=1,  NAXS  5D16.7 

Card(s)  31 

XSPROP (4, I),  1=1,  NAXS  5D16.7 

Card(s)  32 

XSPROP (5, I),  1=1,  NAXS  5D16.7 

Card(s)  33 

XSPROP (6, I),  1=1,  NAXS  5D16.7 

Card(s)  34 

XSPROP (7,1) , 1=1,  NAXS  5D16.7 

where 


XSPROP (J, I)  The  geometric  and  material  properties  for  the 
Ith  additional  X-direction  stiffener  . 
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J=1 

J=2 

J=3 

J=4 

J=5 

J=6 


J=7 


Card(s)  35 

LNYS(I),  1=1,  NAYS 

where 


Thickness  (in) 

Width  (m) 

Young's  modulus  (psi) + 

Poisson's  ratio 

2 4 

Mass  per  unit  initial  volume  (lb-sec  /in  ) 

The  normalized  location,  n , of 

s 

the  stiffener  centerline  on  the 

user- specified  element  (a  value 

from  0.0  to  1.0  inclusive).  Note 

that  for  the  present  calculation  a 

local  x-y  axis  system  is  chosen  whose 

origin  is  at  element  node  number  1. 

The  value  of  r|  is  calculated  as  the 
s 

location  y of  the  stiffener  center- 
s 

line  m the  local  x-y  system  divided 
by  the  dimension  of  the  element  m 
the  Y-direction  (Fig.  13) 

The  distance  (m)  from  the  centroid 
of  the  Ith  additional  X-direction 
stiffener  to  the  plate  midsurface. 

See  Card  15  for  definition  of  sign 
convention. 


2014 


LNYS(I) 


The  element  number  on  which  the  Ith  additional 
Y-direction  stiffener  is  located 


Card(s)  36 

MATYS(I),  1=1,  NAYS 


2014 


where 

MATYS (I)  The  material  type  for  the  Ith  additional 

Y-direction  stiffener  (see  note  for  Card  16) . 

L 

Footnote  on  page  59  applies. 
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Card(s)  37 


YSPROP (1,1),  1=1,  NAYS  5D16.7 

Card(s)  38 

YSPROP (2, I),  1=1,  NAYS  5D16.7 

Card(s)  39 

YSPROP (3, I),  1=1,  NAYS  5D16.7 

Card (s)  40 

YSPROP (4, I),  1=1,  NAYS  5D16.7 

Card(s)  41 

YSPROP (5, I) , 1=1,  NAYS  5D16.7 

Card(s)  42 

YSPROP (6, I),  1=1,  NAYS  5D16.7 

Card(s)  43 

YSPROP (7, I),  1=1,  NAYS  5D16.7 

where 


YSPROP (J, I)  The  geometric  and  material  properties  for  the 
Ith  additional  Y-direction  stiffener. 

J=1  Thickness  (m) 

J=2  Width  (in) 

J=3  Young's  modulus  (psi)+ 

J=4  Poisson's  ratio 

2 4 

J=5  Mass  density  (lb-sec  /m  ) 

J=6  Normalized  location,  E,  , of  the  stiffener 

s 

centerline  on  the  user-specified  element. 

The  value  of  £ is  calculated  as  the  loca- 
s 

tion,  x , of  the  stiffener  centerline  in 
s 

the  local  x-y  system  divided  by  the  dimen- 
sion of  the  element  in  the  X-direction. 

J=7  The  distance  (m)  from  the  centroid  of 

the  stiffener  to  the  plate  midsurface. 

See  Card  15  for  definition  of  sign  con- 
vention. 

+Footnote  on  page  59  applies . 
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Card  44 


NMAT 


2014 


where 


NMAT 


Card  45 


where 


NSUB 


NSUB 


Card  46 


Card  47 


where 


SIG(J) 
EPS (J) 


The  total  number  of  material  types  to  be 
utilized  in  the  present  run.  A maximum  of 
5 different  materials  is  allowed. 


2014 


The  number  of  mechanical  sublayers  used  to 
model  the  uniaxial  stress-strain  behavior 
of  the  first  type  of  material.  A maximum  of 
5 mechanical  sublayers  is  allowed. 


SIG(J),  J=l,  NSUB 


EPS ( J) , J=l,  NSUB 


5D16.7 


5D16.7 


The  Jth  coordinate  pair  of  the  stress, a,  and 
strain, £,  respectively,  which  is  used  to  de- 
fine the  polygonal  approximation  of  the  uniaxial 
stress-strain  diagram  (see  Appendix  A)  for  the 
first  material  type.  The  units  for  SIG(J)  are 
psi,  and  for  EPS  (J)  are  m/m.  The  number  of 
values  appearing  on  each  of  Cards  46  and  47  should 
be  equal  to  the  number  of  mechanical  sublayers, 
NSUB,  defined  on  Card  45. 


Card  48 


where 


DSR(l) , PSR(l) 

DSR(l) 

PSR(l) 


5D16.7 


The  values  of  the  constants  D and  p,  respectively, 
used  in  the  strain-rate  sensitivity  formula  (see 
Appendix  A)  for  the  first  material  type.  If  no 
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strain- rate  sensitivity  is  required,  set  these 
parameters  equal  to  zero. 

Cards  45  through  48  are  repeated  for  each  of  the  NMAT  (Card  44)  materi- 
al types  to  be  defined  (i.e.,  material  type  number  1 is  defined  by  the  first 
set  of  Cards  45  through  48,  material  type  number  2 is  defined  by  the  second 
set  of  Cards  45  through  48,  etc.).  It  is  important  to  note  that  the  plate 
material  must  always  correspond  to  material  type  number  1?  the  material 
type  of  each  of  the  complete  and/or  individual  stiffeners  is  specified  by  the 
user  (see  Cards  16,  24,  27,  and  31) . It  should  also  be  noted  that  the  value 
of  MNSL  specified  on  Card  1 is  equal  to  the  maximum  value  of  NSUB  used  to 
define  the  various  materials. 

Card  49 

ITIMEF,  INCRT,  IOUT  2014 

where 

ITIMEF  The  time-step  number  (or  cycle  number)  at  which 

the  present  run  will  terminate. 

INCRT  The  number  of  cycles  between  regular  printout 

(i.e.,  print  every  INCRT  cycles). 

IOUT  A print  parameter  which  is  numerically  equal  to 

the  value  of  INCRT. 

Card  50 

DELTAT,  TIMEF  5D16.7 

where 

DELTAT  The  time-step  size.  At  (seconds) , used  in  the 

timewise  solution. + 

TIMEF  The  time  (seconds)  at  which  the  present  run  will 

terminate . 

Note  that  a run  of  the  PLATE  computer  code  will  terminate  when  either 
the  cycle  number  exceeds  the  value  of  ITIMEF  (Card  49)  or  the  time  exceeds 
the  value  of  TIMEF  (Card  50) . 

Card  51 

I0P1,  I0P2,  I0P3 , I0P4,  I0P5,  I0P6,  I0P7,  I0P8  2014 

See  Subsections  2.4  and  4.8.2  for  guidance  in  selecting  an  appropriate  At. 


66 


The  value  of  these  parameters  governs  the  type  of  output  to  be  given 
at  every  regular  printout  cycle  (i.e.,  every  INCRT  cycles).  A value  of  0 
indicates  that  the  particular  print  option  is  to  be  skipped;  a value  of  1 
indicates  that  a particular  print  option  is  to  be  exercised.  The  output 
associated  with  each  of  these  print  options  is  as  follows: 

I0P1  Displacements  and  current  (global)  X,  Y coordinates 

for  each  node. 

I0P2  Strain  components,  principal  (tensile)  strain  and 

direction  at  the  upper  and  lower  surfaces  evaluated 
at  the  spanwise  centroid  of  each  element. 

I0P3  Strain  components,  principal  (tensile)  strain  and 

direction  at  the  nine  Gaussian  spanwise  stations 
(evaluated  at  upper  and  lower  surfaces  at  each 
spanwise  location)  for  user-specified  element 
numbers. 

I0P4  Strain  components,  principal  (tensile)  strain 

and  direction,  and  elongations  (in  user-speci- 
fied directions)  at  additional  spanwise  locations 
(evaluated  at  upper  and' lower  surface  at  each 
spanwise  location)  specified  by  the  user. 

I0P5  Reaction  forces  at  all  nodes  where  displacement 

constraint  conditions  have  been  imposed. 

I0P6  Normal  strain  at  the  upper  and  lower  surfaces 

at  the  three  Gaussian  spanwise  locations  for 
user-specified  X-  and/or  Y-direction  stiffeners. 

I0P7  System  energies  (i.e.,  work  input  to  structure, 

structure  kinetic  energy,  structure  elastic  energy, 
structure  plastic  energy,  and  energy  stored  in 
elastic  restoring  springs) . 

IOP8  Strain  components,  principal  (tensile)  strain  and 

direction  at  the  upper  and  lower  plate  surfaces  at 
user-specified  nodes.  Note  that  these  quantities 
are  calculated  by  nodal  averaging. 
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Some  or  all  of  Cards  52  through  62  will  be  required  if  any  of  options 

I0P3,  I0P4,  I0P6,  or  I0P8  are  to  be  exercised  (i.e.,  if  any  of  these  parameters 

are  input  equal  to  1) . However,  Cards  52  and  53  should  be  skipped  if  IOP3=0, 

Cards  54  through  57  should  be  skipped  if  IOP4=0,  Cards  58  through  60  should 

be  skipped  if  IOP6=0,  and  Cards  61  and  62  should  be  skipped  if  IOP8=0. 

Card  52 

NEGS  2014 

where 

NEGS  The  total  number  of  plate  elements  for  which 

Gaussian  station  strain  output  is  desired. 

The  value  of  NEGS  cannot  exceed  200. 

Card(s)  53 

LNGS(I),  1=1,  NEGS  2014 

where 

LNGS(I)  A vector  containing  the  element  numbers  for  which 

Gaussian  station  strain  output  is  desired  (NEGS 
element  numbers  must  be  specified) . 

Card  54 

NASP 

where 

NASP  The  total  number  of  additional  spanwise  locations 

on  the  plate  structure  where  strain  printout  is 
requested.  A maximum  of  50  additional  spanwise 
strain  points  is  permitted. 

Card  55 

LNASP(I),  SLASP(I),  ELASP(I)  I4,2D16.7 

where 

LNASP(I)  The  element  number  on  which  the  Ith  additional 

strain  point  is  located. 

SLASP(I)  I The  § and  n coordinates,  respectively,  of  the  Ith 

ELASP(l)  f additional  strain  point.  The  normalized  coordinates 
are  related  to  the  local  coordinates,  x-y  (whose 
origin  is  at  node  1 of  the  element)  by 
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e 


where  a is  the  length  of  the  element  m the 
X direction 

and  b is  the  length  of  the  element  in  the 
Y direction. 

Card  55  is  repeated  for  each  additional  strain  point  until  all  NASP 
additional  strain  points  have  been  processed.  Note  that  the  numbering  of  the 
additional  strain  points  follows  the  order  m which  their  element  and  coordi- 
nate locations  are  input. 

Card  56 

NAS PE  2014 

where 

NAS PE  The  total  number  of  additional  strain  points  at 

which  the  directions  for  calculation  of  elongation 
are  to  be  specified  by  the  user  (NAS PE  < NASP) . 

Note  that  elongations  in  the  directions  0°  and  90° 

(m  the  X and  Y directions,  respectively)  are  auto- 
matically calculated  and  output  for  each  additional 
strain  point.  The  purpose  of  Cards  56  and  57  is  to 
allow  the  user  to  specify  other  directions  for  elonga- 
tion calculation,  if  desired,  at  some  or  all  of  the 
additional  strain  points. 

If  NASPE=0,  skip  Card  57. 

Card  57 

NSP,  DIR1,  DIR2  14,2016.7 


where 

NSP  The  number  of  the  additional  strain  point  at  which 

the  directions  for  calculations  of  elongations  are  to 
be  specified. 
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DIR1 


where 

The  total  number  of  individual  X-direction  and 
Y-direction  stiffeners,  respectively,  for  which 
Gaussian  station  strain  output  is  desired. 

(Note:  the  values  of  NXSS  and/or  NYSS  cannot 
exceed  200.) 

Card(s)  59  (skip  if  NXSS=0) 

INXSS(I),  1=1,  NXSS  2014 

where 

INXSS(I)  The  X-direction  stiffener  numbers  for  which  strain 
output  is  desired. 

Card(s)  60  (skip  if  NYSS=0) 

INYSS(I),  1=1,  NYSS  2014 

where 


NXSS 

NYSS 


INYSS(I)  The  Y-direction  stiffener  numbers  for  which  strain 
output  is  desired. 

Note:  The  data  input  on  Cards  58  through  60  must  corres- 

pond to  the  stiffeners  as  renumbered  internally 
(e.g.,  each  stiffener  defined  as  spanning  the 
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plate  is  now  treated  as  a series  of  individual 
stiffeners  spanning  individual  elements) . The 
rules  used  for  the  internal  renumbering  of  stif- 
feners are  described  in  Subsection  4.1.4. 

Card  61 

NNSA 

where 

NNSA  The  total  number  of  nodes  at  which  strain 

output  is  desired. 

If  the  value  of  NNSA  is  set  equal  to  the  total  number  of  nodes 

the  finite-element  mesh,  NNT,  then  Card  62  is  skipped.  If  NNSA  is 

less  than  NNT,  then  Card  62  must  be  input. 

Card  62 

NVSA(I) , 1=1,  NNSA 

where 

NVSA(I)  The  global  node  numbers  at  which  strain  output 

will  be  given. 

Card  63 

NELES 

where 

NELES  The  total  number  of  element  boundaries  on  which 

linear-elastic  line  restoring  springs  are 
located. 

If  NELES=0,  skip  Cards  64  and  65. 

Card  64 

LNUM,  ISIDE 

where 

LNUM  I The  global  element  number  and  local  element  side 

ISIDE  | number  (see  Fig.  10)  on  which  linear-elastic 

line  restoring  springs  are  located. 


2014 


in 


2014 


2014 


2014 
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Card  65 


SS(1),  SS  (2) , SS (3) , SS  (4) , SS (5)  5D16.7 

where 

SS (I)  The  five  elastic  spring  constants  (k  , k , k , 

u v w 

kg,k^)  corresponding  to  the  line  restoring 
springs  located  on  side  ISIDE  of  element  LNUM. 

The  displacement  direction  and  units  for  each 
of  these  constants  is  as  follows : 

1=1  Translation  u in  X direction  (lb/in  per 
in.  of  span) 

1=2  Translation  v m Y direction  (Ib/in  per 
m.  of  span) 

1=3  Translation  w m Z direction  (Ib/m  per 
m.  of  span) 

1=4  Rotation  3w/3x  (m-lb/rad  per  in.  of  span) 

1=5  Rotation  3w/3y  (m-lb/rad  per  in.  of  span) 

Cards  64  and  65  are  repeated  for  each  of  the  NELES  element  boundaries 
on  which  line  restoring  springs  are  located.  Note  that  the  distribution  of 
spring  stiffnesses  along  an  element  boundary  is  assumed  to  be  constant,  and 
that  line  restoring  springs  which  span  entire  sides  of  the  plate,  or  large 
portions  of  a side  (encompassing  a number  of  consecutive  element  boundaries) 
must  be  treated  as  a series  of  restoring  springs  spanning  individual  elements. 

The  preceding  input  cards  (1  through  65)  apply  to  plate  structures  having 

rectangular  planform  and  no  voids,  and  to  runs  which  are  not  continuations  of 

previous  runs.  The  input  modifications  required  for  plate  structures  having 
non-rectangular  planform  and/or  voids  is  given  in  Subsection  4.3.  The  addi- 
tional input  required  for  continuation  runs  is  discussed  m Subsection  4.4. 
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4.3  Modification  to  Input  when  Using  Manual  Mesh  Generation 


The  description  of  input  given  m Subsection  4.2  applies  to  stiffened 
or  unstiffened  flat  plate  structures  with  rectangular  planform  and  with  no 
void  regions  (e.g.  cutouts).  For  such  structures,  the  generation  of  mesh, 
geometry,  and  boundary  constraint  information  has  been  automated  (subroutine 
MESHPA)  to  minimize  the  amount  of  input  information  which  must  be  prepared  by 
the  user.  However,  for  flat  plate  structures  having  non-rectangular  planform 
and/or  containing  void  regions,  an  alternate  scheme  (subroutine  MESHPM)  has 
been  employed  m which  the  user  is  required  to  input  directly  nodal  connec- 
tivity, nodal  coordinate,  and  constrained  degree  of  freedom  information. 
Although  input  preparation  is  more  cumbersome  for  such  cases,  this  scheme  does 
provide  the  user  with  the  flexibility  to  analyze  more  general  plate  structures. 

Before  preparing  the  input  data,  the  user  is  required  to  assign  a 
global  element  number  to  each  element  m the  finite-element  mesh,  and  a global 
node  number  to  each  node  m the  finite-element  mesh.  Also,  a global  XYZ  coordi 
nate  system  should  be  conveniently  located.  The  value  of  IMESH  on  Card  2 of 
Subsection  4.2  should  be  defined  as  IMESH=2.  The  following  input  cards 
(3'  through  28')  replace  cards  3 through  43  of  Subsection  4.2.  For  convenience 
a prime  is  used  for  the  card  numbers  presented  in  this  subsection. 

Card  3 ' FORMAT 

NNT,  NET  2014 

where 

NNT  The  total  number  of  nodes  in  the  finite-element  mesh 

NET  The  total  number  of  elements  m the  finite  element 

mesh. 

Card  4' 

EPAN,  ANUP,  DENSP,  TH,  ZPOS  5D16.7 

where 

EPAN  SIG (1)/EPS (1)  given  on  cards  46  and  47  for  the 

plate  material  (psi) . 

ANUP  Poisson's  ratio  of  the  plate  material. 
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DENSP 


TH 

ZPOS 


Card  5' 


Mass  per  unit  initial  volume  of  the  plate 
2 4 

material  (lb- sec  /in  ) . 

Total  thickness  of  the  plate  (in) . 

The  Z location  of  the  midsurface  of  the 
plate  (m) . 


NP (1,1),  NP (I, 2) , NP ( I , 3 ) , NP  (1 , 4) 

where 

NP(I,J)  The  global  node  number  associated  with  the 

Jth  element  node  (J=l,2,3,4)  of  the  Ith  ele- 
ment. The  convention  for  element  node 
numbering  is  discussed  m Subsection  4.1.3. 


2014 


Card  5'  is  repeated  (1=1, 2, 3 ...  NET)  for  each  of  the  NET  elements, 
m order,  until  all  elements  have  been  processed. 


Card(s)  6' 


XG  ( I ) , 1=1,  NNT 


Card(s)  7' 


5D16.7 


YG(I),  1=1,  NNT 

where 

The  global  X and  Y coordinates,  respectively,  of 
the  Ith  global  node. 


XG  (I) 
YG(I) 


5D16.7 


Card  8' 


NB  2014 

where 

NB  The  total  number  of  constrained  degrees  of 

freedom  (assuming  no  duplicates) . 


Card(s)  9' 

NBC  (I),  1=1,  NB 


2014 
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where 


A vector  containing  the  global  degree  of  freedom 
numbers  which  are  to  be  constrained  (set  equal 
to  zero  for  all  time  steps) . The  degree  of  freedom 
numbers  input  on  Card(s)  9'  must  appear  in  as- 
cending order  with  no  duplicates. 

2014 

The  total  number  of  individual  X-  and  Y-direction 
stiffeners,  respectively,  located  on  individual 
user-specified  elements. 

If  NXST=0,  Cards  11'  through  19'  are  skipped. 

If  NYST=0,  Cards  20'  through  28'  are  skipped. 


Card (s)  11* 

LNXS(I),  1=1,  NXST  2014 

Card (s)  12' 

MATXS(I),  1=1,  NXST  2014 

Card(s)  13' 

XSPROP (1,1) , 1=1,  NXST  5D16.7 

Card ( s ) 14' 

XSPROP (2, I),  1=1,  NXST  5D16.7 

Card(s)  15' 

XSPROP (3,1) , 1=1,  NXST  5D16.7 

Card(s)  16' 

XSPROP (4, I),  1=1,  NXST  5D16.7 


NBC (I) 


Card  10' 

NXST,  NYST 


where 


NXST 

NYST 


75 


Card ( s ) 17' 


XSPROP (5,1) , 1=1,  NXST  5D16.7 

Card (s)  18' 

XSPROP (6, I),  1=1,  NXST  5D16.7 

Card(s)  19' 

XSPROP (7,1) , 1=1,  NXST  5D16.7 

where 

LNXS(I)  The  geometric  and  material  properties  of  the 

MATXS(I)  Ith  individual  X-direction  stiffener;  the 

XSPROP (J, I)  definition  of  these  quantities  is  identical 
to  that  given  m Subsection  4.2,  Cards  26 


through  34. 

Card(s)  20' 

LNYS(I),  1=1,  NYST  2014 

Card (s)  21' 

MATYS(I),  1=1,  NYST  2014 

Card{s)  22' 

YSPROP (1,1) , 1=1,  NYST  5D16.7 

Card(s)  23' 

YSPROP (2, I),  1=1,  NYST  5D16.7 

Card ( s ) 24' 

YSPROP (3,1) , 1=1,  NYST  5D16.7 

Card(s)  25' 

YSPROP (4, I),  1=1,  NYST  5Q16.7 

Card(s)  26' 

YSPROP (5,1) , 1=1,  NYST  5D16.7 
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Card(s)  27* 


YSPROP (6,1) , 1=1,  NYST  5Q16. 7 

Card (s)  28' 

YSPROP (7,1) , 1=1,  NYST  5D16.7 

where 

\ 

LNYS(I)  The  geometric  and  material  properties  of  the  Ith 

MATYS(I)  k individual  Y-direction  stiffener;  the  definition 

YSPROP (J, I)  I of  these  quantities  is  identical  to  that  given 
m Subsections  4.2,  Cards  35  through  43. 

Note:  When  using  the  manual  mesh  generation  option,  all  stiffeners 

are  treated  as  individual  stiffeners  located  on  individual 
user-specified  elements.  As  a result,  no  internal  renumber- 
ing of  stiffeners  is  done,  and  any  future  reference  to 
stiffener  numbers  should  correspond  to  the  numbering  scheme 
chosen  by  the  user  m preparation  of  data  Cards  11*  through 
19*  (for  X-direction  stiffeners)  and  Cards  20'  through 
28'  (for  Y-direction  stiffeners). 

This  completes  those  input  modifications  required  when  using  the 
manual  mesh  generation  option  (IMESH=2) . The  remaining  cards  follow  exactly 
those  given  m Subsection  4.2  starting  with  Card  44. 


Additional  Input  Required  for  Continuation  Runs 


An  option  has  been  provided  m the  PLATE  code  which  allows  the  user  to 
terminate  a computer  run  at  a specified  time  step,  and  continue  the  analysis 
in  a subsequent  computer  run  beginning  with  the  time  cycle  at  which  the  previ- 
ous run  was  terminated.  This  continuation  option  allows  the  user  to  carry 
out  long-time  analyses  in  a series  of  continuation  runs  (without  starting 
each  run  from  time  zero)  with  the  opportunity  to  scan  the  data  provided  by 
each  run  before  continuing  the  analysis,  if  desired. 


In  order  to  continue  a previous  run,  a deck  of  continuation  cards 
must  be  punched  when  the  previous  run  terminates.  This  continuation  deck 
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is  obtained  by  setting  IPUNCH=1  on  input  card  number  1 (see  Subsection  4.2), 
and  is  used  as  input  for  the  continuation  run  (as  described  below) . The 
parameter  IMCONT  is  set  to  IMC0NT=1  on  input  card  number  1 to  indicate  that 
the  present  run  is  a continuation  of  a previous  run. 

If  a continuation  run  is  being  made,  the  deck  of  continuation  input 
cards  should  follow  immediately  after  Card  65  of  Subsection  4.2.  It  is 
important  to  note  that  input  Cards  1 through  65  should  be  identical  to  those 
used  in  the  previous  run  (which  is  being  continued)  with  the  following  ex- 
ceptions: 

1.  ITIMEF  on  Card  49  must  be  set  equal  to  the  final  cycle 
number  for  the  present  continuation  run.  Note  that  the 
cycle  number  is  not  reset  to  zero  for  a continuation  run, 
but,  rather,  is  initialized  to  the  value  at  the  end  of 
the  previous  run. 

2.  INCRT  and  IOUT  on  Card  49  may  be  changed  to  obtain  printout 
at  intervals  different  from  the  previous  run. 

3.  TIMEF  on  Card  50  must  be  set  equal  to  the  final  time  for  the 
present  continuation  run. 

4.  The  parameters  on  Card  51  which  govern  the  type  of  output 
to  be  given  every  regular  printout  cycle  may  be  redefined 
(except  for  the  option  IOP5,  which  must  have  the  same  value 
as  m the  previous  run) . The  information  given  m data 
cards  52  through  62  must  also  be  altered  to  reflect  any 
changes  made  on  Card  51. 

The  continuation  deck  starts  with  Card  66  and  contains  the  following 
information: 

Card  66  Format 

ITT,  CINETI,-  WFORCE,  P0WMP1  I6  3D1C 

where 

ITT  The  cycle  number  at  which  the  previous  run  was 
terminated. 

CINETI  The  kinetic  energy  imparted  to  the  plate  by  the 
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WFORCE 

POWMP1 

Card(s)  67 

DIS(I) , 

where 

DIS (I) 

Card(s)  68 

DISP(X)  , 

where 

DISP(I) 

Card(s)  69 

VEL(I) , 

where 

VEL(I) 

Card(s)  70 

FLVA(I) , 

where 

FLVA(I) 

If  IOP5=0 
Card(s)  71 

UCF2  (I)  , 

where 

UCF2 (I) 


prescribed  initial  velocity  distribution  at  time 

The  work  input  to  the  structure* 

The  power  = F q at  time  t , 

~n~n  n 


1=1,  NDT 

The  total  displacement  (or  rotation)  of 
degree  of  freedom  I at  time  cycle  ITT. 


1=1,  NDT 

The  total  displacement  (or  rotational)  of 
degree  of  freedom  I at  time  cycle  (ITT-1) . 

1=1,  NDT 

The  velocity  of  the  Ith  degree  of  freedom  at 
time  cycle  ITT. 

1=1,  NDT 

The  equivalent  load,  corresponding  to  nonlinear 
effects,  applied  to  degree  of  freedom  I at  time 
cycle  ITT. 

, Card(s)  71  are  skipped. 


1=1,  NB 

The  force  applied  to  the  Ith  constrained 
degree  of  freedom  at  time  cycle  ITT. 


zero. 


5D15.7 


5D15.7 


5D15.7 


5D15.7 


5D15.7 
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Card(s)  72 


STOR(I),  1=1,  NDT  5D15.7 

where 

STOR(I)  The  prescribed  externally-applied  force  at 

degree  of  freedom  I at  time  cycle  ITT. 


Card(s)  73 

TAUSS (I, J,K) , (1=1,  NET),  (J=l,  MNSLT4) , (K=l,9)  5D15.7 

Card(s)  74 

TAUEE ( I , J , K)  5D15.7 

Card ( s ) 75 

TAUSE ( I , J , K)  5D15.7 

where 


TAUSS (I, J,K) 
TAUEE (I, J,K) 
TAUSE ( I , J , K) 


The  stresses  0,0,0,  respectively  at 
xx  yy  xy 

the  Jth  depthwise/ sub layer  integration  sta- 
tion (J  is  a function  of  both  location  and 
sublayer)  at  the  Kth  spanwise  Gaussian 
integration  station  of  the  Ith  element  at 
time  cycle  ITT. 


If  no  X-direction  stiffeners  are  present,  Card(s)  76  will  not  be 
included. 

Card(s)  76 

TAGSS ( I , J , K) , (1=1,  NXST),  (J=l,  MNSLT4) , (K=l,3)  5D15.7 

where 

TAGSS  ( I , J , K)  The  normal  stress,  a , at  the  Jth  depth- 

wise/sublayer  integration  station  at  the 
Kth  spanwise  Gaussian  integration  station 
of  the  Ith  individual  x-direction  stiffener 
at  time  cycle  ITT. 

If  no  Y-direction  stiffeners  are  present,  Card(s)  77  will  not  be 
included. 
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Card(s)  77 


TSGEE (I, J,K) , (1=1,  NYST),  (J=l,  MNSLT4) , (K=l,3)  5D15.7 

where 

TSGEE (I , J,K)  The  normal  stress,  a , at  the  Jth 

yy 

depthwise/sublayer  integration  station  at 
Kth  spanwise  Gaussian  integration  station 
of  the  Ith  individual  Y-direction  stiffener 
at  time  cycle  ITT. 

4.5  Guidelines  for  User-Prepared  Array  Dimensions 

In  addition  to  providing  input  data  cards  for  the  PLATE  program,  the 
user  is  required  to  provide  appropriate  dimensions  m the  dummy  main  program 
for  a number  of  vectors  and  arrays  used  in  the  program.  The  sole  purpose  of 
the  dummy  main  program  is  to  provide  dimensions  for  those  arrays  and  vectors 
which  are  variably  dimensioned  m subroutines  of  the  PLATE  program.  The 
dummy  mam  program  then  calls  subroutine  MAINP  which  is  the  mam  controlling 
subroutine  for  PLATE  program  flow. 

The  justification  for  the  variable  dimensioning  of  arrays  and  the  cor- 
responding need  to  provide  fixed  dimensions  in  the  present  dummy  mam  program 
is  based  on  program  efficiency.  Computer  core  storage  requirements  contribute, 
along  with  computer  execution  time,  to  the  total  cost  of  a run.  In  general, 
those  vectors  and  arrays  which  contribute  most  to  the  computer  core  storage 
requirements  have  dimensions  which  are  based  on  certain  problem  parameters 
(e.g.  number  of  elements,  number  of  nodes,  number  of  mechanical  sublayers, 
etc.)  and,  thus,  are  problem  dependent.  For  3-d  plate  analyses,  where  the 
dimensions  and  thus  storage  requirements  grow  rapidly  as  the  number  of  elements 
is  increased,  maximum  program  efficiency  (in  terms  of  computer  core  storage) 
is  obtained  by  providing  dimensions  for  these  arrays  (vectors)  which  correspond 
exactly  to  the  pertinent  parameters  of  the  plate  structure  being  analyzed. 

A complete  listing  of  the  dummy  main  program  for  the  PLATE  program  is 
given  on  the  following  pages.  The  user  need  be  concerned  only  with  that  (first) 
portion  of  the  dummy  main  program  related  to  array  (vector)  dimensioning.  Shown 
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are  the  names  and  associated  dimensions  (given  as  variables  and  constants  where 
appropriate)  of  those  arrays  which  must  be  user-dimensioned-  The  definition 
of  each  dimension  variable  is  given  directly  below  the  full  list  of  arrays 
(vectors)  to  be  dimensioned. 

The  user  is  required  to  prepare  a FORTRAN  IV  DIMENSION  statement  which 
contains  all  of  the  arrays  and  vectors  shown  with  the  appropriate  numerical 
dimensions  substituted  in  place  of  dimension  variables.  This  DIMENSION  state- 
ment should  be  inserted  after  the  list  of  dimension  variable  definitions  as 
shown  in  the  program  listing.  The  dimension  variables  NNT,  NPT,  MAXEL,  MNSL, 
MNXST,  MNYST,  NRSS,  and  MNNSA  may  be  determined  exactly,  whereas  the  dimension 
variables  MNC,  NB,  NBE,  and  MB WE  (which  are  more  difficult  to  determine  ex- 
actly) may  be  over-estimated  on  the  first  run  of  a given  problem  and  then  ad- 
justed to  the  correct  values  in  subsequent  runs  of  the  same  problem. 

In  no  case  may  a dimension  variable  be  set  equal  to  zero;  the  minimum 
value  for  a dimension  variable  (all  dimension  variables  are  integers)  is  1. 

Thus,  for  example,  if  no  X-direction  stiffeners  are  present  then  the  dimension 
variable  MNXST  (maximum  number  of  individual  X-direction  stiffeners)  is  set 
equal  to  MNXST=1  (rather  than  zero) . There  is  no  restriction  on  the  maximum 
value  which  can  be  assigned  to  a dimension  variable. 

Seven  of  the  dimension  variables,  namely  MAXEL,  MNSL,  MNXST,  MNYST,  NBE, 
MB WE,  and  MNC,  are  given  as  input  to  the  PLATE  program  (see  Card  1 of  Subsection 
4.2).  The  values  specified  for  these  variables  on  Card  1 of  the  input  data 
cards  must  be  the  same  as  the  values  assigned  to  these  variables  for  dimension- 
ing purposes. 

Finally,  the  user  should  be  aware  of  the  fact  that  improperly  dimensioned 
arrays  (vectors)  can  be  a chief  source  of  anomalous  results  for  structural  re- 
sponse. In  particular,  if  the  value  of  a dimension  variable  is  smaller  than 
the  correct  value,  then  data  from  the  corresponding  array  or  vector  may  be  in- 
correctly accessed  during  program  execution.  In  such  cases,  program  execution 
often  proceeds  without  apparent  error,  but  response  predictions  will  generally 
be  incorrect.  Thus,  great  care  should  be  taken  by  the  user  m preparing  the 
DIMENSION  statement  for  the  dummy  main  program.  Examples  of  proper  DIMENSION 
statements  may  be  found  m the  sample  problems  of  Section  7. 
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oooonnnnnnnononooonorjoooooooonooooonoonnonnnoooooonoo 


PLATE  1 COMPUTES  CODE. 

ASRL  T R 154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 
THIS  IS  THE  SMALL  STRAIN  VERSION. 

ILLUSTRATIVE  EXAMPLE  FOR  PLATE  PROGRAM  - FULL  MODEL. 

THIS  DUMMY  MAIN  PROGRAM  FOR  THE  PLATE  PROGRAM  REQUIRES  SUBROUTINES! 
AR  RT , ASS  EMK , 8C0NMK , CMASSP , EAROW , EXTL, FACT , GAUSS , 
INCOND,LMASSP.MAINP,MESHPA,MESHPM,OMULT,PRINT, 
PRTOP.PSTRN.RCON.RPLATE.SFOM.SOLV, SPRING, STS  ESA, 
STRESC.STRESP.TSTEP. 


DUMMY  MAIN  PROGRAM  WHICH  PROVIDES  DIMENSIONS  FOR  THOSE  ARRAYS  MAIN0016 

(VECTORS)  WHOSE  DIMENSIONS  ARE  PROBLEM  DEPENDENT.  MAIN0017 

THE  FOLLOWING  ARRAYS  MUST  BE  DIMENSIONED  BY  THE  USER  AS  SHOWN;  MAIN001B 

DIMENSION  DELD(NOT) .DIS(NOT) ,DISP (NOT ) , D I SMI ( NDT ) , DI SM2 (NDT ) , MAIN0019 

FLN(NDT) .FLVA(NDT) .FLVM(NDT) .FLVP(NDT) .ELV(NDT) , VEL(NDT ) , ICOL(NDT)MA1N0020 
, INUM(NDT) , KROW(NOT) .NDEX(NOT) .STOR (NDT) , ST F(MNC) .AMASS (MDIM) , MAIN0021 
NP(4 , MAXEL ) ,N0DE(24*MAXEL) , TAUSS(MAXEL , 4 *MNSL, 9 ) . MAIN0022 

TAUSE (MAXEL ,4*MNSL ,9) , T AUEE(MAXEL,4 *MNSL ,9 ) , EPS SI (9,MAXEL) , MAIN0023 

EPSSO ( 9 ,MAX EL) , EPEE I (9 , MAXEL ) , EPEEO ( 9 ,MAXE  L ) , EP SEI (9 , MAXEL ) , MAIN0024 

EPSEO ( 9 , MAX  EL) ,NBC(NB),BC(NB), RFM(NBE ,MBWE ) , I LAST (NBE) ,UCF1 (NBE) , MAIN0025 
UCF2(NBE) , XG(NNT) ,YG(NNT) ,ZG(NNT) .XGI(NNT) , YGI ( NNT ) , MAIN0026 

TAGSS (MNXST  ,4«MNSL , 3) , LNXS(MNXST ) , XSPROP( 7 .MNXST ) , MATXS(MNXST) , MAIN0027 

T5GEE (MNYST ,4*MNSL,3) , LNYS(MNYST) , YSPRQP(7 , MNYST ) .MATYS (MNYST) , MAIN0028 

LNRS(NRSS) , ISRS(NRSS) , SC(5,NRSS) .NVSA(MNNSA) , NC0N(4 , MNNSA)  MAIN0029 


WHERE, 

NNT 


TOTAL  NUMBER  OF  NODES  IN  THE  ASSEMBLED  FINITE-ELEMENT 
MODEL. 

TOTAL  NUMBER  OF  OEGREES  OF  FREEDOM  IN  THE  ASSEMBLED 
FINITE-ELEMENT  MODEL  ■ 6*NNT . 

ESTIMATED  NUMBER  OF  WORDS  OF  STORAGE  FOR  THE  ASSEMBLED 


MAIN0029 

MAIN0030 

MAIN003I 

MAIN0032 

MAIN0033 

MAIN0034 

MA1N0035 

MAINQ036 


MAXEL 

MNSL 


STIFFNESS  MATRIX  (LOWER  TRIANGLE  STORED  BY  ROWS  FROM  FIRST  MAIN0037 
NONZERO  TERM).  MA1N003B 
DIMENSION  OF  ASSEMBLED  MASS  MATRIX.  MAIN0039 
NDT  IF  LUMPED  MASS  OPTION  IS  CHOSEN.  MAIN0040 
MNC  IF  CONSISTENT  MASS  OPTION  IS  CHOSEN.  MAIN0041 
NUMBER  OF  ELEMENTS  IN  FINITE-ELEMENT  MODEL.  * MAIN0042 
MAXIMUM  NUMBER  OF  MECHANICAL  SUBLAYERS  EMPLOYED.  MAIN0043 
NOTE—  MNSL  MUST  BE  LESS  THAN  OR  EQUAL  TO  5.  MAIN0044 
ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  PRIOR  MAIN0045 
TO  ELIMINATION  OF  DUPLICATES.  MAIN0046 
ESTIMATED  NUMDER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  AFTER  MA1N0047 
ALL  DUPLICATES  HAVE  BEEN  ELIMINATED  (IF  I0P5  - t).  MAIN004B 
1 IF  I0P5  • 0 MAINQ049 
ESTIMATED  MAXIMUM  BANDWIDTH  OF  ASSEMBLED  STIFFNESS  MATRIX  MAIN0050 
AT  A CONSTRAINED  DEGREE  OF  FREEDOM  (IF  I0P5  ■ 1).  MAIN0051 
t IF  I0P5  - 0 MAIN0052 


ooononnoooo 


CD 


MNXST 

MNYST 


NRSS 


MNSLT4 

MNNSA 


. MAXIMUM  NUMDER  OF  X-DIRECTION  STIFFENERS. 

« 1 IF  NO  X-OIRCCT ION  STIFFENERS. 

* MAXIMUM  NUMBER  OF  Y-DIRECTION  STIFFENERS. 

« I If  NO  Y-DIRECTION  STIFFENERS. 

P TOTAL  NUMDER  OF  ELEMENT  SIDES  ON  WHICH  LINE  RESTORING 
SPRINGS  ARE  LOCATED. 

« I IF  NO  RESTORING  SPRINGS  ARE  PRESENT. 

= 4*MNSL 

* MAXIMUM  NUMBER  OF  NODES  REQUESTED  FOR  STRAIN  OUTPUT  (IF 
10PQ  = 1 ) . a 1 IF  I0P8  * 0 


MAI NO 053 
MAI N0054 
MAIN0055 
MAIN0056 
MA1N0057 
MAIN0050 
MA1N0059 
MAIN0060 
MAINOOGI 
MAIN00G2 
MAIN0063 
MAIN0064 
MAIN0065 


IMPLICIT  REAL*0{ A-H.O-Z ) 

DIMENSION  DELD(390) ,DIS(390) ,DISP(390) .DISMt (390) ,DISM2(390) , 

2FLN(390) ,FLVA(390) , FLVM (390), FLVP(390) , ELV ( 390 ) , VEL(390 ) . ICOL(390 )MAIN0066 
3 , INUM (390) , KRQW(390 ) , NDEX( 390 ) , STOR ( 390 ) , ST F(  1 4 037 ) , AMASS( 1 4037 ) , MAIN0067 
4NP(4I4Q),NODE(1152),TAUSS(4B,12,9),TAUSE(48,12,9),TAUEE(40, 12,9),  MAIN0068 
5EPSSI (9,40)  , EPSSO! 9 , 48 ) , EPEEI (9,48)  ,EPEEO(9,48) ,EPSEI(9,40) , MA1N0069 

6EPSEO (9,48)  . NBC( 60) , DC( 60) . RFM( 60 , 60 ) , I LAST  ( 60 ) ,UCF1  (60) ,UCF2(60) .MAIN0070 
7XG(65) , YG( 65) , ZG( 65) , XG I ( 65) , YGI ( 65 ) , TAGSS( 1 ,12,3) , LNXS( 1 ) , MAIN0071 

0XSPROP ( 7,1) ,MATXS(1),TSG6E(1,12,3),LNYS(1).YSPR0P(7,1),MATYS(1),  MAIN0072 
9LNRS ( 1 ) , ISR S ( 1 ) , SC ( 5, 1 ) , NVSA( G ),NC0N(4,6  ) 

COMMON/BAS/ NDT, NET, MN.NB.NIRREG.MNC 
COMMON  /INOUT/  MREAD ,MWR ITE .MPUNCH 
C DEFINE  CARD  READER,  LINE  PRINTER  AND  CARD  PUNCH  UNIT  NUMBERS. 

MREAD  = 5 
MWRITE  = 6 
MPUNCH  = 7 

REAO( MREAD, 500)MAXEL,MNSL, MNXST, MNYST, NBE.MBWE.MNC 
FORMA  T ( 8 1 1 0 ) 


500 


WRITE(MWRITE.GOO) 

WRITE (MWRIT £,610)  MAXEL 
WRITE(MWRITE,620)  MNSL 
WR I T £ ( MWR I T E , 630 ) MNXST 
WRITE (MWRIT  E , 640 ) MNYST 
WRITE! MWRITE, G50)  NOE 
WRITE! MW RITE, 660)  MQWE 


MAIN0073 
MAIN0074 
MAIN0075 
MA1N0076 
MAIN0077 
MAIN0078 
MAIN0079 
MA1N0080 
MAIN0081 
MA1N0082 
MAIN00B3 
MAIN00B4 
MAIN0085 
MAI  NO 0 06 
MAIN0087 
MA1N0008 


WRITE! MWRITE, 670) 

MNC 

MA1N00B9 

600 

format ( 

'1  PLATE  1 

COMPUTER  CODE  (SMALL  STRAIN  THEORY)  : 

USER 

INPUTMAIN0090 

— • 

TnFOR  ARRAY  DIMENSIONS' 

) " 

MAIN009I 

610 

FORMA T( 

' ' , 'MAXEL 

* 1 1 

110) 

MAI NO 092 

620 

FORMAT! 

' ' , 'MNSL 

3 * 

110) 

MAIN0093 

630 

FORMAT! 

' ' , 'MNXST 

o 1 , 

110) 

MAIN0094 

640 

FORMAT! 

' ' , 'MNYST 

s * . 

110) 

MAIN0095 

650 

FORMAT! 

' ' , ' NBE 

* * 1 

110) 

MA1N0096 

660 

FORMAT! 

' ' , 'MBWE 

9 1 | 

110) 

MAIN0097 

670 

FORMAT! 

' ' , 'MNC 

• 1 | 

110) 

MAIN0098 

MNSLT4= 

MNSL*4 

MAIN0099 

CALL 

MAINP(DELD, 

D I 5 , OISP ,DI SM 1 ,DISM2,FLN, FLVA.FLVM 

, FLVP 

, ELV , MAINO 1 00 

2VEL, I COL, INUM.KROW.NDEX, STOR, STF, AM ASS, NP, NODE, TAUSS.TAUSE.TAUEE.  MAIN010I 
3EPSSI , EPSSO , EPEEI , EPEEO , EPSEl , EPSEO , NBC, BC , RFM,  ILAST.UCF1  ,UCF2,  MAIN0102 

4XG,YG,ZG,XGI,YGI,TAGSS,LNXS,XSPR0P,MATXS,TSGEE, LNYS.YSPROP.MATYS,  MAIN0103 
5LNRS, ISRS, SC, MAXEL, MNSL, MNSLT4,NBE,MBWE, MNXST, UNYST.NVSA.NCON)  MAIN0104 

CALL  EXIT  MAIN0105 


END 


MAINOf 00 


NOTE:  1.  The  dimension  6400  for  arrays  STF  and  AMASS  was  obtained  by  the 
procedure  described  in  items  1 through  4 on  page  100.  Also,  see 
Figs.  16  and  17a. 

2.  For  detailed  instructions  on  establishing  dimensions  and  input 
data,  see  the  example  problems  discussed  m Section  7. 


03 

in 


4.6  Guidelines  for  User-Prepared  Subprograms 


The  timewise  solution  of  the  governing  equations  of  motion  for  the 
structure  (Eq.  2.1)  is  accomplished  by  employing  the  Houbolt  finite-difference 
operator.  As  shown  in  detail  m Appendix  A,  this  results  m the  following 
matrix  recurrence  equation 


'^2  i!*5  + 5s>  - W + ?“i  + It  5 'rk1 


(4.1) 


NL 

where  M,  K,  Kg,  F,  F , and  q*  are  defined  m Subsection  2.3,  and  q*  is  the 

vector  of  nodal  genealized  velocities.  The  subscripts  m+1  and  m refer  to 

quantities  evaluated  at  discrete  time  instants  t . , = (m+1)  At  and  t = mAt, 

m+l  m._ 

NL 

where  m is  the  time  step  number.  The  matrices  M,  K,  K , and  vector  F are 

~ ~ ~ s ~ 

internally  generated  and  are  assumed  to  be  known.+  However,  the  vector  F ,, 

~m+l 

which  is  the  vector  of  prescribed  externally-applied  nodal  loads  at  time  t , 

m+1 

must  be  provided  by  the  user  to  represent  the  spatial  and  temporal  distribution 
of  the  external  load  being  applied  to  the  plate  structure. 


In  general,  the  displacement  vector  q^  is  known  from  the  solution  of 
Eq.  4.1  at  time  t^,  and  the  velocity  vector,  q^  is  calculated  from  the 
Houbolt  finite-difference  expression  and  is  thus  also  known.  However,  values 
of  the  displacement  and  velocity  vector  at  time  zero,  q*  and  q*,  required  for 
the  solution  of  displacements  q*  at  time  t are  not  known  and  must  be  provided 
by  the  user  as  initial  conditions  on  the  governing  matrix  equation  of  motion 
(which  is  a second-order  differential  equation) . These  initial  (time  zero) 
conditions  on  the  displacement  and  velocity  vectors  must  correspond  to  the 
spatial  distribution  of  displacement  and  velocity  for  the  problem  under  con- 
sideration. 


Subroutines  INCOND  and  EXTL  have  been  included  m the  PLATE  program  to 

provide,  respectively,  the  values  of  q*  and  q*  (initial  conditions) , and  the 

external  loading  vector,  F . , at  each  time  step.  Because  of  the  many  feasible 

~m+l 

spatial  distributions  for  q*,  q*,  and  F , and  temporal  distribution  of  F,  the 

~0  ~0  m+1 

writing  of  self-contained,  automated  logic  for  subroutines  INCOND  and  EXTL  has 
been  deemed  inefficient  and  impractical.  Instead,  the  user  is  required  to 
+ NL 

The  vector  F is  estimated  by  linear  extrapolation  from  earlier  known  values 

, NL  . NLm.  , NL  . _ NL  NL 
(F  and  F , ) by  F , , = 2 F -F  , . 

~m  -m-1  ~m+l  ~m  ~m-l 


86 


write  the  internal  logic  for  these  two  subroutines  corresponding  to  the  problem 
under  consideration. 

Guidelines  for  the  preparation  of  subroutines  INCOND  and  EXTL  are  given 
in  Subsections  4.6.1  and  4.6.2,  respectively.  Both  subroutines  must  be  prepared 
for  each  execution  of  the  PLATE  program  even  if  the  values  of  q*,  q*  and/or 
F are  zero.  For  the  sake  of  simplicity,  no  READ  statements  should  appear  m 
either  subroutine?  all  data  should  be  specified  m the  user-prepared  internal 
logic.  FORTRAN  IV  WRITE  statements  should,  however,  be  included  in  these  sub- 
routines to  verify  input  data.  A simple  example  of  internal  logic  is  given  m 
each  of  Subsections  4.6.1  and  4.6.2;  additional  examples  may  be  found  in  the 
sample  problem  of  Section  7. 

It  is  assumed  that  the  user  has  a working  knowledge  of  the  FORTRAN  IV 
computer  language  and  thus  no  specific  discussion  of  the  programming  language 
has  been  included.  Although  maximum  flexibility  has  been  maintained  by  requir- 
ing the  user  to  prepare  these  subroutines,  automated  versions  of  subroutines 
INCOND  and  EXTL  could  be  prepared  by  the  user  (or  programming  personnel)  to 
accommodate  a variety  of  initial  condition  and  external  loading  options  often 
encountered  in  a given  analysis  or  design  group. 

4.6.1  User-Prepared  Subroutine  INCOND  (PLATE  Program) 

The  user  is  required  to  write  (in  FORTRAN  IV)  a subroutine  which  gener- 
ates the  initial  velocity  for  each  degree  of  freedom,  VEL(I) , 1=1,  NDT,  and 
the  initial  displacement,  DISP(I),  1=1,  NDT,  for  each  degree  of  freedom  m the 
finite-element  mesh.  This  subroutine  is  called  prior  to  the  first  time  cycle 
for  each  run  of  the  PLATE  code.  The  subroutine  should  be  prepared  as  follows: 

SUBROUTINE  INCOND (DISP , VEL , NP , NODE , XGI , YGI) 

IMPLICIT  REAL*8 (A-H,0-Z) 

DIMENSION  DISP (1) , VEL (1) , NP (4) ,N0DE (1) , XGI (1) ,YGI (1) 

COMMON/BAS /NDT , NET , MN , NB , NIRREG , MNC 
Insert  User-Code  to  generate 
VEL (I) ,1=1, NDT 
DISP (I) ,1=1, NDT 

RETURN 

END 
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The  first  four  cards  and  final  two  cards  of  subroutine  INCOND  must  be  as 
shown. 


The  arrays  NP,  NODE,  XGI,  and  YGI,  and  variables  NDT,  NET  are  available 
to  the  user  and  contain  the  following  information: 


NP  (X,  J) 


The  global  node  number  associated  with  the  Ith 
element  node  of  element  J. 


NODE  (K) 


XGI (I) 
YGI(I) 


NDT 


NET 


The  assembly  list  associating  element  degrees  of 
freedom  with  global  degrees  of  freedom.  If  K is 
defined  as  K = 24*(J-1)+I,  then  NODE  (K)  is  the 
global  degree  of  freedom  number  associated  with 
the  Ith  element  degree  of  freedom  of  element  J. 

The  global  X and  Y coordinates,  respectively,  of 
the  Ith  global  node  at  time  zero. 

The  total  number  of  degrees  of  freedom  in  the 
finite-element  mesh. 

The  total  number  of  elements  in  the  finite-element 
mesh. 


The  information  m these  arrays  may  be  used  as  required  but  must  not  be 
altered  by  the  user-supplied  internal  logic. 

The  user  should  note  that  the  conventions  adopted  for  global  node 
numbering  are  preserved  for  the  present  subroutine,  also  note  that  in  most 
cases  (such  as  impulsively-loaded  plates)  the  vector  DISP(I),  1=1, NDT  is  set 
equal  to  zero  (zero  initial  displacement)  and  certain  of  the  degrees  of  free- 
dom are  given  an  initial  velocity.  For  example,  the  following  set  of  state- 
ments generates  zero  initial  displacement  for  all  degrees  of  freedom,  and  an 
initial  velocity  of  2794  m/sec  for  the  transverse  w degree  of  freedom  for 
nodes  1 through  9: 

DO  10  1=1, NDT 

DISP(I)  = 0.0D0 
10  VEL(I)  = 0.0D0 
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DO  20  1=1,9 

II  = ( I- 1 ) * 6+  3 

20  VEL (II)  = 0. 2794D+04 

4.6.2  User-Prepared  External-Loading  Subroutine  EXTL  (PLATE  Program) 

The  user  is  required  to  write  a computer  subroutine  which  generates  the 

vector  of  prescribed  externally-applied  forces  (ELV(I),  1=1, NDT)  applied  to 

each  global  degree  of  freedom  at  time  t . It  should  be  emphasized  that  this 

m 

vector  of  externally- applied  (time-dependent)  nodal  forces  corresponds  to  the 
total  load  applied  at  that  instant  of  time.  This  subroutine  is  called  for 
each  cycle  starting  with  the  first  cycle  in  the  timewise  solution.  Thus,  the 
user  is  required  to  define  the  spatial  distribution  of  the  external  forces 
at  each  time  instant  (i.e.,  at  each  time  t = ITT*DELTAT,  where  ITT  is  the 
current  cycle  number  and  DELTAT  is  the  time  step  size,  At) . The  subroutine 
should  be  prepared  as  follows: 

SUBROUTINE  EXTL  (ELV, ITT, NP, NODE, XGI,YGI) 

IMPLICIT  REAL*8 (A-H,0— Z) 

DIMENSION  ELV (1) , NP(4,1),  NODE(l) , XGI(l),  YGI(l) 

COMMON/BAS /NDT , NET , MN , NB , NIRREG , MNC 

COMMON/TIM/DELTAT , TIMEF , ITIMEF , INCRT , I0UT , TIME , ITIME 

Insert  user-code  to  generate  the  spatial  distribution 

of  the  external  forces,  ELV(I),  1=1,  NDT,  at  time 
t=ITT *DELTAT . Note  that  if  no  external  forces  are 
present  m the  current  run  of  the  PLATE  code,  the 
vector  ELV ( I ) , 1=1,  NDT  must  be  set  equal  to  zero. 

RETURN 

END 

The  arrays  (vectors)  NP,NODE,XGI,  and  YGI,  and  variables  NDT  and  NET 
retain  the  definitions  given  in  Subsection  4.6.1  (it  should  be  emphasized, 
however,  that  XGI(I)  and  YGI (I)  are  the  global  X and  Y coordinates,  respec- 
tively, of  the  Ith  global  node  at  time  zero)  and  the  parameters  ITT  and  DELTAT 
have  been  defined  in  the  preceding  discussion.  It  should  also  be  noted  that 
the  contents  of  the  vector  ELV(I),  1=1,  NDT  are  modified  after  the  call  to  sub- 
routine EXTL. 
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As  an  example,  assume  that  a nodal  force,  F,  of  constant  amplitude,  but 
varying  in  time,  of  the  form 


F = 100  sm(25t) 

is  applied  to  the  transverse  w degree  of  freedom  at  nodes  1 through  5.  The 

following  set  of  statements  could  be  inserted  in  subroutine  EXTL  to  generate 

+ 

the  necessary  external  loading  vector  at  each  time  step: 

DO  10  1=1, NDT 

10  ELV(I)  = 0.0D0 
DO  20  1=1,5 

II=(I-1) *6+3 

20  ELV (II ) =100 . 0D0*SIN ( 25 . 0D0*ITT*DELTAT) 

4.7  Description  of  the  Output 

The  printed  output  begins  with  a reiteration  of  the  program  input  which 
defines  the  problem  being  solved.  Although  portions  of  the  output  associated 
with  mesh  generation  are  different  for  the  auto-mesh  versus  manual  mesh  options, 
sufficient  information  is  given  so  that  the  user  can  verify  the  accuracy  of  the 
input  data  provided.  The  initial  output  which  is  generated  on  each  run  of  the 
PLATE  program  is  summarized  m the  following  categories: 

Dimension  Parameter  Data 

The  variables  input  on  Card  1 are  output  to  verify  these  dimension 
parameters. 

Finite  Element  Mesh  Information  (Auto-Mesh  Generation) 

Geometric  and  material  data  for  the  plate  and  general  mesh  subdivision 
information  is  first  reiterated.  Next,  the  nodal  connectivity  information 
(which  is  the  set  of  global  node  numbers  assigned  to  the  4 nodes  of  each 
element)  is  output.  The  user-selected  boundary  condition  for  each  side  of 
the  plate  is  then  printed,  and  the  specific  constrained  degrees  of  freedom 
are  output  in  ascending  order  with  no  duplicates.  Finally,  if  X and/or  Y 
direction  stiffeners  are  present,  data  for  each  stiffener  are  printed.  These 
data  are  given  m terms  of  each  individual  (as  renumbered  — see  Subsection  4.1.4) 

+This  information  could  be  supplied  in  any  other  allowable  FORTRAN  form. 
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stiffener  and  include  the  element  number  on  which  the  stiffener  is  located, 
material  type,  thickness,  width,  Young's  modulus,  Poisson's  ratio,  material 
density,  normalized  location  on  the  element,  and  the  offset  distance  of  the 
stiffener. 

Finite-Element  Mesh  Information  (Manual-Mesh  Generation) 

This  output  is  similar  in  form  to  that  obtained  when  the  auto-mesh 
generation  procedure  is  employed.  In  this  case,  however,  most  of  the  output 
is  simply  a reiteration  of  data  input  by  the  user.  This  output  should  be 
used  to  verify  the  accuracy  of  the  user-prepared  input  data. 

Mass  Modeling  Chosen 

A message  is  printed  indicating  which  mass  model  (lumped  or  consistent) 
has  been  chosen  by  the  user. 

Storage  of  Global  Stiffness  Matrix 

The  actual  number  of  words  of  storage  required  for  the  assembled  stiff- 
ness is  output.  If  too  little  storage  has  been  allowed  by  the  user,  the  run 
is  terminated  and  a message  indicating  this  is  printed. 

Stress-Strain  Data  for  Each  Material  Type 

The  total  number  of  material  types  selected  by  the  user  is  output  and 
the  following  data  are  then  printed  for  each  material  type:  the  coordinate 
pairs  (stress,  strain)  which  define  the  piecewise  linear  approximation  to  the 
actual  stress-strain  curve,  the  yield  stress  of  each  mechanical  sublayer,  and 
the  strain  rate  parameters  for  that  material  type. 

Time-Step  Information 

The  time-step  size,  At,  final  time  and  final  increment  number,  and  the 
number  of  cycles  between  regular  printouts  for  the  present  run  are  output. 

Print  Options 

A list  is  printed  of  those  quantities  which  will  be  output  at  each 
regular  print  cycle.  This  information  corresponds  to  those  print  options 
exercised  by  the  user  as  well  as  all  pertinent  data  necessary  for  any  given 
option.  For  example,  if  option  I0P3  is  exercised,  a list  is  printed  of 
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plate  element  numbers  for  which  Gaussian  station  strain  output  is  requested. 
Line  Restoring  Spring  Data 

If  line  restoring  springs  are  present,  input  data  corresponding  to 
each  linear-elastic  line  restoring  spring  is  reiterated.  These  data  include 
the  element  number  and  element  side  number  on  which  the  line  restoring  spring 
is  located,  and  the  five  spring  constants  input  by  the  user. 

Reference  Time-Step  Size 

An  eigen— analysis  is  performed  and  the  following  reference  data  are 

generated  and  output:  the  highest  natural  frequency,  co  , for  the  equivalent 

max 

linear  finite-element  model,  a reference  time  step  size,  (At)  = 2/to 

Ref.  max 

(which  is  the  stability  criterion  for  the  Central  Difference  operator)  of 

a corresponding  linear  dynamic  system,  and  finally  a reference  time-step 
CD 

size,  (^tmay)Rof  = 0.8(At)Ref;  the  factor  0.8  is  introduced  to  account  for 

large-deflection  effects  when  using  the  Central  Difference  operator  [1-3] . 

The  PLATE  program,  however,  utilizes  the  Houbolt  finite-difference  operator, 

and  this  final  reference  time  step  size,  (At^  ) , may  be  used  to  choose 

max  Rsii  ~ 

the  actual  time-step  size  as  discussed  m Subsections  2.3  and  4.8.2. 


Dimensions  Related  to  Reaction  Force  Output  (If  Applicable) 

If  reaction  force  output  has  been  selected  (IOP5) , an  operation  is 
performed  which  extracts  and  stores  in  array  RFM  the  rows  of  assembled  stiff- 
ness matrix  corresponding  to  the  constrained  degrees  of  freedom.  During  this 
operation,  the  extracted  row  of  the  assembled  stiffness  matrix  which  has  the 
largest  bandwidth  is  identified.  This  row  number  (which  must  correspond  to 
a constrained  degree  of  freedom  number)  and  the  corresponding  bandwidth  are 
printed.  If  the  calculated  maximum  bandwidth  at  a constrained  degree  of 
freedom  (printed)  is  larger  than  the  user  estimates  (MB WE  on  data  input 
Card  1;  also  used  to  dimension  array  RFM)  of  this  quantity,  the  run  is  termi- 
nated and  a message  to  this  effect  is  printed?  the  user  should  make  appro- 
priate changes  to  MB WE  on  Card  1 of  input  data  and  to  the  dimension  of  RFM. 
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This  completes  the  initial  output  generated  by  the  PLATE  program.  All 
other  output  is  m the  form  of  structural  response  data  at  user-specified 
intervals;  these  data  are  also  output  prior  to  the  first  time  cycle  to  verify 
initial  geometry  and  displacement  conditions,  and  at  the  end  of  the  first  time 
cycle.  The  data  output  corresponds  to  those  output  options  selected  by  the 
user,  and  only  that  output  selected  by  the  user  will  appear.  However,  for 
the  sake  of  completeness,  the  output  generated  by  each  of  the  print  options 
is  shown.  The  following  output  is  generated  every  INCRT  time  cycles: 

***  INCH.  NO.  = TIME  = SEC. 

NODE  U V W PSIX  PSIY  TWIST  X-POS.  Y-POS.  Z-POS. 

1 

2 

3 


REACTION  FORCES  AT  CONSTRAINED  NODES 


NODE  RX (LBS)  RY (LBS)  RZ(LBS)  MX(LBS-IN) 
4 

13 

24 


MY (LBS- IN) 


MXY  (IN- IN -LBS) 


+Note  that  the  "reaction  force"  MXY  multiplied  by  its  associated  generalized 
displacement  X results  m a quantity  with  units  of  energy :IN-LB. 
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'STRAIN  COMPONENTS,  PRINCIPAL (TENSILE)  STRAIN  AND  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  ( PRINC . STRAIN (T)  DIRECTION (DEG) 

ELEM. INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

1 

2 

3 


STRAIN  COMPONENTS,  PRINCIPAL (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC . STRAIN (T)  DIRECTION (DEG. ) 
NODE  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

7 

10 

14 

18 


STRAIN  COMPONENTS,  PRINCIPAL (TENSILE)  STRAIN  AND  DIRECTION  AT  GAUSSIAN  STATIONS 
FOR  SELECTED  ELEMENTS 
RESULTS  FOR  ELEMENT  NUMBER  [LNUM] 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN (T)  DIRECTION (DEG. ) 
STA. INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

1 

2 

3 


(This  set  of  statements  is  repeated  for  each  user-specified  element.) 
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STRAIN  COMPONENTS,  PRINCIPAL (TENSILE)  STRAIN  AND  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


SURFACE  EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  ELONG. (DIR. 1)  ELONG. (DIR. 2)  PRINC. STRN (T) 
POINT  NO. 

1  INNER 

1 OUTER 

2 INNER 

2 OUTER 

3 INNER 

STRAIN,  EPS-XX,  AT  GAUSSIAN  STATIONS  ON  SPECIFIED  X-DIRECTION  STIFFENERS 
STIFFENER  STATION  I STATION  2 STATION  3 

NUMBER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

io  16 

U1 

18 

21 


STRAIN, 

STIFFENER 

NUMBER 


EPS-YY,  AT  GAUSSIAN  STATION  ON  SPECIFIED  Y-DIRECTION  STIFFENERS 


STATION  1 
INNER  OUTER 


STATON  2 
INNER  OUTER 


STATION  3 
INNER  OUTER 


2 

3 

10 


DIRECTION (DEG) 


13 


SYSTEM  ENERGIES  (IN-LB) 

WORK  INPUT  TO  STRUCTURE  = [EWORK] 

STRUCTURE  KINETIC  ENERGY  = [CINET] 

STRUCTURE  ELASTIC  ENERGY  = [ELAST] 

STRUCTURE  PLASTIC  ENERGY  = [PLASTW] 

ENERGY  STORED  IN  ELASTIC  RESTRAINTS  = [SPREN] 

where 

INCR.  NO.  = Current  cycle  number 

TIME  = Current  time  in  seconds 

NODE  = Global  node  number  at  which  the  quantity  is  being 

evaluated.  For  displacement  output,  all  nodes  all 
processed;  for  reaction  force  output,  those  nodes 
which  are  constrained  are  processed;  and  for  nodal- 
average  strain  output,  only  those  nodes  specified 
by  the  user  are  processed. 


= The  current  displacement  u,  v,  w,  9 = 3w/3x,  ip  = 3w/3y,  and 
2 

X = 3 w/3x3y,  respectively,  at  the  node. 


= The  current  global  X,  Y,  and  Z coordinates  of  a node. 


RX  (LBS) 

RY (LBS) 

= The  generalized  reaction  forces,  R , R , and  R , 
RZ(LBS)  r x y z 

....  M , M , and  M at  a constrained  node. 

MX (LBS-IN)  x y xy 

MY (LBS-IN) 

MXY (LBS-IN- IN) 


and  moments, 
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EPS-X 


\ 


EPS-Y 

SHEAR 


i 


PRINC. STRAIN (T) 


DIRECTION (DEG. ) 

INNER 

OUTER 

LNUM 

STA. 


= The  strain  components  e , s , and  e , respectively; 

xx  yy  xy  c 1 

the  printed  shear  strain  e is  the  engineering  value 
— which  is  twice  its  tensonal  counterpart. 


= The  (maximum)  principal  tensile  strain  component. 

If  all  principal  strains  are  compressive,  a value 
of  0.0  is  printed. 

= The  direction  m degrees,  measured  from  the  positive 
global  X direction,  of  the  maximum  principal  tensile 
strain. 

= Indicates  strain  component  is  evaluated  at  the  inner 
surface  of  the  plate  (or  stiffener) . 

= Indicates  strain  component  is  evaluated  at  the  outer 
surface  of  the  plate  (or  stiffener) . 

= Element  number  for  which  Gaussian  station  strain 
output  is  given. 

= Gaussian  station  number  at  which  strain  data  is 

output.  A 3 by  3 spanwise  Gaussian  integration  rule 
is  used  and  the  strains  are  printed  at  each  of  these 
nine  Gaussian  stations.  The  location  of  these  sta- 
tions on  an  element  is  given  m terms  of  normalized 
coordinates  £ and  n and  the  local  (element)  x,  y 
coordinate  locations  (assuming  element  node  number  1 
has  local  coordinates  (x,y)  = (0,0)  can  be  obtained 
from  the  formulas 


x = a(l+C)/2 
y = b(l+n)/2 

where  a and  b are  the  x and  y dimensions  of  the  ele- 
ment £ and  r)  take  on  the  following  values  at 
each  station: 
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STATION  NUMBER 

£ VALUE 

n VALUE 

1 

-0.774597 

-0.774597 

2 

0.0 

-0.774597 

3 

0.774597 

-0.774597 

4 

-0.774597 

o 

* 

o 

5 

0.0 

0.0 

6 

0.774597 

O 

• 

o 

7 

-0.774597 

0.774597 

8 

0.0 

0.774597 

9 

0.774597 

0.774597 

POINT  NO. 


ELONG. (DIR. 1) 
ELONG. (DIR. 2) 


STIFFENER 

NUMBER 


= The  number  of  the  additional  strain  point;  this  number 
is  implicitly  assigned  by  the  user  by  the  order  in 
which  additional- strain  point  information  is  input. 

= The  relative  elongation  m the  two  user- specified 
directions 

= The  user-specified  individual  X or  Y-direction  stiffener 
number  for  which  strain  data  are  output. 


STATION 

STATION 

STATION 


EWORK 

CINET 

ELAST 

PLAST 


SPREN 


= Spanwise  Gaussian  station  on  the  X or  Y-direction 
stiffener  at  which  strain  is  calculated. 

= Work  input  to  the  structure. 

= Current  kinetic  energy  stored  in  the  structure. 

= Current  elastic  strain  energy  stored  m the  structure 

= Total  plastic  work  done  on  the  structure  (mechanical 
work  dissipated  during  plastic  flow) . 

= Total  energy  stored  m linear  elastic  restoring 
springs. 


If  continuation  cards  have  been  requested,  a message  is  printed  at  the 
conclusion  of  the  run  indicating  that  a continuation  deck  has  been  punched  and 
also  indicating  the  cycle  number  at  which  the  continuation  will  begin. 
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4.8  Guides  and  Restrictions  for  Code  Usage 


The  sequence  of  steps  necessary  to  run  the  PLATE  program  (i.e.,  prepara- 
tion of  input  data  cards,  dimensioning  of  arrays  m the  dummy  main  program,  and 
writing  of  internal  logic  for  subroutines  INCOND  and  EXTL)  have  been  discussed 
earlier  in  this  section.  In  principle,  this  information  is  sufficient  to  exe- 
cute the  PLATE  program.  However,  in  practice,  use  of  the  PLATE  program  may  be 
unnecessarily  costly  unless  the  options  and  features  of  the  PLATE  program  are 
used  efficiently. 

The  purpose  of  the  present  subsection  is  twofold:  first,  to  discuss 
various  techniques  for  efficient  code  usage  in  terms  of  computation  time,  com- 
puter core  storage,  and  program  cost,  and  second,  to  discuss  the  proper  inter- 
pretation of  program  output.  The  present  discussion  is  intended  only  to  point 
out  certain  key  areas  for  efficient  code  usage;  additional  areas  will  be  identi- 
fied by  the  user  through  experience. 

4.8.1  Dimension  of  the  Assembled  Stiffness  Matrix 

The  largest  single  block  of  storage  required  m the  PLATE  program  is  for 
the  assembled  stiffness  matrix,  K.  If  consistent  mass  modeling  is  employed, 
an  additional  block  of  storage  equal  to  that  required  for  K,  is  also  required 
for  the  assembled  mass  matrix,  M. 

The  manner  in  which  the  assembled  stiffness  matrix  is  stored  has  been 
discussed  in  Subsection  4.1.5.  The  total  storage  requirements  for  K are  di- 
rectly proportional  to  the  total  number  of  nodes  m the  finite-element  mesh 
and  the  average  semi-bandwidth  of  the  assembled  stiffness  matrix.  The  total 
number  of  nodes  can  be  reduced  by  using  fewer  elements  m the  mesh;  generally, 
the  mesh  size  will  be  dictated  by  geometry  and  accuracy  considerations.  How- 
ever, the  user  should  be  alerted  to  the  fact  that  an  excessively-refined  mesh 
will  lead  to  excessive  computer  core  storage  requirements  and  computation  time 
(the  amount  of  computation  time  per  time  cycle  is  directly  related  to  the 
total  number  of  elements) . 

For  a fixed  mesh  arrangement,  the  total  storage  requirements  for  K can 
be  reduced  by  minimizing  the  average  semi-bandwidth  of  K.  For  a rectangular 
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plate,  this  is  accomplished  by  numbering  the  global  nodes  so  that  the  differ- 
ence between  the  lowest  and  highest  global  node  number  assigned  to  any  given 
element  is  minimized.  When  the  auto-mesh  generation  routine  is  used,  global 
nodes  are  numbered  sequentially  left  to  right  for  the  first  row  of  nodes,  then 
left  to  right  for  the  second  row  of  nodes,  etc.  Thus,  the  global  nodes  are 
numbered  "fast"  in  the  X-direction  and  "slow"  m the  Y-direction.  The  average 
semi-bandwidth  will  be  minimized  if  the  "fast"  numbering  direction  has  fewer 
nodes  than  the  "slow"  numbering  direction.  When  using  the  auto-mesh  genera- 
tion routine,  the  side  of  the  rectangular  plate  having  the  fewest  nodes  should 
always  be  aligned  parallel  to  the  global  X-direction  (the  fast  numbering  di- 
rection) .+  A similar  argument  can  be  made  when  using  the  manual  mesh  generation 
routine;  number  global  nodes  sequentially  choosing  the  direction  with  fewest 
nodes  as  the  "fast"  numbering  direction. + 

The  dimension,  MNC,  of  K (vector  STF  in  the  PLATE  program)  can  be  esti- 
mated if  the  user  has  a knowledge  of  the  assembly  process  m the  finite- 
element  method.  Alternately,  the  PLATE  program  can  be  used  directly  to  obtain 
the  exact  value  of  MNC  for  each  new  analysis  as  follows: 

1.  Prepare  all  input  data,  internal  logic  for  subroutines  INCOND 
and  EXTL,  and  dimensions  in  the  dummy  main  program  for  the 
analysis  being  considered,  except 

2.  Set  the  value  of  MNC  on  input  Card  1 equal  to  1 and  dimension 
STF(l)  (and  AMASS (1)  if  consistent  mass  modeling  is  elected). 

3.  Next  run  the  PLATE  program.  The  exact  value  of  MNC  will  be 
calculated  and  output,  and  the  run  will  terminate  since  the 
correct  value  of  MNC  is  larger  than  the  specified  value  (of  1 
as  per  step  2)  of  MNC. 

4.  Change  the  value  of  MNC  on  Card  1 and  the  dimension  of  STF 
(and  AMASS  if  consistent  mass  modeling  is  elected)  to  the 
correct  value  as  calculated  on  the  abbreviated  run.  Then 
proceed  with  the  desired  analysis. 

If  the  user  provides  an  estimate  of  MNC  which  is  larger  than  the  correct 
value,  the  analysis  will  proceed  and  the  run  will  not  be  terminated.  However, 

These  guidelines  have  been  followed  in  the  present  examples;  see,  for  example. 
Figs.  17  and  19. 
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the  correct  value  of  MNC  will  always  be  calculated  and  printed  as  output  so 
that  the  value  of  MNC  used  on  Card  1 and  for  the  dimension  of  STF  (and  AMASS 
if  IMASS  = 2)  can  be  adjusted  to  the  correct  value  for  subsequent  runs.  Use 
of  the  correct  value  for  MNC  is  advised  to  minimize  storage  requirements. 

4.8.2  Selection  of  Time-Step  Size 

The  total  computation  time  is  directly  related  to  the  number  of  time 
cycles,  which  is  m turn  related  to  the  time  step  size  At;  as  At  is  decreased, 
more  time  cycles  will  be  required  to  obtain  solutions  up  to  a given  final 
time.  Alternatively,  the  value  of  At  cannot  be  set  arbitrarily  large  because 
of  solution  convergence  and  stability  considerations  (see  Subsection  2.3). 

To  aid  the  user  m the  selection  of  At,  the  PLATE  program  will  calculate 
and  output  a reference  value  for  At.  For  each  new  structural  analysis  or  each 
new  mesh  arrangement  of  the  same  structure,  it  is  recommended  that  an  abbreviated 
run  of  the  PLATE  program  be  made  to  obtain  the  reference  At  as  follows: 

1.  Prepare  all  input  data  cards,  internal  logic  for  subroutines 
INCOND  and  EXTL,  and  dimensions  m the  dummy  main  program  for 
the  actual  analysis,  except 

2.  Set  ITIMEF=1  on  Card  49  so  that  the  program  will  terminate 
after  one  cycle  of  execution.  The  value  of  At  (DELTAT  on 
Card  50)  can  be  set  equal  to  any  value. 

3.  When  the  PLATE  program  is  run,  the  reference  value  of  At 
will  be  calculated  and  printed  as  output.  In  subsequent 
runs,  this  value  of  At  can  be  used  as  a reference;  ITIMEF 
on  Card  49  and  DELTAT  on  Card  50  should  be  set  equal  to 
the  desired  values  for  the  actual  analysis. 


The  significance  of  the  calculated  reference  At  and  its  relation  to 
"allowable"  values  of  At  has  been  discussed  m Subsection  2.3.  For  initial 
runs  of  a given  problem,  it  is  recommended  that  the  actual  value  of  At  used 
be  between  2 and  6 times  the  reference  At.  In  most  cases,  some  numerical 
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experimentation  will  be  necessary  to  determine  if  the  solution  has  converged. 

It  is  recommended  that  the  larger  factor  be  used  on  the  initial  run,  followed 
by  a run  using  half  the  previous  value  of  At.  This  process  is  repeated  until 
the  solution  has  converged.  This  convergence  check  can  be  carried  out  over 
only  a portion  of  the  desired  analysis  time  to  save  computing  costs,  and  the 
full  time  analysis  can  be  carried  out  once  a suitable  value  of  At  has  been 
found . 

Experience  gained  by  the  user  with  the  PLATE  program  will  help  to  mini- 
mize the  amount  of  numerical  experimentation  necessary  in  later  analyses.  It 
is  recommended  that  a record  be  kept  of  calculated  vs.  converged  (allowable) 

At  values.  For  example,  experience  gained  to  date  suggests  that  for  impulsively- 
loaded  plates,  a value  of  At  four  times  the  reference  value  will  yield  converged 
solutions . 

4.8.3  Use  of  Lumped  Mass  vs.  Use  of  Consistent  Mass 

The  PLATE  program  provides  an  option  for  using  either  lumped  or  con- 
sistent mass  modeling.  The  choice  of  mass  modeling  is  not  arbitrary  and  the 
user  should  understand  the  relative  advantages  and  disadvantages  of  each. 

Consistent  mass  modeling  is,  as  indicated  by  its  name,  the  more  consistent 
approach  from  a variational  standpoint.  The  kinetic  energy  of  the  plate  ele- 
ment is  approximated  by  employing  an  interpolation  polynomial  for  the  nodal 
velocities  which  is  identical  to  that  used  for  the  nodal  displacements.  As 
shown  in  Appendix  A,  this  approach  leads  to  an  element  mass  matrix  which  is  in 
general  fully  populated;  i.e.,  the  kinetic  energy  includes  coupling  effects  be- 
tween various  nodal  velocities.  The  important  fact  is  that  the  kinetic  energy 
is  based  on  an  interpolation  of  velocities  which  is  consistent  with  the  inter- 
polation of  displacements  used  to  define  the  potential  energy. 

On  the  other  hand,  lumped  mass  modeling  is  based  on  average  element 
velocities  rather  than  on  interpolated  element  velocities.  The  average  ele- 
ment velocities  are  calculated  from  a weighted  average  of  the  nodal  velocities 
and  a lumped  (diagonal)  mass  matrix  result.  In  effect,  the  total  mass  and 
mass  moment  of  inertia  of  the  element  are  calculated  and  then  lumped  at  each 
node,  the  proportions  going  to  each  node  being  determined  generally  by  element 
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geometry.  For  the  present  uniform- thickness,  rectangular  plate  elements, 
equal  portions  (one-quarter  of  the  total)  are  given  to  each  node  (see  Appendix  A 
for  a detailed  derivation) . 

The  more  important  considerations,  however,  are  computational  efficiency 
and  accuracy.  The  computer  core  storage  requirement  for  an  assembled  consistent 
mass  matrix  is  identical  to  that  of  the  assembled  stiffness  matrix  (i.e.,  MNC 
words  of  storage)  whereas  the  assembled  lumped  mass  matrix  requires  only  NDT 
words  of  storage  to  store  the  diagonal  entries. 

In  terms  of  computation  time,  slightly  more  time  is  required  to  perform 
operations  with  the  banded  assembled  consistent  mass  matrix  than  is  required 
with  the  diagonal  assembled  lumped  mass  matrix.  Also,  the  reference  At  is  in- 
versely proportional  to  the  maximum  frequency  in  the  assembled  finite-element 
model.  The  maximum  frequency  when  using  consistent  mass  modeling  is  larger 

than  that  calculated  when  using  the  present  lumped  mass  modeling."1"  This 
could,  in  effect,  reduce  the  maximum  allowable  time-step  size  for  convergence 
and/or  stability  and  thereby  increase  computation  costs. 

Because  of  its  relative  efficiency,  lumped  mass  modeling  is  often  used 
and  comparative  studies  (e.g.,  Refs.  1 and  19-23)  suggest  that  little  or  no  loss 
in  solution  accuracy  will  be  observed.  Generally,  computer  core  storage  limita- 
tions dictate  that  lumped  mass  modeling  be  used.  Theoretical-experimental  corre- 
lation studies  carried  out  using  the  PLATE  program  suggest  that  lumped  mass 
modeling  is  both  accurate  and  adequate  when  using  relatively  refined  meshes . How- 
ever, if  computer  storage  limitations  permit,  the  user  may  wish  to  carry  out  a 
series  of  comparative  studies  to  assess  the  relative  merits  of  the  two  mass  models. 

4.3.4  Selection  of  Output  Options 

Numerous  useful  options  have  been  provided  for  the  user  which  calculate 
and  print  displacement,  strain,  reaction  force,  and  system  energy  information 
at  user-specified  intervals.  The  definition  of  these  eight  options  (IOPl, 

I0P2,  ...  I0P8)  is  given  on  Card  51  of  Subsection  4.2.  Each  option  is  useful, 
but  not  always  necessary,  and  the  user  should  be  aware  of  the  cost  vs.  value 
of  each  option  before  it  is  specified.  The  purpose  of  the  present  subsection 
is  to  discuss  the  implications  of  each  option  in  terms  of  lines  of  output, 

+ 

See  Subsection  2.5.3  of  Ref.  11  and  Refs.  19-23. 
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computation  time,  and  core  storage.  The  question  of  the  relative  value  of 
the  output  options  (m  particular  for  strain  output)  will  be  taken  up  in  the 
next  subsection. 

In  some  installations,  a portion  of  the  cost  of  computing  is  related 
to  the  number  of  lines  (or  pages)  of  printout  generated.  In  the  following 
table,  the  number  of  lines  of  output  generated  by  each  output  option  at  each 
printout  cycle  is  given  (note  that  these  figures  do  not  include  headings) : 


OPTION 

DESCRIPTION 

LINES/QUANTITY 

IOPl 

Nodal  displacements  and 
current  location 

1/Node 

I0P2 

Element  centroidal  strains 

1/Element 

I0P3 

Gaussian  station  strains  on 
user-specified  elements 

9/Specified  Element 

I0P4 

Strains  at  user-specified  loca- 
tions 

2/Specif led  Location 

I0P5 

Reaction  forces  at  constrained 
nodes 

1/Constramed  Node 

I0P6 

Gaussian  station  strains  on 
user-specified  stiffeners 

3/Specified  Stiffener 

IOP7 

System  energies 

5 lines 

I0P8 

Strains  at  user-specified  nodes 

1/Specified  Node 

In  terms  of  computer  core  storage  requirements,  only  Options  I0P5  and 
I0P8  require  additional  storage  (see  Subsection  4.5);  Option  I0P8  requires 
5*MNNSA  additional  words  of  storage  and  Option  I0P5  requires  NBE*(MBWE+3)  ad- 
ditional words  of  storage,  where  the  variables  MNNSA,  NBE,  and  MB WE  are  de- 
fined, in  Subsection  4.5.  The  use  of  Option  I0P5  will  require  significantly 
more  additional  core  storage  than  the  use  of  Option  I0P8. 

The  information  printed  when  Options  IOPl,  I0P2,  and  I0P3  are  exercised 
is  available  at  the  time  of  output  and  no  additional  computations  are  required. 
However,  the  information  required  for  Options  I0P4  through  I0P8  must  be  calcu- 
lated at  each  printout  cycle  before  it  can  be  printed;  thus,  additional  com- 
putation time  will  be  required  if  any  of  these  options  is  exercised. 
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Experience  to  date  suggests  that  these  options  do  not  add  a significant  amount 
of  computation  time,  particularly  if  the  number  of  printout  cycles  is  only  a 
small  percentage  of  the  total  number  of  cycles  (e.g.  1 printout  cycle  every 
5 time  cycles) . 

Total  lines  of  printout  and  total  additional  computation  time  will  be 
dependent  on  both  the  options  selected  as  well  as  the  total  number  of  printout 
cycles  requested.  Both  will  often  be  dictated  by  the  type  of  response  informa- 
tion being  sought  and  the  degree  of  definition  required  m the  time  response. 

In  general,  it  is  recommended  that  displacement  (IOPl)  and  system  energy  (I0P7) 
output  be  obtained  for  each  run  of  the  PLATE  program.  In  view  of  increased 
storage  and  computation  time,  reaction  force  output  (I0P5)  should  be  sought 
only  when  necessary.  Some  form  of  strain  output  (I0P2,  I0P3,  I0P4,  I0P6, 
and  I0P8)  should  be  obtained  for  each  run  of  the  PLATE  program.  A discussion 
of  strain  calculation  and  interpretation  is  given  in  the  next  subsection;  it 
is  important  that  the  user  understand  these  areas  so  that  efficient  use  may  be 
made  of  the  strain  output  options. 

4.8.5  Comments  on  Strain  Calculation 

The  PLATE  program  provides  options  which  allow  the  user  to  obtain  strain 
output  at  element  centroids,  element  Gaussian  stations,  nodal  points,  stiffener 
Gaussian  stations,  as  well  as  other  user-specified  locations.  This  flexibility 
can  be  of  great  value  to  the  user  but  care  should  be  taken  m the  selection  and 
interpretation  of  these  strain  results. 

The  strain-displacement  relation  employed  for  the  present  rectangular 
plate  elements  is  given  m Appendix  A.  Some  nonlinear  terms  have  been  included  m 
the  membrane  strains,  but  only  linear  terms  are  included  m the  bending  be- 
havior. Thus,  the  membrane  nonlineanties  have  been  assumed  to  be  more  signifi- 
cant than  bending  nonlmearities.  The  calculated  distribution  of  strain  may  be 
quite  different  from  element  to  element  and  in  general  will  be  different  than 
the  "exact”  distribution;  in  the  present  finite-element  model  the  predicted 
strain  distribution  approximates  the  actual  strain  distribution  in  an  average 
(integral)  sense,  and  not  m a pointwise  sense.  Although  the  calculated  strain 
distribution  may  agree  with  the  exact  distribution  at  one  or  more  points  within 
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an  element,  the  location  of  these  "best"  points  for  monitoring  strains  cannot 
be  readily  determined.  Also,  strains  will  not  be  continuous  along  interelement 
boundaries  or  at  nodes  where  two  or  more  elements  are  joined. 

Because  of  these  facts,  certain  precautions  should  be  taken  by  the  user 
when  assessing  strain  distributions  m space  and/or  time.  The  type  and  amount 
of  strain  output  will  depend  on  the  problem  being  considered  and  the  region  of 
the  structure  under  closest  scrutiny.  If  general  strain  distribution  informa- 
tion is  sought  over  a large  portion  of  the  structure.  If  detailed  stress 
distribution  information  at  various  time  instants  is  sought  over  a small 
region  of  the  structure,  then  both  nodal  average  strains  and  Gaussian 
station  strains  for  elements  m this  small  region  could  be  employed.  In 
either  case,  when  these  calculated  values  are  plotted,  the  analyst  can 
then  make  a reasonable  "faired"  estimate  of  the  "proper"  distribution.  It 
should  be  noted  that  severe  strain  gradients  within  an  element  do  not 
necessarily  indicate  poor  behavior  of  the  solution;  however,  it  is  m these 
regions  where  the  analyst  must  excercise  the  greatest  caution  in  making  a 
reasonable  faired  estimate  of  the  proper  distribution. 

If  strain  time-history  information  is  required  at  various  points  on  the 
structure,  these  points  may  be  specified  as  additional  strain  points  (if  the 
point  does  not  already  fall  at  or  near  a nodal  point  or  element  centroid)  and 
the  time  histories  can  be  obtained  directly.  Two  recommendations  should, 
however,  be  followed  whenever  strain  time-history  data  are  sought.  First,  it 
is  recommended  that  spatial  distributions  near  these  points  of  interest  be 
obtained  at  several  time  instants  to  assess  whether  or  not  the  strain  at  the 
point  of  interest  is  m reasonable  agreement  with  the  curve-fitted  (or  faired) 
distribution  m that  region  of  the  structure.  Second,  if  a point  of  interest 
falls  near  a node,  nodal  average  strain  information  at  that  node  should  be 
preferred  over  the  strain  information  obtained  near  the  node  (which  is  not 
averaged);  in  general,  for  elements  (such  as  those  m the  PLATE  program)  ex- 
hibiting discontinuous  strains  at  interelement  boundaries  (and  therefore  also 
at  nodes) , average  strain  values  at  nodes  (or  interelement  boundaries)  should 
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be  preferred  over  the  strain  values  evaluated  near  the  node  (or  interelement 
boundary)  using  only  the  strain  distribution  from  one  element.  If  these  steps 
are  followed,  a reasonable  engineering  assessment  of  strain  information  should 
be  obtained. 

The  equations  m Appendix  A have  been  developed  within  the  assumption  of 
large  deflections  but  small  strains.  Thus,  reliable  results  may  not  be  obtained 
in  localized  regions  where  large  strains  are  predicted.  The  actual  strain  level 
at  which  the  "small  strain"  assumption  becomes  invalid  has  been  examined  and 
discussed  m Ref.  14;  the  reader  is  referred  to  Ref.  14  for  further  information 
and  guidance. 
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SECTION  5 


USE  OF  THE  CIVM- PLATE  PROGRAM 


5.1  Introduction 

The  CIVM-PLATE  computer  program  is  designed  to  predict  the  large- 
deflection,  elastic-plastic,  transient  responses  of  mitially-flat  stiffened 
or  unstiffened  plates  subjected  to  impact  by  a single  idealized  rigid 
spherical  fragment.  Much  of  the  programming  logic  used  m the  CIVM-PLATE 
computer  program  is  identical  to  that  used  in  the  PLATE  program,  as  evidenced 
by  the  large  number  of  computer  subroutines  common  to  both  programs  (Section  3) . 

The  two  key  differences  between  the  PLATE  code  and  the  CIVM-PLATE  code 
are:  (1)  the  PLATE  program  is  designed  to  predict  transient  responses  of 

initially-flat  plate  structures  subjected  to  prescribed  initial  velocity 
distributions  and/or  prescribed  externally-applied  forces,  whereas  the 
CIVM-PLATE  program  is  designed  to  predict  transient  responses  of  initially- 
flat  plates  subjected  only  to  single  fragment  impact,  and  (2)  the  PLATE 
program  allows  the  user  to  choose  either  consistent  or  diagonalized  lumped 
mass  modelling,  whereas  the  CIVM-PLATE  program  uses  only  a diagonalized 
lumped  mass  model. 

User  interaction  with  the  CIVM-PLATE  program  is  reduced  (by  comparison 
with  that  required  for  the  PLATE  program)  to  the  following  two  tasks: 

(1)  Preparation  of  input  data  cards 

(2)  Dimensioning  of  arrays  m the  dummy  main  program. 

These  two  tasks  are  essentially  identical  to  the  corresponding  tasks  required 
when  using  the  PLATE  program.  In  the  PLATE  program,  the  user  is  required  to 
prepare  internal  logic  for  subroutines  INCOND  and  EXTL  to  define  the  initial 
velocity  distribution  and  externally-applied  force  distribution.  These  types 
of  loading  are  not  included  in  the  CIVM-PLATE  program  and  thus  no  preparation 
of  internal  logic  is  required  to  use  the  CIVM-PLATE  program;  instead,  the 
user  is  required  to  prepare  additional  input  data  cards  (as  described  in 
Subsection  5.2)  to  define  the  geometry,  initial  position,  and  initial  velocity 
components  of  the  rigid  spherical  fragment,  and  several  collision  parameters. 
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With  respect  to  structural  geometry,  nomenclature,  and  numbering  conven- 
tions, material  properties,  time-step  information,  and  output  options,  the 
CIVM-PLATE  program  is  identical  to  the  PLATE  program.  The  discussions  in 
Subsection  4.1  on  the  use  of  auto-mesh  generation  versus  the  use  of  manual 
mesh  generation,  conventions  adopted  in  the  auto-mesh  and  manual-mesh  genera- 
tion subroutines,  numbering  convention  for  stiffeners,  and  storage  of  the 
assembled  stiffness  matrix  apply  equally  to  the  CIVM-PLATE  program;  the  user 
may  wish  to  review  this  information  before  attempting  to  run  the  CIVM-PLATE 
code.  Also,  a general  overview  of  the  collision- interaction  analysis  and 
solution  procedure  is  given  in  Subsections  2.4  and  2.5,  and  the  equations  on 
which  the  CIVM-PLATE  program  is  based  are  developed  and  discussed  in 
Appendix  B. 

5.2  Input  Information  and  Procedure 

The  structural  geometry,  nomenclature,  material  properties,  output 
options  and  time  step  input  required  for  a run  of  the  CIVM-PLATE  code  is 
identical  to  that  required  for  a run  of  the  PLATE  code.  For  a run  of  the 
CIVM-PLATE  code  using  the  auto-mesh  generation  procedure,  cards  1 through  65 
of  Subsection  4.2  are  input  exactly  as  given  m Subsection  4.2  with  the 
following  modifications/additions : 

(1)  Cards  1 and  2 of  Subsection  4.2  are  modified  as  shown  below. 

(2)  Cards  66  through  72  are  added  following  card  65  of  Subsection  4.2 

If  the  manual  mesh  generation  procedure  is  used,  the  input  data  presented  in 
Subsection  4.2  are  modified  exactly  as  described  in  Subsection  4.3;  the  above 
modifications/additions  required  for  the  CIVM-PLATE  program  still  apply.  The 
variables  to  be  punched  on  the  nth  data  card  are  shown,  and  to  the  right  is 
the  format  to  be  used  for  that  card;  the  definition  of  and  some  restrictions 
for  each  variable  are  given  below. 

Card  1 (Replaces  Card  1 of  Subsection  4.2)  Format 

MAXEL,  MNSL,  MNXST,  MNYST,  NBE,  MB WE,  MNC,  NIAN  8110 
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where 


MAXEL 

MNSL 

MNXST 

MNYST  N 

NBE 

MBWE 

MNC 

NIAN 


Array  dimension  parameters  as  defined  on  Card  1 
of  Subsection  4.2 


An  array  dimension  parameter  used  in  the  dummy 
main  program  and  defined  as  the  estimated 
maximum  number  of  nodes  which  will  be  affected 
by  a single  impact. 


Card  2 (Replaces  Card  2 of  Subsection  4.2) 
IMESH,  IMCONT,  IPUNCH 


2014 


where 

IMESH 

IMCONT 

IPUNCH 


Mesh,  continuation,  and  punched  output  options  as 
defined  on  Card  2 of  Subsection  4.2 


Card  66  (Follows  Card  65  of  Subsection  4.2) 
XF,  YF,  ZF 


5D16.7 


where 

XF 

YF 

ZF 


J 


The  global  X,  Y,  and  Z coordinates  respectively,  of 
the  centroid  of  the  spherical  fragment  at  time  zero. 
These  coordinates  must  be  chosen  so  that  no  plate/ 
fragment  overlap  occurs  at  time  zero. 


Card  67 

VF  (1)  , VF  (2)  , VF  (3) 


5D16.7 


where 

VF  (1) 
VF  (2) 
VF  (3) 


The  translational  velocity  components  (m/sec)  of 
the  fragment  m the  global  X,  Y,  and  Z directions, 
respectively,  at  time  zero. 
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Card  68 


OMEGF (1) , OMEGF  (2) , OMEGF (3) 


5D16.7 


where 

OMEGF (1) 
OMEGF (2) 
OMEGF (3) 


Card  69 

RF,  FMASS,  FMOI 

where 


RF 

FMASS 

FMOI 


The  rotational  velocity  components  (rad/sec)  of  the 
fragment  about  the  global  X,  Y,  and  Z directions, 
respectively,  at  time  zero. 


5D16.7 

The  radius  of  the  spherical  fragment  (in) . 

2 

The  total  mass  of  the  spherical  fragment  (lb-sec  /m) . 

The  mass  moment  of  inertia  of  the  fragment  about  its 
2 

c.g.  (lb-sec  -in) . 


Card  70 

COEFR,  FRNC,  LEFF  5D16.7 

where 

COEFR  The  coefficient  of  restitution  between  the  fragment 

and  the  impacted  plate  inner  surface;  0<COEFR<1 , 

1 for  perfectly  elastic,  0 for  perfectly  inelastic, 
0<COEFR<1  for  intermediate. 

FRNC  The  coefficient  of  friction  between  the  fragment 

and  the  plate  inner  surface. 

LEFF  The  radius  of  a circle  from  the  point  of  impact  on 

the  plate  by  the  fragment  to  the  "boundary  of  the 
impact-affected  region  for  a single  impact". 

E 1/2 

= 0 means  that  L „ is  assumed  to  be  [ — 1 7 At 

err  2. 

Po(l-V  ) 

and  is  calculated  internally,  where  E is  the  elastic 

modulus,  V is  the  Poisson  ratio,  p is  the  mass  per 

o 

unit  initial  volume  of  the  plate  material,  and  At 
is  the  time-step  size. 

= a specified  value  that  is  used  in  place  of  and 

supersedes  the  above  estimate  for  Lgff;  as  argued 
m Subsection  2.5.2  of  Ref.  11,  a physically 
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Card  71 

NSYM, 

where 

NSYM 


IPSS 


ICUT 


plausible  value  is  = nh  independent  of  the 

time  step  size,  where  h is  the  plate  thickness 
and  n may  be  specified  as  some  positive  number 
such  as  2,  2.5  ...  or  some  other  selected  value 
(n=2  is  often  used) . Any  other  prescribed  value 
could  be  selected  by  the  user. 


IPSS,  ICUT 


2014 


A parameter  which  indicates  the  type  of  symmetry 
option  elected  for  the  present  impact  analysis 
= 0 if  no  symmetry  option  is  employed. 

= 1 if  the  single  symmetry  option  is  employed. 

= 2 if  the  double  symmetry  option  is  employed. 

A parameter  used  in  conjunction  with  the  single 
symmetry  option  (if  NSYM=1)  to  denote  the  plate 
side  number  which  is  a line  of  symmetry. 

= 0 if  NSYM=0  or  NSYM=2  is  employed 
= 1 if  plate  side  number  1 (i.e.  the  global  X-axis) 
is  the  line  of  single  symmetry. 

= 4 if  plate  side  number  4 (i.e.  the  global  Y-axis) 
is  the  line  of  single  symmetry. 

A parameter  which  indicates  whether  or  not  impact 
inspection  and  correction  is  to  be  followed  for  the 
entire  response  history. 

= 0 if  impact  inspection  and  correction  is  to  be 
followed  at  all  time  instants. 

= 1 if  impact  inspection  and  correction  is  to  be 
terminated  once  the  fragment  kinetic  energy  is 
less  than  a specified  fraction  of  the  fragment 
kinetic  energy  at  time  zero. 
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The  single  symmetry  option  (i.e.  NSYM=1)  can  be  exercised  only  when  the 
following  conditions  are  satisfied: 

(1)  The  plate  is  rectangular  {or  square)  with  no  cutouts,  and  half 
of  the  plate  is  modeled  (i.e.  the  analysis  is  carried  out  for 
one  half  of  the  plate  with  one  boundary  of  the  half-plate  model 
being  a symmetry  boundary) . 

(2)  Initial  and  subsequent  fragment/plate  collisions  occur  along  the 
line  of  symmetry  (plate  side  1 if  IPSS=1,  or  plate  side  4 if 
IPSS=4) . 

(3)  The  initial  position  and  velocity  components  for  the  fragment  must 
be  specified  m a fashion  consistent  with  the  assumption  of  motion 
which  is  symmetric  with  respect  to  the  global  X axis  (if  IPSS=1) 
or  with  respect  to  the  global  Y axis  (if  IPSS=4) . 

These  conditions  and  other  conventions  adopted  m the  CIVM-PLATE  code  dictate 
some  of  the  input  which  must  be  specified  as  follows  (if  NSYM=1  on  Card  71) : 

(1)  IMESH  on  Card  2 must  be  set  equal  to  0 or  1 so  that  the  auto-mesh 
generation  subroutine  is  exercised. 

(2)  If  IMESH=0  is  specified,  then  the  global  X and  Y coordinates  of 
node  1 of  the  structure  must  be  specified  to  be  0.0  (locating  the 
origin  of  the  global  X-Y  system  at  node  1) . This  is  accomplished 
by  setting  XG(1)=0.0  on  Card  5 and  YG(1)=0.0  on  Card  6. 

(3)  The  symmetry  boundary  condition  must  be  chosen  for  the  plate  side 
which  is  the  line  of  symmetry.  This  is  accomplished  by  setting 
NCSB (1) =1  on  Card  7 if  IPSS=1  (global  X axis  is  the  line  of 
symmetry)  or  by  setting  NCSB(4)=1  on  Card  7 if  IPSS=4. 

(4)  The  centroid  of  the  fragment  must  be  located  along  the  line  of 
symmetry.  Thus,  YF=0.0  must  be  specified  on  Card  66  if  IPSS=1 
or  XF=0.0  must  be  specified  on  Card  66  if  IPSS=4. 

(5)  The  translational  velocity  components  of  the  fragment  must  be 
consistent  with  the  single  symmetry  option.  If  IPSS=1  (global 

X axis  is  the  line  of  symmetry)  then  the  Y-component  must  be  zero; 
this  is  accomplished  by  setting  VE(2)=0.0  on  Card  67.  If  IPSS=4 
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(global  Y axis  is  the  line  of  symmetry)  then  the  X-component  must 
be  zero;  this  is  accomplished  by  setting  VF(1)=0.0  on  Card  67. 

(6)  The  rotational  velocity  components  of  the  fragment  must  also  be 
consistent  with  the  single  symmetry  option.  If  IPSS=1  then  the 
components  of  angular  velocity  about  the  X and  2 axis  must  be 
zero  --  set  OMEGF(1)=0.0  and  OMEGF(3)=0.0  on  Card  68.  If  IPSS=4 
then  the  components  of  angular  velocity  about  the  Y and  2 axes 
must  be  zero  — set  OMEGF(2)=0.0  and  OMEGF(3)=0.0  on  Card  68. 

It  should  be  noted  that  the  fragment  mass,  FMASS,  and  fragment  mass 
moment  of  inertia,  FMOI,  input  on  Card  69  still  correspond  to  the  whole 
fragment.  If  NSYM=1,  FMASS  and  FMOI  are  internally  reduced  for  the  half- 
plate  (single  symmetry)  impact  analysis. 

The  double- symmetry  option  (i.e.  NSYM=2)  can  be  exercised  only  when 
the  following  conditions  are  satisfied: 

(1)  The  plate  is  rectangular  (or  square)  with  no  cutouts,  and  a 
quarter  of  the  plate  is  modeled  (i.e.  a doubly-symmetric  finite- 
element  mesh  is  used  to  model  the  plate) . 

(2)  Initial  and  subsequent  fragment/plate  collisions  occur  at  the 
center  of  the  plate. 

(3)  The  only  nonzero  velocity  component  of  the  fragment  is  the 
translational  velocity  in  the  global  2 direction. 

These  conditions  and  other  conventions  adopted  in  the  CIVM-PLATE  code 
dictate  some  of  the  input  which  must  be  specified  (when  NSYM=2)  as  follows: 

(1)  IMESH  on  Card  2 must  be  set  equal  to  0 or  1 so  that  the  auto-mesh 
generation  subroutine  is  exercised. 

(2)  If  IMESH=0  is  specified,  then  the  global  X and  Y coordinates  of 
node  1 of  the  structure  must  be  specified  to  be  0.0  (the  origin 
of  the  global  X-Y  coordinates  must  be  located  at  node  number  1, 
which  is  the  center  of  the  plate) . This  is  accomplished  by 
setting  XG(1)=0.0  on  Card  5 and  YG(1)=0.0  on  Card  6. 
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(3) 


The  symmetry  boundary  condition  option  must  be  chosen  for  plate 
sides  1 and  4;  this  is  consistent  with  the  convention  of  choosing 
node  number  1 as  the  center  of  the  plate.  This  is  accomplished  by 
setting  NCSB(1)=1  and  NCSB(4)=1  on  Card  7. 

(4)  The  global  X and  Y coordinates  of  the  fragment  centroid  at  time 
zero  (XF,  YF  on  Card  66)  must  be  set  equal  to  zero  (i.e.  the 
fragment  is  located  directly  below  structural  node  number  1) . 

(5)  The  translational  velocity  components  of  the  fragment  in  the  X 
and  Y directions  (i.e.  VF(1)  and  VF(2)  on  Card  67)  must  be  set 
equal  to  zero;  the  only  nonzero  component  of  velocity  is  VF(3) 
m the  Z-direction. 

(6)  The  rotational  velocity  components  of  the  fragment,  OMEGF(l), 
0MEGF(2),  and  0MEGF(3)  on  Card  68  must  be  set  equal  to  zero. 

It  should  be  noted  that  the  fragment  mass,  FMASS,  input  on  Card  69 
still  corresponds  to  the  whole  fragment.  If  NSYM=2,  FMASS  is  internally 
reduced  for  the  quarter  model  (doubly  symmetric)  impact  analysis. 

Card  72  (skip  if  ICUT=0) 

CUTR  D16.7 

where 

CUTR  A factor  which,  when  multiplied  times  the  initial 

fragment  kinetic  energy,  determines  when  the  impact 
inspection  and  correction  process  is  to  be  terminated. 
That  is,  when  the  fragment  kinetic  energy  at  a 
particular  instant  of  time  is  less  than  CUTR  times 
the  initial  fragment  kinetic  energy,  then  no  further 
impact  inspection/correction  calculations  will  be 
made.  Note,  however,  that  transient  structural 
response  calculations  may  be  continued  beyond  final 
impact  inspection/correction  (additional  discussions 
of  this  feature  is  given  m Subsection  5.5.2). 

The  above  input  is  complete  for  runs  of  the  CIVM-PLATE  which  are  not 
a continuation  of  a previous  run  (i.e.  for  cases  when  IMCONT=0  is  specified 
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on  Card  2).  For  runs  which  are  a continuation  of  a previous  run  (i.e. 
IMC0NT=1  is  specified  on  Card  2) , the  punched  deck  of  continuation  cards 
from  the  previous  run  (obtained  by  setting  IPUNCH=1  on  Card  2 for  the 
previous  run)  follows  immediately  after  Card  72  (or  Card  71  if  ICUT=0  is 
specified  on  Card  71) . 

Some  additional  comments  related  to  continuation  runs  should  be 
observed.  The  discussion  (m  Subsection  4.4)  of  input  data  which  must  (or 
may)  be  changed  for  continuation  runs  of  the  PLATE  code  should  also  be 
followed  for  continuation  runs  of  the  CIVM- PLATE  code.  In  addition,  the 
following  rules  should  be  observed  when  preparing  input  data  Cards  66 
through  72  for  continuation  runs  of  the  CIVM-PLATE  program: 

(1)  Input  data  on  Cards  66  through  70  must  be  identical  to  that  used 
on  the  initial  run  of  the  present  analysis  (in  which  the  deck 
of  continuation  cards  was  punched) . This  is  necessary  so  that 
the  initial  (time  zero)  kinetic  energy  of  the  fragment  may  be 
calculated  correctly.  Input  data  provided  in  the  deck  of 
continuation  cards  will  then  update  the  fragment  position  and 
velocity  components  to  the  correct  values  prior  to  the  first 
solution  time  cycle  of  the  continuation  run. 

(2)  The  values  of  NSYM  and  IPSS  on  Card  71  must  not  be  altered  for 
continuation  runs. 

(3)  The  value  of  ICUT  on  Card  71  and/or  the  value  of  CUTR  on  Card  72 
may  be  changed  for  continuation  runs.  The  implications  of  and 
possible  reasons  for  such  a change  are  discussed  in  Subsec- 
tion 5.5.2. 

5.3  Guidelines  for  User-Prepared  Array  Dimensions 

The  second  (and  final)  task  required  to  run  the  CIVM-PLATE  program  is 
the  assigning  of  fixed  dimensions  to  arrays  in  the  dummy  mam  program 
associated  with  the  CIVM-PLATE  code.  This  task  is  essentially  identical  to 
the  dimensioning  task  associated  with  the  PLATE  code,  and  the  user  should 
consult  Subsection  4.5  for  a general  discussion  of  guidelines  to  be  followed 
m the  preparation  of  array  dimensions. 
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A listing  of  a dummy  main  program  for  the  CIVM-PLATE  program  is 
given  on  the  next  page.  The  arrays  to  be  dimensioned  are  shown  and  their 
dimensions  are  given  in  terms  of  a set  of  problem-dependent  parameters.  The 
definitions  of  these  parameters  are  also  shown  in  the  listing.  The  user  is 
required  to  prepare  a FORTRAN  IV  DIMENSION  statement  including  all  arrays 
shown  in  the  sample  DIMENSION  statement;  problem  dependent  parameters  are 
replaced  by  the  fixed  value  of  each  parameter  for  the  problem  being  considered. 

The  user  will  note  that  all  parameters,  except  NIAN,  have  also  been  used 
m the  dummy  main  program  associated  with  the  PLATE  program  (again  as  a 
result  of  the  general  similarity  between  the  two  codes) . Some  additional 
discussion  of  the  parameter  NIAN  is  perhaps  necessary.  As  indicated  m the 
listing,  the  parameter  NIAN  is  defined  as  the  estimated  maximum  number  of  nodes 
which  will  be  affected  by  a single  impact,  and  may  be  estimated  as  follows. 

When  plate/f ragment  impact  occurs,  the  coordinates  of  the  point  of  impact  on 
the  plate  are  determined.  The  impact-affected  region  of  the  plate  is  then 
defined  as  that  region  falling  within  a circle  of  radius  L All  nodes 

which  fall  within  this  circle  of  radius  L ^ are  considered  to  be  impact- 
affected  nodes  (see  Appendix  B for  additional  details) . 

In  general,  the  precise  location  of  all  impacts  is  not  known  a priori. 

Thus,  the  user  should  first  select  L ,,  (see  Card  70)  and  then  assume  that 

err 

an  impact  will  occur  m the  region  of  the  plate  having  the  most  dense  popula- 
tion of  nodes  (i.e.  that  region  having  the  most  highly  refined  mesh).  The 
number  of  nodes  falling  within  the  impact-affected  region  for  this  hypothetical 
(worst-case)  plate/fragment  impact  may  be  used  as  a base  value  for  NIAN. 

Those  nodes  falling  near  to  the  impact-affected  region  could  also  be  included 
in  the  estimate  of  NIAN  to  provide  a liberal  estimate  of  this  parameter;  m 
all  cases,  the  value  of  NIAN  should  be  overestimated.  During  each  cycle  m 
which  impact  occurs,  the  value  of  NIAN  is  checked  against  the  actual  number 
of  impact-affected  nodes.  If  the  value  of  NIAN  is  less  than  the  actual 
number  of  nodes  affected,  a message  is  printed  and  the  run  is  terminated; 
the  actual  number  of  impact-affected  nodes  (for  the  cycle  in  which  the  run 
is  terminated)  is  included  m the  printed  message. 
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C CIVM-PLATE  1 COMPUTER  CODE-  IMANOOOQ 


C IMANOQO 1 
C THIS  DUMMY  MAIN  PROGRAM  I OR  TliC  C1VM  PLATE  PRUGRAM  IICOUIRES  IMAN0002 
C THESE  SU(ll;OUTlNES:  JMAN0003 
C ARRT , ASS CMK , OCONMK , COLLSN , CAROW. FACT, GAUSS, I FRAG,  1MAN0004 
C 1MAINP, IMPACT, 1MPDS, IMPSS, 1NIRAC, 1PRINI , LMASSP,  IMANOOOS 
C ME  SHPA , MCSIIPM . OMULT , PROTOP .PSTRN . RCON.RPLATE , SFDM , IMAN0006 
C SOLV, SPRING, STHLSA.SrRtSC.STRESP.TSTEP.  IMAN0007 
C IMANOOOQ 
C ILLUSTRATIVE  EXAMPLE  FOR  CIVM  PLATE  PROGRAM  - FULL  MODEL.  IMAN0009 
C IMANOOtO 
C SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER  IMAN0O11 
C . IMANOO 1 2 

C ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM  IMAN0013 

C COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980  IMAN0014 
C IMANOO 1 5 
C DUMMY  MAIN  PROGRAM  WHICH  PROVIOES  DIMENSIONS  FOR  THOSE  ARRAYS  IMAN0016 
C (VECTORS)  WHOSE  DIMENSIONS  ARE  PROBLEM  DEPENDENT.  IMAN0017 
C THE  FOLLOWING  ARRAYS  MUST  BE  DIMENSIONED  BY  THE  USER  AS  SHOWN;  IMAN001B 
C DIMENSION  DELD(NDT) .OIS(NOT)  , DISP(NDT) .DISMI(NDT) .DISM2(NDT ) , 1MAN0019 
C FLN(NDT) .FLVA(NDT) . FLVM(NOT) , FLVP (NOT ) .VEL(NDT) . ICOL(NDT) , IMAN0020 
C INUM(NDT) , K ROW (NOT ) ,NOEX(NDT) ,STF (MNC ) , AMASS (NOT  ) , NP( 4 , MAXEL) , H1AN0021 
C NODE( 24*MAX EL) ,TAUSS(MAXEL,4»MNSL,9) .TAUSE (MAXEL, 4*MNSL,9)  , IMAN0022 
C TAUEE(MAXEL,4*MNSL,9),EPSSI(9,MAXEL) ,EPSS0(9,MAXEL) ,EPEEI(9 , MAXEL) IMANOO 23 
C , EPEE0(9,MAX£L) , EPSE I ( 9 .MAXEL ) . EPSEO( 9 .MAXEL ) ,NBC(NB) ,BC(NB) . IMAN0024 
C RFM(NBE.MBWE) , I LAST ( NBE ) , UCF 1 (NBE) , UCF2 (NBE ) . XG (NNT ) , YG(NNT ) . IMAN0025 
C ZG(NNT),XGI (NNT).YGI(NNT).  IMAN0026 
C T AGSS (MNXST ,4*MNSL,3) , LNXS(MNXST) , XSPR0P(7 .MNXST ) , MATXS (MNXST ) , IMAN0027 
C TSGEE (MNYST ,4»MNSL,3) , LNYS(MNYST) , Y SPROP ( 7 , MNYS T ) , MAT YS ( MNYST ) , IMAN0028 
C LNRS(NRSS) , ISRS(NRSS) . SC ( 5 , NRSS ) . NV SA (MNNS A ) , NC0N(4 , MNNSA ) , IMAN0029 
C PMASS(NNT) , VN(3,NIAN) ,VNB(3,N IAN ) ,SI (NIAN) , NEFF ( NI AN ), ALPHA ( NI AN ) IMAN0030 
C IMAN0031 
C WHERE,  IMAN0032 
C NNT  = TOTAL  NUMBER  OF  NODES  IN  THE  ASSEMBLED  FINITE-ELEMENT  MODEL1MAN0033 
C NOT  = TOTAL  NUMBER  OF  DEGREES  OF  FREEDOM  IN  THE  ASSEMBLED  FINITE-IMAN0034 
C ELEMENT  MODEL  = 6+NNT.  IMAN0035 
C MNC  = ESTIMATED  NUMBER  OF  WORDS  OF  STORAGE  FOR  THE  ASSEMBLED  IMAN0036 
C STIFFNESS  MATRIX  (LOWER  TRIANGlE  STORED  BY  ROWS  FROM  FIRST  IMAN0037 
C NONZERO  TERM) . IMAN003B 
C MAXEL  = NUMBER  OF  ELEMENTS  IN  FINITE-ELEMENT  MODEL.  1MAN0039 
C MNSL  = MAXIMUM  NUMBER  OF  MECHANICAL  SUBLAYERS  EMPLOYED.  IMAN0040 
C NOTE—  MNSt  MUST  BE  LESS  THAN  OR  EQUAL  TO  5.  IMAN0041 
C NB  * ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  PRIOR  IMAN0042 
C TO  ELIMINATION  OF  DUPLICATES.  IMAN0043 
C NBE  * ESTIMATED  NUMBER  OF  CONSTRAINED  OEGREES  OF  FREEDOM  AFTER  IMAN0044 
C ALL  DUPLICATES  HAVE  BEEN  ELIMINATED  (IF  I0P5  = 1).  IMAN0045 
C = 1 IF  IQP5  * 0 IMANO 046 
C MBWE  = ESTIMATED  MAXIMUM  BANDWIDTH  OF  ASSEMBLED  STIFFNESS  MATRIX  IMAN0047 
C AT  A CONSTRAINED  DEGREE  OF  FREEDOM  (IF  I0P5  a 1).  IMAN004B 
C « 1 IF  I0P5  « 0 IMAN0049 
C MNXST  = MAXIMUM  NUMBER  OF  X-DIRECTION  STIFFENERS.  IMAN0050 
C = 1 IF  NO  X-01RECT ION  STIFFENERS.  IMAN0051 
C MNYST  = MAXIMUM  NUMBER  OF  Y-DIRECTION  STIFFENERS.  IMAN0052 


uuuuuuuuu 


] 


NRSS 


MNSLT4 

MNNSA 

NIAN 


1 IF  NO  Y-DIRECTION  STIFFENERS.  1MAN0053 

TOTAL  NUMBER  OF  ELEMENT  SIDES  ON  WHICH  LINE  RESTORING  IMAN0054 

SPRINGS  ARE  LOCATED.  IMAN0055 

t IF  NO  RESTORING  SPRINGS  ARE  PRESENT.  IMAN0056 

4*MNSL  1MAN0057 

MAXIMUM  NUMBER  OF  NODES  REQUESTED  FOR  STRAIN  OUTPUT  IMAN0058 

(IF  I0P8= 1 ) IMAN0059 

ESTIMATED  MAXIMUM  NUMBER  OF  NODES  WHICH  WILL  BE  AFFECTED  IMAN0060 
BY  A SINGLE  IMPACT.  IMAN0061 

IMPLICIT  REAL*8(A-H,0-Z)  IMAN0062 

DIMENSION  DELD(450) , D I S ( 450 } ,DISP(450) , 01 SMI (450) ,DISM2(450) , IMAN0063 

2F  LN ( 4 SO ) ,FLVA(450) .FLVM(450) . F LVP ( 4 50 > , VEL ( 450 ) , ICOL(450) , IMAN0064 

3 1 NUM( 450 ) . K ROW (450) ,NDEX(450) ,STF( 1 6335 ), AMASS ( 450) , IMAN0065 

4NP(4, 56) , NO  DE ( 1344 ) . TAU SS ( 56 , 1 2 , 9 ) . T AUSE ( 56 . 1 2 , 9 ) , T AUEE ( 56 , 12.9) , IMAN0  066 
5EPSSI (9,56)  , EPSSO( 9,56) .EPEE  I ( 9 . 56 ) , EPEEO( 9 , 56 ) . EPSE I ( 9 , 56) . IMAN0067 

6EPSE0 (9,56)  .NBC (60) , BC( 60) , RFM( t , 1 ) , I LAST ( 1 ) , UC F 1 ( 1 ) , UCF2 ( 1 ) , IMAN0068 

7XG(75) . YG(75) . ZG(75) ,XGI (75) . YG I ( 75 ) , TAGSS ( 1 . 1 2 , 3 ) , LNXS( 1 ) , IMAN0069 

QXSPR0P(7,1  ) , MATXS (1 ) , TSGEE( 28 , 12,3)  , LNYS ( 28 ) , YS PROP ( 7 . 28) ,MATYS(28IMAN0070 
9) . LNRS(28) , ISRS(28) . SC (5, 28) ,NVSA(8 ) , NCON( 4 , 8 ) , PMASS ( 75) , VN ( 3 , 75) , IMAN0071 


A VN8 ( 3,75) , SI (75) , NEFF ( 75) , ALPHA ( 75 ) 

COMMON/ BAS/ NOT .NET ,MN .NB.NIRREG.MNC 
COMMON  /INOUT/  MRE AD , MWR I TE . MPUNCH 
C DEFINE  CARD  READER,  LINE  PRINTER  AND  LARD  PUNCH  UNIT  NUMBERS. 
MREAD  = 5 
MUR  1 T E = 6 
MPUNCH  = 7 

READ ( MREAD , 500 )MAXEL ,MNSL ,MNXST ,MNY  ST , NBE ,MBWE , MNC , NIAN 
500  FORMA T ( 8 1 1 0 ) 

WRITE (MWRITE, 600) 

WRITE (MWRITE.610)  MAXEL 
WR I T E ( MWR  I T E , 620 ) MNSL 
WR I TE  ( MWR  I T E , 630  ) MNXST 
WR I T E ( MWR I T £ , 640  ) MNYST 
WRITE (MWR I T E , 650 ) NBE 
WR I T £ ( MWR I T E , 660 ) MBWE 
WR  I T E ( M/IR I T E , 6 70  ) MNC 
WR  I T E l MWR  I T E , 680  ) NIAN 

600  FORMAT ( 1 1 CIVM-PLATE  1 COMPUTER  CODE  (SMALL  STRAIN  THEORY) 
+INPUT  FOR  ARRAY  DIMENSIONS') 


USER 


IMAN0072 
IMAN0073 
IMAN0074 
IMAN0075 
IMAN0076 
IMAN0077 
IMAN0078 
IMAN0079 
IMAN0080 
IMAN00S1 
IMAN0082 
IMAN0083 
IMAN0084 
IMANO  085 
IMAN0086 
IMAN0087 
IMAN0088 
IMAN0089 
1MAN0090 
IMAN0091 


610 

FORMA T(  ' 

1 

1 

'MAXEL 

= * 

110) 

IMAN0092 

620 

FORMA T(  1 
FORMAT ( ' 

1 

* 

'MNSL 

= ' 

110) 

IMAN0093 

630 

1 

( 

'MNXST 

» * 

110) 

IMAN0094 

640 

FORMA T(  ' 

1 

* 

'MNYST 

S * 

110) 

IMAN0095 

650 

FORMA T(  1 

» 

• 

•NBE 

= 1 

110) 

IMAN0096 

660 

FORMAT ( • 

1 

1 

'MBWE 

*5  1 

110) 

IMAN0097 

670 

FORMA T(  1 

1 

1 

•MNC 

= 1 

110) 

IMAN0098 

680 

FORMAT ( ' 

• 

t 

‘NIAN 

a * 

no) 

IMAN0099 

MNSLT  4-MNSL  *4  IMANO 100 

CALL  IMAINP(DELD,01S,DISP,D15M1 , DISM2 , FLN , FLVA , FLVM, FLVP,  IMANO 101 

2VEL. I COL, I HUM , KROW , NOEX , STF , AM ASS , NP , NODE , TAUSS , TAUSE , TAUEE , IMAN0 102 

3EPSSI  , EPSSO , EPEE  I ,£PEEO,EPSEI . EPSEO , NBC , BC . RFM , 1 LAST , UCF1 ,UCF2,  IMAN0 103 

4XG, YG.ZG.XG I , YGI, TAGSS, LNXS.XSPROP, MATXS, TSGEE, LNYS . YSPROP , MATYS , IMANO 10^ 
5LNRS , ISRS, SC, MAXEL, MNSL, MNSLT4, NBE, MBWE, MNXST, MNYST, NVSA.NCON,  IMAN0105 
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6Pf/1ASS  .VN.VNB,  SI , NEFF  .ALPHA,  NI  AN) 
CALL  EXIT 
END 


IMAN0106 
IMANO  t 07 
IMAN0108 


NOTE:  1.  The  dimension  3000  for  array  STF  and  the  dimension  84  for 

AMASS  were  obtained  by  the  procedure  described  in  items 
1 through  4 on  page  100.  Also,  see  Figs.  19a  and  19b. 

2.  For  detailed  instructions  on  establishing  dimensions  and 

input  data,  see  the  example  problems  discussed  in  Section  8. 


5.4  Description  of  the  Output 


The  printed  output  generated  by  the  CIVM-PLATE  program  (as  with  the 
PLATE  program)  falls  into  two  general  categories:  (1)  initial  output  which 

reiterates  user-supplied  input  and  defines  additional  internally-generated 
data  regarding  geometry,  material  properties,  boundary  conditions,  output 
options,  and  timewise  solution  parameters,  and  (2)  solution  output  generated 
at  user-specified  time  intervals  and  corresponding  to  those  output  options 
exercised  by  the  user.  In  both  of  these  categories,  the  output  generated  is 
essentially  identical  to  that  generated  by  the  PLATE  program;  only  those 
differences  between  the  output  generated  by  the  two  codes  will  be  discussed. 

All  of  the  initial  output  generated  by  the  PLATE  program  is  also  auto- 
matically generated  by  the  CIVM-PLATE  program.  The  reader  should  refer  to 
Subsection  4.7  for  a complete  description  of  this  initial  output.  In 
addition,  the  initial  output  now  reiterates  the  data  supplied  for  the  fragment 
geometry,  properties,  initial  location,  and  initial  velocity  components,  as 
well  as  the  collision  parameters  specified  by  the  user.  Also,  the  initial 
kinetic  energy  of  the  fragment  is  calculated  and  output.  The  user  should 
note  that  a reference  time  step  size  will  always  be  calculated  and  output 
because  the  CIVM-PLATE  code  always  uses  a diagonalized  lumped  mass  model. 

Solution  data  output  at  user-specified  time  intervals  and  consisting  of 
that  data  requested  by  the  user  through  the  appropriate  selection  of  output 
options  is  also  essentially  identical  to  that  generated  by  the  PLATE  program; 
the  user  should  consult  Subsection  4.7  for  a description  of  this  output.  In 
addition  to  the  user-selected  output  data,  the  following  data  are  printed  at 
each  regularly-scheduled  print  cycle: 


FRAGMENT  GLOBAL 
X-LOC  Y-LOC 

[XF]  [YF] 

where 

XF 
YF 
ZF 


1 


LOCATION  AND  VELOCITY  COMPONENTS 

Z-LOC  VEL-X  VEL-Y  VEL-Z  OMEGA-X  OMEGA-Y  OMEGA-Z 

[ZF]  [VF(1)]  [VF ( 2) ] [VF (3) ] [OMEGF (1) ] [0MEGF(2) ] [OMEGF ( 3) ] 


The  current  global  X,  Y,  and  Z components,  respec- 
tively, which  locate  the  c.g.  of  the  spherical 
fragment . 
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VF  (1) 
VF  (2) 
VF  (3) 


The  current  translational  velocity  components  in  the 
global  X,  Y,  and  Z direction,  respectively,  of  the 
fragment. 


OMEGF(l) 
OMEGF (2) 
OMEGF  (3) 


The  current  angular  velocity  components  about  the 
global  X,  Y,  and  Z axes,  respectively,  of  the 
fragment. 


The  system  energy  output  generated  by  the  CIVM-PLATE  code  is  slightly 
different  from  that  generated  by  the  PLATE  code  and  appears  as  follows: 


SYSTEM  ENERGIES  (IN-LB) 

FRAG  TRANSLATIONAL  KINETIC  ENERGY  = [CINFTN] 
FRAG  ROTATIONAL  KINETIC  ENERGY  = [CINFRT] 

WORK  INPUT  TO  STRUCTURE  = [EWORK] 

STRUCTURE  KINETIC  ENERGY  = [CINET] 

STRUCTURE  ELASTIC  ENERGY  = [ELAST] 

STRUCTURE  PLASTIC  ENERGY  = [PLASTW] 

ENERGY  STORED  IN  ELASTIC  RESTRAINTS  = [SPREN] 


The  parameters  EWORK,  CINET,  ELAST,  PLASTW,  and  SPREN  are  defined  in 
Subsection  4.7,  and  the  parameters  CINFTN  and  CINFRT  are  defined,  respec- 
tively, as  the  translational  and  the  rotational  kinetic  energy  of  the  fragment 
at  the  current  time.  Note  that  for  the  present  impact  analysis  the  current 
total  work  input  to  the  plate  structure  is  the  difference  between  the 
initial  (time  zero)  kinetic  energy  of  the  fragment  and  the  current  kinetic 
energy  of  the  fragment.  Also  the  total  plastic  work  done  on  the  structure 
is  calculated  indirectly  by  PLASTW  = EWORK  - (CINET  + ELAST  + SPREN).  Thus, 
if  the  coefficient  of  restitution,  e,  has  been  assigned  a value  in  the  range 
C£e<l  (corresponding  to  an  inelastic  collision),  then  the  energy  loss  m 
each  inelastic  collision  will  be  included  in  the  total  plastic  work  which 
is  output. 

In  addition  to  the  above  information  which  is  printed  at  each  desired 
time  cycle,  whenever  there  is  an  impact  the  following  information  is  printed 
out: 
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IMPACT  IT  = [ITIME]  ELEMENT  = [LNMP]  SUBREGION  = [NSR] 

GLOBAL  IMPACT  LOCATION  (XN,YN,ZN)  = [XN]  [YN]  [ZN] 

PENETRATION  DISTANCE  (IN.)  = [PEN] 

THIS  IS  IMPACT  NUMBER  [NIMPCT] 
where 

= Time  cycle  number  during  which  this  impact 
occurred. 

= Element  number  in  which  impact  occurred. 

= Triangular  subregion  of  element  LNMP  in  which 

impact  occurred  (equal  to  1 or  2 see  Fig.  6) . 

The  global  X,  Y,  and  Z coordinates,  respectively, 
which  locate  the  point  of  plate/fragment  impact. 

= Penetration  distance  which  is  the  amount  of 

plate/fragment  overlap  prior  to  impact  correction. 

= The  total  number  of  plate/fragment  impacts, 

including  the  present  impact,  which  have  occurred. 

If  the  full  model  version  of  the  impact  subroutine  is  being  used  and  if 
more  than  one  penetration  has  occurred,  the  penetration  distance  (line  #3  above) 
will  not  be  printed  out  because  the  scheme  which  averages  the  impact  location 
does  not  average  the  penetration  distance. 

If  one  of  the  symmetry  impact  options  has  been  elected,  this  printed 
output  also  will  include  a message  indicating  which  of  the  symmetry  options 
is  in  effect. 

5.5  Guides  and  Restrictions  for  Code  Usage 

5.5.1  General  Guidelines 

As  a result  of  the  similarity  between  the  CIVM-PLATE  and  PLATE  codes, 
most  of  the  discussion  of  guidelines  for  use  of  the  PLATE  code  (Subsection  4.8) 
also  apply  to  the  CIVM-PLATE  code.  In  particular,  the  discussions  on  selection 
of  output  options,  strain  calculation,  and  dimensioning  of  the  assembled  stiff- 
ness matrix  apply  directly  to  the  CIVM-PLATE  program  and  will  be  commented 
upon  only  briefly  m this  subsection.  The  selection  of  a time-step  size.  At, 
for  the  CIVM-PLATE  program  is  somewhat  more  involved  and  will  be  discussed  m 
Subsection  5.5.2. 


ITIME 

LNMP 

NSR 

XN 
YN 
ZN 

PEN 


NIMPCT 


123 


The  output  options  available  m the  CIVM-PLATE  code  are  identical  to 
those  available  in  the  PLATE  program.  The  discussion  of  output  options 
presented  m Subsection  4.8.4  should  be  followed  m the  selection  of  output 
options  for  the  CIVM-PLATE  program.  It  is  recommended  that  displacement, 
system  energy,  and  some  form  of  strain  output  be  selected  for  each  run. 

Strain  calculation  in  the  CIVM-PLATE  program  is  identical  to  that  of 
the  PLATE  program  and  the  discussion  in  Subsection  4.8.5  should  be  followed. 

The  recommendations  m Subsection  4.8.5  should  be  followed  more  carefully 
when  strain  data  are  sought  near  the  region  of  plate/fragment  impact.  Severe ’ 
strain  gradients  will  generally  be  found  m this  region;  strain  distributions 
in  this  region  at  various  time  instants  should  be  used  to  supplement  strain 
time-history  data  sought  at  locations  m this  region. 

The  technique  outlined  in  Subsection  4.8.1  for  determining  the  dimension, 
MNC,  of  the  assembled  stiffness  matrix,  STF,  should  again  be  used  with  the 
CIVM-PLATE  program.  Note,  however,  that  this  dimension  now  applies  only  to 
the  assembled  stiffness  matrix  (array  STF)  and  does  not  apply  to  the  assembled 
mass  matrix  since  only  lumped  mass  modeling  is  used  m the  CIVM-PLATE  program. 

5.5.2  Selection  of  a Time-Step  Size 

The  selection  of  a suitable  time-step  size.  At,  in  the  CIVM-PLATE 
program  is  somewhat  more  involved  as  a result  of  the  process  used  to  impose 
impact-induced  velocity  changes  on  the  plate  structure  and  on  the  fragment. 
Since  it  is  the  velocity  changes  imposed  on  the  structure  which  affect  the 
choice  of  At,  attention  will  be  restricted  to  the  plate  structure  in  the 
present  discussion. 

As  shown  m Appendix  B,  the  CIVM-PLATE  program,  in  effect,  employs  two 
different  timewise  operators.  For  time  cycles  m which  no  plate- fragment 
impact  occurs,  the  Houbolt  operator  is  employed.  For  time  cycles  in  which 
plate-fragment  impact  does  occur,  the  nodal  velocities  in  the  impact-affected 
region  of  the  plate  are  redefined  to  be  the  post-impact  velocities  (calculated 
by  using  impulse-momentum  — see  Appendix  B)  and  a modified  operator  is  used; 
this  modified  operator  may  be  viewed  as  a version  of  that  in  the  Generalized 
Acceleration  Method.  In  both  cases,  the  equivalent  loads  corresponding  to 
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large  deflection  and  plasticity  effects  are  approximated  by  using  a linear 
extrapolation  of  their  values  at  the  previous  two  time  instants. 

To  assess  the  stability  of  this  modified  operator  compared  with  that 
of  the  Houbolt  operator,  a simple  one  degree-of -freedom  cubic-hardening 
spring -mass  system  subjected  to  a prescribed  initial  velocity  was  analyzed 
using  each  of  these  operators;  linear  extrapolation  was  used  to  estimate 
the  nonlinear  equivalent  loads.  For  the  particular  problem  being  considered, 
the  solution  obtained  by  using  the  modified  operator  became  unstable  for  a 
At  value  approximately  half  that  of  the  At  value  at  which  the  solution  using 
the  Houbolt  operator  became  unstable .+  Quantitatively,  these  results  suggest 
that  for  the  same  plate  structure,  an  analysis  by  the  CIVM-PLATE  program  will 
require  a smaller  At  than  an  equivalent  analysis  by  the  PLATS  program. 

Problems  of  stability  of  the  modified  operator  are  most  likely  to  occur 
if  the  modified  operator  is  used  every  cycle  for  many  cycles  (i.e.  if  impact 
occurs  on  many  successive  cycles) . Such  instabilities  have  been  observed 
during  theoretical-experimental  correlation  studies  using  the  CIVM-PLATE 
code.  Spurious  oscillations  in  the  predicted  strain  time-histones  at 
several  locations  along  a narrow  plate  subjected  to  normal  impact  at  its 
center  were  observed  at  a time  just  prior  to  fragment  rebound.  In  this  case, 
impacts  had  occurred  during  each  of  approximately  200  time  cycles  prior  to 
instability.  Once  impacts  stopped  (following  fragment  rebound) , the  strain 
time-histories  stabilized,  probably  as  a result  of  the  improved  stability 
of  the  Houbolt  operator. 

Additional  study  of  the  probable  sources  of  this  instability  is  needed. 
Although  not  conclusive,  experience  to  date  suggests  that  a value  of  At  no 
larger  than  twice  the  reference  time  step  size  which  is  calculated  and  output 
will  yield  stable  solutions  (recall  that  lumped  mass  modeling  is  used  in  the 
CIVM-PLATE  program,  and  thus  a reference  time  step  size  is  calculated  and 
output  on  each  run  of  the  program) . However,  the  user  should  monitor  the 
solution  output,  particularly  strain  data,  to  determine  if  an  instability 
has  occurred.  If  so,  a smaller  value  of  At  should  be  used,  until  the 
instability  is  removed. 

+ 

Note,  however,  that  no  iterations  are  being  carried  out  within  a given  time 
step  At  to  achieve  convergence. 
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An  alternate,  but  less  appealing,  approach  for  eliminating  this 
instability  has  also  been  included  m the  CIVM-PLATE  program.  If  desired, 
the  parameters  ICUT  on  Card  71  and  CUTR  on  Card  72  (see  Subsection  5.2)  can 
be  specified  such  that  impact  inspection  and  correction  will  be  terminated 
(also  terminating  the  use  of  the  modified  operator)  once  the  fragment  kinetic 
energy  is  less  than  CUTR  times  the  initial  fragment  kinetic  energy.  This 
approach  is  based  on  experience  to  date  in  which  instabilities  are  generally 
found  to  occur  when  only  approximately  5%  of  the  initial  kinetic  energy  is 
left  in  the  fragment  (just  prior  to  fragment  rebound) . In  principle,  it 
could  be  argued  that  one  is  neglecting  only  5%  (for  example)  of  the  energy 
input  to  the  plate  structure  and  that,  in  fact,  a portion  of  this  energy  is 
returned  to  the  fragment  as  the  plate  and  fragment  rebound  and  the  plate 
imparts  kinetic  energy  to  the  fragment.  However,  when  a value  of  CUTR  = 0.05 
was  used  on  the  previously-mentioned  impact  analysis  where  instability  was 
observed,  it  was  found  that  the  predicted  permanent  strain  levels,  although 
stable,  were  substantially  less  than  the  experimentally  determined  strain 
levels;  when  a stable  At  value  was  used  instead  of  the  cut-off  option, 
predicted  strain  levels  were  found  to  be  in  essential  agreement  with  experi- 
mentally-determined strain  levels. 

As  a general  rule,  instabilities  should  be  eliminated  by  reducing  the 
value  of  At.  As  a last  resort,  the  cut-off  option  can  be  exercised  to 
advance  the  solution  beyond  the  point  of  instability;  however,  in  this  case 
the  analyst  should  be  alerted  to  the  possible  error  m predicted  transient 
strain  levels  (after  the  option  is  imposed  in  the  timewise  solution)  and 
permanent  strain  levels. 
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SECTION  6 


COMPLETE  FORTRAN  IV  LISTING  OF  THE 
PLATE  AND  CIVM-PLATE  PROGRAMS 

6.1  Subprograms  Common  to  both  Codes 

The  following  21  subprograms  (or  subroutines)  are  common  to  both  the 
PLATE  and  the  CIVM-PLATE  program: 


ARRT 

FACT 

MESHPM 

RCON 

SPRING 

ASSEMK 

GAUSS 

OMULT 

RPLATE 

STRESA 

BCONMK 

LMASSP 

PRTOP 

SFDM 

STRESC 

EAROW 

MESHPA 

PSTRN 

SOLV 

STRESP 

TSTEP 


A FORTRAN  IV  listing  of  each  follows. 
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PAGE  0001 


SUBROUTINE  A RRT ( S T F , AMAS S . F , IC OL , INUM , KROW , NDEX , NODE , NDPE ) 
IMPLICIT  REAL*8(A-H,0-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 


DIMENS  ION  AMASS ( 1 ) 

DIMENSION  STF(1),F(1),ICOL(1), 
COMMON /BAS/N OT, ME T .MN.NBD.NIRR 
COMMON  /INOUT/  MS E AD . MWR I T E , MP 

IN  THIS  SUBROUTINE,  THE  MESH  NODAL 
USED  TO  ESTABilSH  THE  POINTER  ARRA 
THE  ASSEMBLED  STIFFNESS  MATRIX  (AN 
15  USED)  STORED  IN  COMPACTED  VECTO 
STORAGE  PS  QU I RED  FOR  THE  ASS  EMBLRD 
OUTPUT,  AND  COMPARED  WITH  THE  USER 
TOO  SMALL.  A MESSAGE  IS  OUTPUT  AND 
THE  ASSEMBLED  STIFFNESS  AND  MASS  ( 
FORCE  VECTOR  ARE  ZEROED. 


INUM( 1 ) , KROW ( 1 ) ,NDEX( 1 ) , NODE( 1 ) 

EG.MNC 

UNCH 

CONNECTIVITY  DATA  IN  NODE(I)  IS 
YS  NECESSARY  TO  LOCATE  TERMS  IN 
0 MASS  MATRIX  IF  CONSISTENT  MASS 
R FORM  THE  NUMBER  OF  WORDS  OF 
STIFFNESS  MATRIX  IS  CALCULATED. 
ESTIMATE,  IF  THE  USER  ESTIMATE  IS 
THE  RUN  IS  TERMINATED 
ONLY  FOR  LUMPED  MASS)  MATRICES  AND 


ARRTOOOO 

ARRT0C01 

rvorr* n/vo 

ARRT0003 
ARRT0004 
ARRT0005 
ARRT0006 
ARST0007 
ARRT0008 
ARRT0009 
ARRT001 0 
ARR  TO0 1 1 
ARRTOO 1 2 
ARRT001 3 
ARRT001 4 
ARRT0015 
ARRT001 6 
ARRT001 7 
ARRTOO 1 8 
ARRTOO 1 9 
ARRT0020 
ARRT0021 
ARRTOO?? 


DO  598  1=1 .NOT 

598  ICOL( I ) =ND T 

DO  500  1=1 , NET 
NA=NDT 

II-MI-U-NDPE 

£ DO  5300  U=1  , NDPE 

CO  IIJ  = II+J 

NZ=NODE(IIJ) 

5300  I F ( NA  .GT.  NZ)  NA  = NZ 
DO  500  J = 1 , NDPE 
1 1 J = I I +J 

i.i  I o-i, ODE v 1 1 o) 

500  I F ( I CO  L(NIIJ).GT.NA)  ICO L ( NI I d ) =NA 
5601  INUM( 1 ) = 1 

DO  599  1=2, NOT 

599  INUM(I ) =I-ICOL( 1-1 )+lNUM(I-1) 

DO  591  1=1 .NOT 

591  INUM( I ) = INUM (I)-ICOL(I) 

MH=  IN'JM(NDT  ) +NDT 


ARRT0023 

ARRT0024 

ARRT0025 

ARRT0026 

ARRT0027 

ARRT0028 

ARRT0029 

ARRT0030 

ARRT0031 

ARRT0032 

ARRT0033 

ARRT0034 

ARRT0035 

ARRTC036 

ARRT0037 

ARRT0038 

ARRT0039 

ARRT0040 

ARRT0041 


i.’R  I TE  ( MW  R I T E , 5 1 5 ) MN 
515  FORMAT (/2X,‘  MAX  SIZE  IS  ‘.16) 

IF(MN-MNC)  521.521,5211 
5211  WRITE(M WRITE ,520)  MN 

520  FORMAT (/2X, ' MN=' , 16. 1 THE  DIM  OF  STIF  IS  TOO  SMALL') 
GO  TO  9993 

521  CONTINUE 
NI RREG  = 0 
I NDEX=  0 

I SET= 1 

00  1 16  1 = 1 , N DT 
L=  ICOL  ( I ) 

I F ( ICO  L(I)-ISET)  117,116,119 
119  I SET= I COL ( I ) 

GO  TO  116 

117  N I RREG  = N I RRE  G+ 1 

IF(NIRREG-NDT/2)  711,711,712 


ARRT0043 

ARRT0044 

ARRT0045 

ARRT0046 

ARRT0047 

ARRT0048 

ARRT0049 

ARRT0050 

ARRT0051 

ARRT0052 

ARRT0053 

ARRT0054 

ARRT0055 

ARRT0056 

ARRT0057 

ARRT0058 


o o o o n o QZT  oooo  ooonoo 
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711  KRCJW ( N I RREG ) = I 
MDEX(N IRREG) =INDEX 

116  IND£X=  INDEX+  I-L 

712  CONTINUE 

DO  20  1 = 1 , MN 
20  STF ( I ) =0 . 0 

DO  10  1 = 1, ND  T 
AMASS ( I ) =0 . 0 
10  F ( I ) =0  0 

9999  RETURN 
END 

SUBROUTINE  A SSEMK ( EK . STF, 
IMPLICIT  REAL»8(A-H.0-Z) 


INUM. NOPE, NODE, N) 


ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE 

DIMENS  ION  ST  F( 1 ) , INUM(1 ) , EK( ND PE . NDPE ) ,NODE{ 1 ) 

COMMON /BAS/N DT.NET , MN , NBD , N I RR EG , MNC 

THIS  SUBROUTINE  ASSEMBLES  THE  ELEMEN1  STIFFNESS  MATRIX  Iniu  1 
STIFFNESS  MATRIX 

NN= ( N- 1 ) »NDP  E 
DO  100  1=1 .NDPE 
KMA  = NQ  DE ( NN+ I ) 

DO  100  11=1,1 
KNA  = NO  DE ( NN+ 1 1 ) 

KA= I NU  M ( KMA ) + KNA 

IF(KNA.GT  KMA)KA=INUM(KNA)+KMA 

STF(KA  )=STF(  KA ) +EK ( I , II  ) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  BCONMK ( STF , BC , ICOL , INUM , N BC ) 

IMPLICIT  REAL*8(A-H,0-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  Tnc  CIvm  PLmTc 


ARRT0059 
ARR  10060 

* nnTAft^  < 

ARRT0062 
ARRT0063 
ARRT0064 
ARRT0065 
ARRT0066 
ARRT0067 
ARRT0068 
ARRT0069 
ASMK0000 
ASMKOOO 1 
ASMK0002 
ASMK0003 
ASMK0004 
ASMK0005 
PROGRAMS. ASMK0006 
ASMK0007 
ASMK0008 
ASMK0009 
ASMKOO 1 0 
Hi  AbblMbAamiwul  i 
ASMKOO 12 
ASMKOO 1 3 
ASMKOO 1 4 
ASMKOO 1 5 
ASMKOO 1 6 
ASMKOO 1 7 
ASMKOO 18 
ASMK001 9 
ASMK0020 
ASMK002 1 
ASMK0022 
ASMK0023 
ASMK0024 
BCMKOOOO 
BCMKOOO 1 
BCMK0002 
BCMK0003 
BCMK0004 
BCMK0005 
PkO SRhm3.  dCi>ii\OuO& 


DIMENSION  ST  F ( 1 ) , BC ( 1 ) , ICOL ( 1 ) , I NUM( 1 ) . NBC( 1 ) 

COMMON /BAS/N  DT , NET . MN .NB.NIRREG, MNC 

c 

C THIS  SUBROUTINE  IMPOSES  THE  BOUNDARY  CONDITION  CONSTRAINTS  (ZERO 
C DISPLACEMENTS)  ON  THE  ASSEMBLED  MATRIX  ( 2M/ (DELTA  T SQUAREO)+K) 

C GIVEN  IN  EQUATION  A 114,  BY  ZEROING  THE  ROW  AND  COLUMN  (NOT 
C INCLUDING  THE  DIAGONAL  TERM)  CORRESPONDING  TO  EACH  CONSTRAINED 
C DEGREE  OF  FREEDOM 
C 

I F ( N B EQ  0 ) R ETURN 
DO  "CO  1=1, NB 
K=NBC(  I) 

KA=K+1 

I F ( NEC ( I ) . GE . NOT ) GO  TO  10 
DO  200  J=KA , NDT 


BCMK0007 
BCMK0008 
BCMK0009 
BCMK0010 
BCMK001 1 
BCMK0012 
BCMKOO 1 3 
BCMK0014 
BCMKOO 15 
BCMK001 6 
BCMKOO 17 
BCMKOO 18 
BCMKOO 19 
BCMK0020 
BCMK0021 
BCMK0022 


o o o o o o 
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200 

10 


500 

100 


I F ( I CO  L ( J ) GT  K ) GO  TO  200 
KK=NBC ( I )+INUM( J) 

STF(KK)=0  0 
CONTINUE 
KA=K- 1 

IF( (NBC( I) - LE.  1 ) OR.(ICOL(K).GT. KA) ) GO  TO  100 
MC0= I COL ( K ) 

DO  500  J=MCO  , KA 
KK  = J+I  NUM(K  ) 

ST F ( KK  ) =0 . 0 

CONTINUE 

CONTINUE 

RETURN 

END 

SUBROUTINE  E AROW( ST F , NBC , I COL , INUM , RFM . I LAST , NBE , MBWE ) 
IMPLICIT  REAL*8(A-H,0-Z) 


ASRL  TR  154-14 ORIGINAL  R 

COPYRIGHT  (C)  MASSACHUSETTS  INST 


EPORT  VERSION  OF  PROGRAM 
ITUTE  OF  TECHNOLOGY  1980 


THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS, 


DIMENSION  ST 
COMMON /BAS/ N 
COMMON  /INQU 

THIS  SUBROUTIN 
(STORED  BY  ROW 
CORRESPONDING 
CONTAINS  THE  K 
IT  IS  ASSUMED 
DUPLICATES 


r(  1 ) ,NECU  ) . IC0L(1 
DT.NET, MN , NB , N I RRE 
T/  MREAD.MWRITE.MP 

E EXTRACTS  THE  ROW 
S FROM  THE  FIRST 
TO  EACH  CONSTRAINE 
-TH  ROW  OF  STF,  AN 
THAT  THE  CONSTRAIN 


) . I N JM ( 1 ) , I L AST ( 1 ) , RFM( N DC . MDWC ) 

G.MNC 

UNCH 

S OF  THE  ASSEMBLED  MATRIX,  STF 
NONZERO  TERM  TO  THE  DIAGONAL) 

D D.O.F..  THE  MATRIX  RFM(K.J) 

D IS  USED  TO  COMPUTE  REACTION  FORCES 
ED  D.O.F.  LIST  CONTAINS  NO 


10 


20 

30 


32 


1 F ( NB  EQ . 0 ) RETURN 
fiEIJ"  0 
LNM-0 

DO  50  INB=1 , NB 
K = NBC ( INB) 

NN®0 

EXTRACT  TERMS 
KA- ICO  L ( K ) 

DO  10  J = KA , K 
NN  = NN+  1 
KK-J+I NUMIK) 

RFM( I N B , NN)  = 

FIND  ROW  WHICH 
IL  = K 

I F(K . EQ  NDTJCO  TO  30 
KA-K+1 

DO  20  I=KA,N 
I F(K  GE. ICOL 
CONTINUE 
I LAST ( I NB ) = I 
MM® I LA  ST ( INB 
I r (tnui . LT  inoW 
MBW=MM 
LNM-K 
CONTINUE 

IF(K.EQ.NDT)GO  TO  50 


IN  K-TH  ROW  FROM  FIRST  NONZERO  TERM  TO  DIAGONAL  TERM. 


STF(KK) 

HAS  LAST  NONZERO 


IDT 

. ( I ) ) I L = I 


TERM  IN  COL.  K. 


) — ICOL ( K )+1 
) GO  TO  32 


BCMK0023 

BCMK0024 

UWINMW  tf  ^ J 

BCMK0026 
BCMK0027 
BCMK002B 
BCMK0029 
BCMK0030 
BCMK0031 
BCMK0032 
BCMK0033 
BCMKC034 
BCMK0035 
BCMK0036 
EROWOOOO 
ER0W0001 
EROWQ002 
EROW0003 
EROW0O04 
EROW0005 
. EROW0006 
ER0W0007 

cr.cwocoe 

EROW0009 
EROWOO 1 0 
EROWOOI 1 
EROWOO 12 
EROWOOI 3 
EROWOOI 4 
EROW0015 
EROWOO 16 
EROWOOI 7 
EROWOOI 8 
EROWOOI 9 
EROW0020 
ER0W0021 
EROW0022 
EROW0023 
EROW0024 
EROW0025 
EROW0026 
EROW0027 

ponwnn^e 

EROW0029 

EROW0030 

EROW0031 

EROW0032 

ER0W0033 

EROW0034 

EROW0035 

EROW0036 

ERDW0037 

EROW0038 

EROW0039 

EROW0040 

EROW0041 

EROW0042 

ER0W0043 

ER0W0044 


i 


lei 

ooooooooooo  nooooo 


i 


C EXTRACT  TERMS 

C IN  K-TH  COL. . 

CO  40  I =KA , I 
NN=NN+ 1 
I F ( K GE  ICOL 
RFM( I N B , NN ) = 
GO  TO  40 
KK=INUM( I )+K 
R FM(  I N B , NN  ) = 
CONTINUE 
CONTINUE 
WRITE( MWRITE 
I F ( M3W  GT.MB 
I F ( M3W  GT  MB 
FORMAT ( * 0 * , 1 
2)  DEGREE-OF- 
FORMAT ( ‘O' , 1 
2 O.F  IS  TOO 
RETURN 
END 

SUBROUTINE  F 
IMPLICIT  REA 


IN  K-TH  COL.  FROM  (K-t-l)ST  ROW  TO  LAST  NONZERO  TERM 


(I))GO 

0.0 


TO  35 


35 

40 

50 


600 


610 


STF(FK) 


, 600 ) MBW , LNM 
WE ) WR I T E ( MWR I TE , 61  0) 

WE ) CALL  EXIT 

MAXIMUM  BANO'MDTH  OF ' , I 6 . 2X , ' I S FOUND  FOR 
FREEDOM  NUMBER'  , 16  ) 

»*+  USER  ESTIMATE  OF  MAX.  BANDWIDTH  AT  A CONSTRAINED 
SMALL RUN  HAS  BEEN  TERMINATED') 


ACT ( ST  I FM , NCOL , KRO W , NDEX , IDET.NTAPE6, IC) 
L*B(A-H.O-Z) 


EROW0045 
ER0W0046 

EROW0048 

EROW0049 

ERQW0050 

ER0W0051 

ERQWQ052 

EROWC053 

EROW0054 

EROW0055 

EROW0056 

EROW0057 

ERO'.i0058 

(C0NSTRAINEDER0W0059 

EROW0060 


D EROW0061 
EROW0062 
EROW0063 
EROW0064 
FACTOOOO 
FACT0001 
FAOTOOO? 


ASRL  TR  154-14  ...  . ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS. 

DIMENS  ION  ST IFM( 1 ) ,NCOL(  1 ) ,KROW( 1 ) ,NDEX( 1 ) , IC( 1 ) 

COMMON /BAS/N ROWS , NET , MN , NBD , N I RREG , MNC 

THIS  SUBROUTINE  PERFORMS  TRIPLE-FACTORIZATION  ON  THE  ASSEMBLED 
MATRIX  (2M/(DELT  A T SQUARED ) +K ) IN  EQUATION  A. 114,  PUTTING  IT  IN  THE 
FORM  (L  T R ANSPOS  E 1 *0’’  L WHERE  L IS  A LOWER  TRIANGULAR  MATRIX  AND  D IS 
A DIAGONAL  MATRI ^.T.w  ORIGINAL  MATRIX  IS  DESTROYED  IN  THIS  OPERATION. 
DETAILS  OF  THE  TRIPLE-FACTORING  OPERATION  MAY  BE  FOUND  IN  NUMEROUS 
TEXTS  ON  NUMERICAL  METHODS  AND  FINITE-ELEMENT  METHODS  (EQUATION  9). 

LOWER  TRIANGULAR  FACTOR  OF  K MATRIX  TO  BE  COMPUTED  AND  STORED  IN 
ST  I FM 

PROCESS  COLUMN  1 
1 = 1 

I D£T=0 

I F ( ST  I FM( 1 ) ) 152,122,101 
152  IDET  = I DET+1 

101  INDEXED 
I ROW= 1 
TEST= 1 0 
KN=  1 

DO  103  I =2 ,N  ROWS 
KN  = KN+ I-NCOL ( I ) 

IF  (NCQL(I)-I)  103,102,103 

102  S T I FM ( KN)=ST IFM(KN)/STIFM(1 ) 

103  CONTINUE 

DO  121  I =2. N ROWS 

I P 1 = 1 + 1 

I M 1 * I - 1 

SUM=0 . 0 

NCK=0 


FACT0003 
FACT0004 
FACT0005 
FACT0006 
FACT0007 
FACT0008 
FACT0009 
FACT001 0 
FACT001 1 
FACT001 2 
FACT001 3 
FACT0014 
FACT001 5 
FACT0016 
FACT001 7 
FACT001 8 
FACTOO 1 9 
FACT0020 
FACT0021 

FACT0023 

FACT0024 

FACT0025 

FACT0026 

FACT0027 

FACT0028 

FACT0029 

FACT0030 

FACT0031 

FACT0032 

FACT0033 

FACT0034 

FACT0035 

FACT0036 

FACT0037 

FACT0038 
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III =NCOL( I ) 

I NDEX  = INDEX+  I - 1 1 1 
IF  (IM1-IIII  150, 140,140 
C DIAGONAL  TERMS 

140  DO  104  d=  1 1 1 , IM1 
I J= IND  EX+d 
ICdd=IC(d)+d 

104  SUM  = Sur.HSTIFM(  I J)+STIFM(  I d ) *ST I FM( ICdd ) 

150  II^INDEX+I 
SUM=ST IFM(II )-SUM 

I F ( SUM  ) 151 , 122,105 

151  IDET= I DET+1 

105  TES  = DABS( SUM /ST I FM ( 1 1 ) ) 

I F ( TES-TEST ) 106,107,107 
1 06  TEST - T ES 
I ROW= I 

' 107  ST  I FM(  1 1 ) = SUM 

C OFF  DIAGONAL  TERMS 

IF  (I-NROWS)  108, 121 ,121 

108  KNDEX=  INDEX 

109  DO  116  K= I PI  , NROWS 
KK=NCO  L ( K ) 

KNDEX=  KNDEX+  r\-Kr\ 

SUM=0. 0 

IF  (KK-III)  110,130,130 

110  KK=III 

130  IF  (IM1-KK)  112,131.131 

131  DO  111  d=KK , IM1 
I d=  I ND  EX+d 

DJ  Kd  = KND  EX+d 

10  ICdd=IC(d)+d 

1 1 1  SUM=SUM+STIFM( I d ) + ST  I FM( Kd ) *ST I FM( ICdd ) 

112  IF  ( I-KK)  114,115,115 

114  1F(NIRREG  .LE  0)  GO  TO  121 
IF(NIRREG  -GT.  NROWS/2)  GO  TO  116 
GO  TO  190 

115  K I =KND  EX+ 1 

ST  I FM ( KI)  = (STIFM(KI)-SUM)/STIFM(II) 

116  CONTINUE 
GO  TO  121 

190  NCK=NC K+ 1 

IF(NIRREG  LT.  NCK ) GO  TO  121 
IP1 =KROW(NCK ) 

I F ( I LT  NCOL(IPI))  GO  TO  190 
I F ( I P 1 LT  K)  GO  TO  190 
KNDEX=NDEX(NCK) 

GO  TO  109 

121  CONTINUE 

WRITE( NTAPE6 ,1000)  I ROW , TEST , I DET 

1000  FORMAT  ( 42H0 ROUND I NG  ERROR  PARAMETER  IN  FACTORING  R0W,I4,2H  «,F12 
1 8 , 5X , 1 NO  OF  NEGATIVE  DIAG=‘,I5) 

RETURN 

122  WRITE( NTAPE6 , 1001 ) I 
I DET  = - 1 

1001  FORMAT  (37H1  MATRIX  NOT  POSITIVE  DEFINITE  IN  ROW, 14) 

WRITE(NTAPE6 , 1002)  SUM 

1002  FORMAT ( 2X , ‘ SQR  DIAG  TERM = 1 , D1  5 . 8 , /2X , * PART  FACT  K‘,/7) 

RETURN 

END 


FACT0039 

FACT0040 

F4rT0041 

FACT0042 

FACT0043 

FACT0044 

FACT0045 

FACT0046 

FACT0047 

FACT0048 

FACT0049 

FACT0050 

FACT0051 

FACT0052 

FACT0053 

FACT0054 

FACT0055 

FACT0056 

FACT0057 

FACT0058 

FACT0059 

FACT0060 

FACT0062 

FACT0063 

FACT0064 

FACT0065 

FACT0066 

FACT0067 

FACT0068 

FACT0069 

FACT0070 

FACTC071 

FACT0072 

FACT0073 

FACT0074 

FACT0075 

FACT0076 

FACT0077 

FACT0078 

FACT0079 

FACr0080 

FACT0082 

FACT0083 

FACT0084 

FACT0085 

FACT0086 

FACT0087 

FACT0088 

FACT0089 

FACT0090 

FACT0091 

FACT0092 

FACT0093 

FACT0094 

FACT0095 

FACT0096 

FACT0097 


ooooooooono 


! 


! 


SUBROUTINE  GAUSS(N,GS.GW) 
IMPLICIT  RtAL*8(A-H,0-Z) 


ASRL  TR  154-14.  ..  ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 

THIS  SUBROUTINE  DEFINES  THE  LOCATION  OF  THE  GAUSSIAN  INTEGRATION 
STATIONS  AND  THE  CORRESPONDING  WEIGHTING  FACTORS  IN  ONE  DIMENSIONAL 
SPACE.  THE  NUMBER  OF  GAUSSIAN  STATIONS  USED  MAY  BE  FROM  1 TO  6. 

DIMENS  ION  GS (6) ,GW(6) 

GO  TQ( 10,20, 30.40.50,60) ,N 
10  GS ( 1 ) = 0 0D0 

GW ( 1 ) = 2 . ODO 
RETURN 

20  GS1 =“0  5773502691896260+00 
GS ( 1 ) = GS  1 
GS ( 2 ) = - GS 1 
CW(1)=1  ODO 
CU(2)=1  ODO 
RETURN 

30  GS  1 = - 7745  96669241 483D+00 

GS ( 1 ) = GSl 

GS(2) =0.0000000000000000+00 
GS(  3 ) = - GS  1 

GW1  = .55555555555555560+00 
GW ( 1 ) = GW  1 

GW ( 2 ) = 88388888888888890+00 
GW ( 3 ) = CW1 
RETURN 

40  GS1 =-.861 1 3631 159405300+00 

GS2= - 33998104258485600+00 
GS ( 1 ) =GS1 
GS ( 2 ) =GS2 
GS  ( 3 1 - — GS2 
GS ( 4 ) = - GSl 

GW1  = 34785  484513745400  + 00 
GW2=  652 1 4 5 1 5486 25460 D +00 
GU ( 1 ) = GW1 
CW ( 2 ) = GW2 
GU ( 3 ) = GW2 
GW ( 4 ) = GW1 
RETURN 

50  GS 1 =-0  906179845938664D+00 
GS2  = - . 5384  693 1 0 1 05683D+00 
GS ( 1 ) = GSl 
GS ( 2 ) = GS2 
GS ( 3 ) = 0 . ODO 
GS  (4 ) = - GS2 
GS ( 5) - - GSl 

GW 1 = .2369268850561890+00 
l>w2=  +7562  86704993660+00 
GW ( 1 ) =CW1 
GW ( 2 ) = GW2 

GW(3) = .5688888838888890+00 
GW ( 4 ) = GW2 


! 
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GAUSOOOO 
GAUSOOO 1 

C. 

GAUS0003 
GAUS0004 
GAUS0005 
GAUS0006 
GAUS0007 
GAUS0008 
GAUS0009 
GAUSOO 1 0 
GAUS001 1 
GAUSOO 1 2 
GAUSOO 1 3 
GAUSOO 1 4 
GAUSOO 1 5 
GAUS001 6 
GAUSOO 1 7 
GAUSOO 1 8 
GAUSOO 1 9 
GAUS0020 
GAUS0021 
GAUSCG22 
GAUS0023 
GAUS0024 
GAUS0025 
GAUS0026 
GAUS0027 
GAUS0028 
GAUS0029 
GAUS0030 
GAUS0031 
GAUS0032 
GAUS0033 
GAUS0034 
GAUS0035 
GAUS0036 
GAUS0037 
GAUS0038 
GAUS0039 
GAUS0040 
GAUS004 1 
rsMicnn/12 
GAUS0043 
GAUS0044 
GAUS0045 
GAUS0046 
GAUS0047 
GAUS0048 
GAUS0049 
GAUS0050 
GAUS0051 
GAU50052 
GAUS0053 
GAUS0054 
GAUS0055 
GAUS0056 
GAUS0057 
GAUS0058 
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GW ( 5 ) = GW1 

return 

-0  GS1=-.9324695142C3152D+00 

GS2= -.6612093864662650 +00 
GS(  1 ) = GS1 
GS( 2 ) = GS2 

GS3=-.2386 191 860831 97D+00 
GS( 3 ) = GS3 
GS ( 4 ) - - GS3 
GS ( 5 ) = - GS2 
GS (6)  = - GSl 

GW1 = .1713244923791700+00 
GW2=  .3607615730481390+00 
GW3  = 4679139345726910+00 
GW( 1 ) = GW1 
GW ( 2 ) = GW2 
GW ( 3 ) = GW3 
GW ( 4 ) = GW3 
GW ( 5 ) * GW2 
GW(  6)  = GW1 
RETURN 
END 

SUBROUTINE  L MASS'3  < NT  YP5  . XL.YL,  TM , SL , CSA , SMOT  , EML  , nFNS 1 
IMPLICIT  REAL»8(A-H,0-2) 

ASRL  TR  154-14  ..  ..ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 


DIMENSION  EM  L ( 1 ) 

THIS  SUBROUTINE  FORMS  THE  LUMPED  (DIAGONAL)  MASS  MATRIX  FOR  A PLATE 

or  stiffener  element 


ou  TG( 10,50, 70), N TYPE 
: LUMPED  MASS  FOR  PLATE 

10  AM1=XL*YL*TH 

AM2=AM1 +TH+TH/12.0 
CO  *0  1=1,4 
INC  = 6t ( 1-1 ) 

DC  20  d = 1 ,3 
dd  = INC  +J 

20  EML ( du ) * AM i / 4 . 0 


GAUS9059 

GAUS0060 

• I | f r\  j 

GAUS0062 
GAUS0063 
GAUS0064 
GAUS0065 
GAUS0066 
GAUS0067 
GAUS006B 
GAUS0069 
GAUS0070 
GAUS007 1 
GAUS0072 
GAUS0073 
GAUS0074 
GAUS0075 
GAUS0076 
GAUS0077 
GAU50078 
GAUS0079 
GAUS0080 
i Mspnnno 
LMSP0001 
LMSP0002 
LMSP0003 
LMSP0004 
LMSP0005 
LMSP0006 
LMSP0007 
LMSP0008 
LMSP0009 
LMSPOO 1 0 
LMSP001 1 
LMSPOO 12 
LMSPOO 13 
LMSPOO 14 
LMSPOO 15 
LMSPQ016 
LMSPOO 1 7 
LMSPOO 1 8 
LMSPOO 1 9 


DO  30  d = 4 , 5 
dd=  INC  +d 

30  EML(dd )=AM2/4.0 
40  EML ( I N C+6 ) = 0 0 
GO  TO  90 

C LUMPED  MASS  FOR  X-DIRECTION  STIFFENER 
50  AM 1 =CS  A*XL 

AM2=SM0I *XL 
D1 - 1 O-SL 
D2  = SL 

DO  60  1=1,4 
FCT=D2 

1 F ( I EQ  1 OR. I EO  2 ) FCT  = D1 
INC=6*  ( 1-1  ) 

EML ( INC+ 1 )=AM1 *FCT/2.0 
EML( INC+2)  = EML( INC  + 1 ) 


LMSP002 1 
LMSP0022 
LMSP0023 
LMSP0024 
LMSP0025 
LMSP0026 
LMSP0027 
LMSP0028 
LMSP0029 
LMSP0030 
LMSP0031 
LMSP0032 
LMSP0033 
LMSP0034 
LMSP0035 
LMSP0036 
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EML( INC+3)=EML( INC  + 1 ) 

LMSPC037 

EML( INC+4)=AM2+FCT/2  0 

LMSP0038 

EM L ( INC+5)=E.VL(  INC  l4) 

» mi*  nn  a +■» n 

60 

EML ( I N C+6 ) =0  0 

LMSP0040 

GO  TO  90 

LMSP0041 

LUMPED  MASS  FOR  Y-D I RECT ION  STIFFENER 

LMSP0042 

70 

AMI = CS A+YL 

LMSP0043 

AM2=SM0I*YL 

LMSP0044 

D 1 = 1 O-SL 

LMSP0045 

D2  = SL 

LMSP0046 

DO  60  1=1,4 

LMSP0047 

FCT=D2 

LMSP0048 

I F ( I . E 0 1.0R.I.EO  4 ) FCT  = 01 

LMSP0049 

I NC  = 6+ ( 1-1 ) 

LMSP0050 

EML( INC+1 >=AM1 +FCT/2  0 

LMSP0051 

EML ( INC+2)  = EML( INC  + 1 ) 

LMSP0052 

EML( INC+3)=EML( INC  + 1 ) 

LMSP0053 

EML( INC+4) =AM2+FCT/2.0 

LMSP0054 

EML(INC+5)=EML( INC+4) 

LMSP0055 

80 

EML ( INC+6)=0  0 

LMSP0056 

90 

CONTINUE 

LMSP0057 

MULTIPLY  BY  DENSITY  FOR  THIS  ELEMENT. 

LMSP0058 

DO  100  1=1,24 

Livii+Ovoy 

100 

1 EML( I ) =EML( I ) »DCNS 

LMSP0060 

RETURN 

LMSP0061 

END 

LMSP0062 

SUBROUTINE  M ESHPA ( NP . NOD E , XG , Y G , ZG , NBC , BC , LNXS , LNYS , XG I . YGI . 

MSPAOOOO 

2/SPROP , YSPROP.NXST.NYST, IMESH.MATXS 

.MATYS) 

MSPAOOO 1 

IMPLICIT  REAL*8(A-H,0-Z) 

MSPA0002 

INTEGER  TY.PE.TY1 ,PE1 .TY2.PE2 

MSPA0003 

MSPA0004 

ASRL  TR  154-14  ..  . ORIGINAL  REPORT 

VERSION  OF  PROGRAM 

MSPA0005 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE 

OF  TECHNOLOGY  1980 

MSPA0006 

MSPA0007 

THIS  SUBROUTINE  IS  USED  Bl'  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS . MSPA0Q08 


MSPA0009 

DIMENSION  NP  ( 4 , 1 ) , NODE ( 1 ) , XG( 1 ) , YG( 1 ) . 2G(  1 ) ,NBC( 1 ) ,BC( 1 ) ,NCSB(4) , MSPAOOtO 


2NC(6) , XSPROP (7, 1 ) ,YSPROP(7,1)  , NSC ( 6 , 5 ) , NEC ( 6 , 5 ) , NBCSC ( 5 ) , MSPAOOtl 

3NBCEC ( 5 ) , XGI  (1 ) ,YCI( 1 ) ,LNXS(1 ) ,LNYS( 1 ) , RHC ( 30 ) , R WC ( 30 ) ,ECS(30),  MSPA0012 

4ANUCS( 30) ,DENCS(30) ,SLCS(30) ,XFCST(30) ,APCST(30) .MATCS (30),  MSPA00t3 

5MATXS ( 1 ) , MAT  YS( 1 ) MSPA0014 

DATA  NSC/1 ,4 ,6, 3+0,1 ,2, 3 .4,5,6 ,1 .2,3, 5, 6, 0,1 ,2 ,5 ,6 , 2*0 ,2 .3, 5.6,  MSPA0015 

@2*0/  ihSthOO  , o 


DATA  NEC/2,5  ,6, 3 + 0,1 ,2. 3. 4, 5. 6, 1,2, 3, 4, 6. 0,1, 2, 4, 6, 2*0. 1.3, 4, 6, 

@2  + 0/ 

DATA  N6CEC/3 ,6. 3,4,4/ 

DATA  N6CSC/3 ,6. 5. 4, 4/ 

DATA  TY1  ,TY2  ,PE1 ,PE2/‘  SIN1,*  DOU'.'GLE  ‘ , ' BLE  •/ 

COMMON /PLATE/XDIST.YDIST , TH , HX L , HYL , MEAD , NECD , OENSP , EP AN , AhUP , 
2THALF 

COMMON /BAS/N DT.NET ,MN,NB .NIRREG.MNC 
COMMON  /INOUT/  MREAD ,MWR I TE .MPUNCH 
C 

C THIS  ROUTINE  FORMS  MESH.  BOUNDARY  CONDITION,  AND  STIFFENER 
C INFOPMAT ICN  FOR  FLAT  PLATE  PROBLEM.  THE  STIFFENERS  ARE 
C ASSUMED  TO  BE  ORIENTED  IN  THE  X AND  Y DIRECTIONS,  SPANNING  THE 

C ENTIRE  PLATE  AT  PRESENT  A MAXIMUM  OF  30  STIFFENERS  IN  EACH 

C DIRECTION  15  PERMITTED  THE  MESH  IS  MADE  UP  OF  RECTANGULAR 

C PLATE  BENDING  ELEMENTS,  IN  A UNIFORM  OR  NONUNIFORM  PATTERN. 


MSPAOO 1 7 
MSPA001 8 
MSPAOO 1 9 
MSPA0020 
MSPA0021 
MSPA0022 
MSPA0023 
MSPAOO  24 
MSPA0025 
MSPA0026 
MSPA0027 
MSPA0028 
MSPA0029 
MSP A0030 
MSPA0031 
MSPA0032 
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136 


PAGE  0009 


C PLATE  IS  OF  UNIFORM  THICKNESS. 

C 

C IF  IMESH  = 0 , A NONUN  I FORM  MESH  IS  ASSUMED. 

C IF  IMESH  = 1 , A UNIFORM  MESH  IS  ASSUMEO. 

C GENERAL  MESH  INFORMATION 

READ(MREAO,500)NEA0,NECD 

READ(MREAD,5 10)EPAN,ANUP .DENSP ,TH,XDIST, YOIST.ZPOS 

THALF=  TH/2 . 0 DO 

NET=NEAD*NECD 

NDPE  = 2 4 

NDPN=6 

NXST  = 0 

NYST  = 0 

NEAD1 = NEAD+ 1 

NECD1 =NECD+1 

NDT  = NE  ADI *NECD1 + NDPN 

NNT=NE ADI »NECD1 

C FORM  NP(I.J),  I = LOCAL  NODE  NUMBER,  vJ=ELEMENT  NO. 

C X-DIR  FIRST,  Y-DIR.  NEXT 
LNUM=0 

DO  10  NE= 1 ,NECD 
I NCE=  ( NE-1 ) * NEAD1 
DO  10  NS  = 1 , N EAD 
LNUM=LNUH+1 
NP ( 1 , L NUM ) = I NCE+NS 
NP ( 2 , L NUM ) =N  P ( 1 ,LNUM)  + 1 
NP ( 3 , L NUM) =N  P ( 2 , LNUM ) +NE  ADI 
10  NP(4,  LNUM)=NP(3,LNUM)-1 

C FORM  NODE  VECTOR ASSEMBLY  LIST 

DO  30  1=1 .NET 
INC I = ( 1-1 )*NDPE 
DO  30  J = 1 ,4 
INCJ= ( J-1 ) *N DPN 
DO  30  K= 1 , ND  PN 
I NCI UK  = INC I + INCJ  + K 

30  NODE ( INCIJK) =NP(J, I ) *NDPN-NDPN+K 
C SPACE  COORDINATES  OF  NODES. 

I F ( IMESH  EQ. 1 ) GO  TO  32 

C FOR  NONUNIFORM  MESH,  READ  Y=0  NODAL  COORDS.  AND  X=0  NODAL  COORDS. 
READ(MREAD,510)  (XG(I),  I=1,NEAD1) 

I2=NECD*NEAD 1+1 

READIMREAD.510)  (YG(I),  1 = 1 , 1 2 . NEAD1 ) 

GO  TO  3B 

C FOR  UNIFORM  MESH  GENERATE  THIS  INFO  AUTOMATICALLY 
C ASSUMING  FIRST  NODE  AT  (0,0) 

32  DX=XDI ST/NEAD 
DY  = YDI ST/NEC  D 
HXL=DX/2  0 
HYL=DY/2  0 
DO  34  1 = 1 , NE ADI 
34  XG( I )= ( 1-1 )* DX 
DO  36  1 = 1 , NE  CD 1 
I2=NEAD1*I-NEAD 
36  YG( 12) =( 1—1 ) *DY 

c c:ll  out  xg,  yg,  zg 

38  DO  40  I Y = 1 , N ECD1 
INCY=(  I Y — 1 ) * NEA01 
DO  40  IX=1 , N EAD1 
I2=INCY+IX 


MSPA0033 

MSPA0034 

MCDinnoc 

MSPA0036 
MSPA0037 
MSPA0038 
MSPA0039 
MSP A0040 
MSPA0041 
MSPA0042 
MSPA0043 
MSPA0044 
MSPA0045 
MSPA0046 
M3PA0047 
MSPA0048 
MSPA0049 
MSPA0050 
MSPA0051 
MSPA0052 
MSPA0053 
MSPA0054 

MSPApPS? 

MSPA0056 
MSPA0057 
MSPA005B 
MSPA0059 
MSPA0060 
MSPA0061 
MSPA0062 
MSPA0063 
MSPA0064 
MSPA0065 
MSPA0066 
MSPA0067 
MSPA0068 
MSPA0069 
MSPA0070 
MSPA007 1 
MSPA0072 
MSPA0073 
MSPA0074 
MSPA0075 
MSPA0076 
MSPA0077 
MSPA0073 
MSPA0079 
MSPAOOBO 
MSPAC0B1 
MSPA0082 
MSP A0083 
MSPA0084 
MSPA0035 
MSPA0036 
MSPA0087 
MSPA0088 
MSPA0089 
MSPA0090 
MSPA0091 
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41 


c 


42 

c 

50 


62 

C 

70 


72 

80 

C 


XG( 12) = XG( IX  ) 

YG ( 1 2 ) =YG(INCY  + 1 ) 

ZG( 12 ) = ZP0S 
DO  41  1 = 1, NN  T 

XGI ( I ) =XG( I ) 

YGI ( I ) = YG( I ) 

BOUNDARY  CONDITIONS 

CONVENTION  FOR  PLAT-PLATE  BOUNDARY  CONDITION  OPTIONS, 

0 - FREE 

1 - SYMMETRY 

2 - IDEALLY  CLAMPED 

3 - PINNED-FIXED 

4 - PINNED-FRCE  SLIDING  Z-DIRECTION 

5 - PINNED-FREE  SLIDING/NORMAL  (INPLANE) 
READ(MREAD,500) (NCSB(I)  , 1=1,4) 

NBT  = 0 

SIDE  1 Y = 0 , VARY  X 

I F (NCS  B ( 1 ) .EQ  0)  GO  TO  50 
MM=NCSB( 1 ) 

NN=N8C  EC ( MM ) 

DO  42  NS=  1 , N EAD1 
I NS= ( N S“ 1 )*NOPN 
DO  42  1=1, NN 
N6T=NBT+1 

N6C(NBT)=INStNEC(I , MM ) 

SIDE  2 X = XD  1ST , VARY  Y 

I F ( NCS B( 2 ) E 0 . 0 ) GO  TO  60 
MM  = NCS  B ( 2 ) 

NN  = NBC  SC ( MM ) 

DO  52  NE= 1 , N CCD1 
INE=NE  +NEAD1 +NDPN-NDPN 
DO  52  1=1 ,NN 
NBT  = NB  T + 1 

NBC(NBT)=INE+NSC( I , MM) 

SIDE  S T-iDIST,  VARY  X 

IF(NCSB(3)  EQ  0 ) GO  TO  70 
MM=NCSB(3) 

NN=NBC  EC ( MM ) 

DO  62  NS=  1 , N EAD 1 

INS=NE ADI +NECD*NDPN+(NS-1 )»NDPN 

DO  62  1=1 ,NN 

NBT=NBT+1 

ilBC  ( NB  T ) = I NS  xNEC  ( I , MM ) 

SIDE  4 X=0,  VARY  Y 

lF(NCSB(4).Eg.0) GO  TO  80 
MM=NCS  6(4) 

NN  = NBC  SC ( MM ) 

DO  72  NE  = 1 , N EC01 
INE=(NE-1 ) *N  EA01 +NDPN 
DO  72  1=1 , NN 
NBT  = NBT  + 1 

NBC(NBT)  = I NE  +NSC ( I ,MM) 

CONTINUE 

SORT  CONSTRAINED  D O.F.,  LOWEST  TO  HIGHEST,  ELIMINATING 
I F ( NBT  EQ.0)NC=0 
I F (NBT .EQ.O) GO  TO  850 
REMOVE  DUPLICATE  CONSTRAINED  O.O.F. 

NB  = 1 

DO  820  1=2, NBT 


NCBS(SIDE) 


DUPLICATES. 
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MSPA0092 

MSPA0093 

MSPA0095 
MSPA0096 
MSPA0097 
MSPA0098 
MSPA0099 
MSPA0100 
MSPA0101 
MSPA0102 
MSPA0103 
MSPA0104 
MSPA0105 
MSPA0106 
MSPA0107 
MSPA0108 
MSPA0109 
MSPA01 10 
MSPA01 1 1 
MSPA01 12 
MSPA01 13 
Mcpani 14 
MSP A0 1 15 
MSPA01 16 
MSPA01 17 
MSPA01 18 
MSPA01 19 
MSPA01 20 
MSPA01 21 
MSPA0122 
MSPA0123 
MSPA0124 
MSPA01 25 
MSPA0126 
MSPAO 1 27 
MSPA0128 
MSP AO 129 
MSPAO 1 30 
MSPA0131 
MSPAC1 32 
MSPA01 33 

MSPA01 35 
MSPAO 136 
MSPAO 1 37 
MSPA01 38 
MSPAO 1 39 
MSPAO 140 
MSPA01 41 
MSPAO 142 
MSPAO 1 43 
MSPAO 144 
MSPAO 145 
MSPAO 146 
MSPAO 1 47 
MSPAO 148 
MSPAO 149 
MSPA0150 


138 


TO  820 


NI=NBC  ( I ) 

DO  810  J = 1 ,NB 
I F ( NEC  ( <J  ) £0  N I ) CO 
810  CONTINUE 
NB=NB+ 1 
NBC ( NB ) =NI 
820  CONTINUE 
C REARRANGE.  LOWEST  TO  HIGHEST. 

N3T  = 0 

830  NBT=NBT+1 
NM I N= N OT  + 1 
DO  840  II=N9T,NB 
I F (NBC ( I I ) . GT  NM I N ) GO  TO  840 
NMIN=N  BC (II ) 

N I = 1 1 

840  CONTINUE 

NSTOR=NBC(NBT) 

NBC(NBT  J = NBC (NI) 

NBC ( N I ) =NS  TC  R 
I F(N8T  LT  NB)GO  TO  B30 
DO  845  1=1 ,NB 
845  BC ( 1 ) = 0 . ODO 
850  CONTINUE 

C INFORMATION  FOR  STIFFENERS.  FOR  PRESENT  ANALYSIS,  EACH  AXIAL 
C OR  CIRC  STIFFENER  SPANS  ENTIRE  DIMENSION  OF  STRUCTURE. 

RE  AD  ( M RE  AD,  5 00)  NAS  T ,NCST 

C INFORMATION  FOR  X-DIRECTION  STIFFENERS  SPANNING  PLATE. 

I F ( NAS  T EQ  0 )GO  TO  100 
READ(MREAD, 5 1 0) (APCST(  I ) ,1  = 1 , N ASTI 
READ ( M READ , 5 1 0 ) ( RHC ( I ) , I =1  , NAS  T ) 

RE AD (M RE AD, 5 10) (RWC( I ) , I =1 , NAS  T ) 

READ(MREAD, 5 10)  ( ECS  ( I ) , I =1 , NAS T ) 

READ) M READ, 5 10) ( ANUCS(I ) ,1  = 1 , N AST ) 

R£AD(M READ, 510) (DENCS( I ) , 1 = 1 , N AST ) 

REaDiMREAD,S10>(XFCST(I) .1=1 ,NAST) 

READ(M READ, 5 03) (KATCS( I ) , 1 = 1 , N AST ) 

NN  = 0 

DO  115  NES  = 1 , NAST 
DO  105  I = 1 , N ECO 
I2=NEAD1 *1+1 
At>OS  = YG(  12) 

I F ( APO S GE  A PCST(NES) )NROW=I 
I F ( APO S GE.APCST(NES))GO  TO  110 
105  CONTINUE 
110  I 1=NEAD1 *(NR0W-1 )+1 
1 2 = NE A D 1 *NR0W+1 

SLCS(NES)=(2  DO*APCST(NES)-YG( II )-YG(I2))/(YG(I2)-YG(I 1)) 

DO  1 15  NS= 1 , NCAD 
NN  = NN+  1 

115  LNXS ( N N ) =(NR0W-1 J+NEAD+NS 
NN  = 0 

DO  116  1 = 1 , N AST 
DO  1 16  U = 1 , N EAD 
NN  = NN+  1 

f’ATXS(  NN)=MATCS(  I ) 

XSPROP ( 1 ,NN) =RHC(  I ) 

XSPROp ( 2 , NN) =RWC( I ) 

XSPRCM3.NN)  =ECS(  I ) 

XSPROP ( 4,  NN) = ANUCS ( I ) 


I 
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MSPA01 51 
MSPA0152 

MCDAfll  CO 

MSPA0154 
MSPA01 55 
MSPA0156 
MSPA01 57 
MSPA0158 
MSPA0159 
MSPA0160 
MSPA0161 
MSPA0162 
MSPA0163 
MSPA0164 
MSPA01 65 
MSP A0 166 
MSPA0167 
MSPA0168 
MSPA01 69 
MSPA01 70 
MSPA0171 
MSPA01 72 

IWOrMU  i / j 

MSPA0174 
MSPAO 1 75 
MSPA0176 
MSPA01 77 
MSPA01 78 
MSPAO 179 
MSPA01 80 
MSPAO 1 81 
MSPAO 1 82 
MSPAO 183 
MSPAO 184 
MSPAO 1 85 
MSPA01 86 
MSPAO 187 
MSPAO 188 
MSPA01 89 
MSPAO 190 
MSPAO 191 
MSPAO 192 
i»!5F«0  i 93 
MSPA01 94 
MSPAO 195 
MSPA0196 
MSPAO 1 97 
MSPAO 1 98 
MSPA0199 
MSFA0200 
MSPA0201 
MSPA0202 
MSPA0203 
MSP A0204 
MSPA0205 
MSPA0206 
MSPA0207 
MSPA0208 
MSPA0209 


I 
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')  1 1 


XSPROP ( 5 , NN ) =DENCS(I) 

XSPROP ( 6 , NN ) = ( S LCS ( I ) + 1 . 0D0)/2 .000 
116  XSPROP'7, NN)  =XFCST(I) 

NXST=NASr*NE AO 

c information  for  y-direction  stiffeners  spanning  plate, 
ioo  if(ncst  eo  o)go  ro  120 

READ(MREAO,5tO)(APCST(I)  .1  = 1 , N CST ) 

RE AO ( M RE AD, 510)(RHC(I), 1 = 1 ,NCST) 

READ( M READ ,5 10)(RWC( I ) , I =1 .NCST) 

R£AO(M READ, 5lO)(ECS(I), 1=1 ,NCST) 

READ(MREAD,510)(ANUCS(I) .1=1 .NCST) 

RE AD ( M RE AD , 5 1 C ) ( OENCS( I ) .1  = 1 .NCST) 

READ( M RE AD , 5 1 0 ) ( XFCST ( I ) . 1 = 1 .NCST) 

READ( M READ , 5 00  ) ( MATCS ( I ) .1  = 1 .NCST) 

NN  = 0 

DO  95  NES= 1 , NCST 
DO  85  1=1 ,NEAD 
POS=XG( 1+1 ) 

IF(POS .GE.APCST(NES) )NCOL=I 
I F ( POS  GE. APCST(NES) )G0  TO  90 
85  CONTINUE 

90  SLCS(NES)  = (2 .DO+APCST ( NE  S )— XG( NCOL+1 )-XG(NCOL ) ) / ( XG( NCOL+1 )- 
&XG(NCOL) ) 

DO  95  NE-1  , N ECO 
NN=MN+  1 

95  LNYS ( N N ) =NCOL+NEAD* ( NE-1 ) 

NN  = 0 

DO  96  1 = 1 , NC  ST 
DO  96  d=1  , NE  CL) 

NN=NN+ 1 

MA T Y S ( NN)=MATCS( I ) 

YSPROP ( 1 , NN ) =RHC ( I ) 

YSPROP ( 2 , NN ) =RWC( I ) 

YSPROP ( 3 , NN ) = ECS ( I) 

YSPROP (4, NN) =ANUCS ( I ) 

YSPROP (5, NN) =DENCS(  I ) 

YSPROP (6. NN) = ( SLCS ( I ) + 1 . 000 )/2 .ODO 

96  YSPROP (7 ,NN) =XFCST( I ) 

NYST=NCST*NECD 

120  CONTINUE 
J1=MXST+1 
J2=NXST+NAXS 

C INFORMATION  FOR  ADDITIONAL  STIFFENERS  ON  INDIVIDUAL  ELEMENTS. 
READ(M READ, 500) NAXS, NAY  S 
IFiNAXS.EO  0 )G0  TO  125 
READ(M READ, 500) ( LNXS( J) , J = U1 . J2) 

RE AD ( M RE AD ,500) (MATXS(J)  ,d  = U1  , J2) 

DO  122  1=1,7 

122  READ(MREAD,510)(XSPR0P(I  ,J),d=J1,d2) 

125  I F ( NAY  S EO  0 )G0  TO  128 
J 1 =NY  S T+ 1 
J2  = NYS  T + NAYS 

RE AD  (M RE AD, 5 00) (LNYS(U) , J = J1 , J2) 

RE AD ( M RE AD , 5 00 ) ( MAT YS ( U ) . J = J1  , J2) 

DO  1 27  I = 1 7 

127  READ(MREAD,5 10) (YSPROP ( I , J ) . d= J1 , J2 ) 

128  NXST=NXST+NAXS 
NYST=NYST+NA YS 

C PRINT  INFORMATION 


MSPA0210 
MSPA021 1 

MAPAr.O  i o 

MSP AO 21 3 
MSPA0214 
MSPA0215 
MSP AO 21 6 
MSPA0217 
MSPA0218 
MSPA02 1 9 
MSPA0220 
MSPA0221 
MSPA0222 
MSPA0223 
MSPA0224 
MSPA0225 
MSPA0226 
MSPA0227 
MSPA0228 
MSPA0229 
MSPA0230 
MSPA0231 
MSPA0232 
MSPA0233 
MSPA0234 
MSPA0235 
MSPA0236 
MSPA0237 
MSPA0238 
MSPA0239 
MSPA0240 
MSPA0241 
MSP A0242 
MSPA0243 
MSPA0244 
MSPA0245 
MSPA0246 
MSPA0247 
MSPA0248 
MSPA0249 
MSPA0250 
MSPA0251 
MSPA0252 
MSPA0253 
MSPA0254 
MSPA0255 
MSPA0256 
MSPA0257 
MSPA0258 
MSPA0259 
MSPA0260 
MSPA0261 
MSPA0262 
MSPA0263 
MSPA0264 
MSPA0265 
MSPA0266 
MSPA0267 
MSPA0268 
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WRITE(MWRITE  ,60C) 

WRITE (MWRI IE  , 605 ) XOI ST , Y DIST , Z POS , TH , EPAN , ANUP , DENSP , N HAD , NECD 
2MDPE.NET, NOT  ,NXST,NY5T 
WRITE  ((/.WRITE  ,625) 

WR I T E ( MWRI  T E ,626) 

DO  130  1=1 .NET 

130  WR  1 T£  ( MWRI T E ,627)1 , ( NP( J , I ) , d= 1 , 4) 

WR1 TE ( MWR I TE  ,700) 

WRI TE ( MWRI TE  ,701 ) 

1 = 0 

DO  135  NSIOE-1 ,4 
NN  = NCS  B(NSIDE) 

IF(NN  CO . 0 ) W R I T E ( MWR  1 TE  , 900) NS  IDE 
I F ( NN  EQ. 1 ) WRITE (MWRI TE  , 901 ) NS  IDE 
I F ( NN  EO  21 WRITE(M WRITE , 902)NS I DE 
I F ( NN  EQ.3)WRITE(MKRITE , 903) NS  IDE 
IF(NN. EQ  4)WRITE(MWRITE, 9C4)NSIDE 
I F ( NN  EQ  5)WRITE(MWRITE , 905)NS IDE 
1 F ( NN  .EO.  1 ) 1 = 1 + 1 

135  CONTINUE 

1 F ( I EO  0)  GO  TO  13503 
N0=2*I 

IF( I . EO  2)  GO  TO  13501 
TY=TY1 
PE  = PE  1 
GO  TO  13502 

13501  T Y= I Y2 
PE=PE2 

13502  WRITE(  MWRITE  ,634)  NO.TY.PE 

13503  CONTINUE 

IF(N3  EQ  0 ) GO  TO  1 36 

WRITE(  MWRITE  ,635)N8 

WRITE (MWR I TE  ,636) (NBC (I ) , 1 = 1 ,NB) 

136  CONTINUE 

I r ( NaS  T . EO  0 ) GO  TO  150 
WR I TE ( MWRITE .650) 

WRITE( MWRITE  ,651 ) 

DO  140  1 = 1 , N XST 

140  WR I TE  ( MWRITE  .655)1 , LNXS( I ) ,MATXS(I) , (XSPRQP(U , I ) , J = 1 ,7) 

150  IF(N15T.EQ  0 )G0  TO  170 
WR I T £ ( MWRI T E ,660) 

WRITE( MWRITE  ,661 ) 

DO  160  1 = 1 , N V S T 

160  WRI TE( MWRITE ,655)1 , LNYS ( I ) ,MATYS(I) . ( YSPROP ( J , I ) ,d=1 ,7) 

170  CONTINUE 
500  FORMAT (2014) 

510  FORMAT (5016  7) 

600  FORMAT (' 0'  , 1 AUTO-GENERATED  FINITE-ELEMENT  MESH  INFORMATION  FOR 
2FFENED  OR  UNSTIFFENED  FLAT-PLATE  PROBLEM') 


605  FORMAT!/// 

25X,  1 X- LENGTH ( IN)  =',015.7/ 

35X,  ' Y- LENGTH ( IN)  =',015.7/ 

45X, 'Z-POSITI ON ( IN ) =',015  7/ 

55X, 'THICKNESS(IN)  =',015.7/ 

65X , ' Y OUNCS  MODULUS ( PSI ) =',015.7/ 

75X, 'POISSONS  RATIO  =',D15.7/ 

85X , 'DENSITY!  L3-SEC * *2/ 1 N + *4 ) =' ,015.7/ 

95X , ' NO . OF  ELEM.  IN  X-DIRECTION  =',115/ 
A5X , ' NO . OF  ELEM.  IN  Y-DI RECTION  =',115/ 
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MSPA0269 

MSPA0270 

#»C  D A A A-¥  4 

MSPAC272 

MSPA0273 

MSPA0274 

MSPA0275 

MSPA0276 

MSPA0277 

MSPA0278 

MSPA0279 

MSPA02B0 

MSPA0281 

MSPA0282 

MSPA0283 

MSPA0284 

MSPA0285 

MSPA0286 

MSPA0287 

MSPA0288) 

MSPA0289, 

MSPA0290 

MSPA0291 

MSPA0292 

MSPA0293 

MSPA0294 

MSPA0295 

MSPA0296 

MSPA0297 

MSPA0298 

MSPA0299 

MSPA0300 

MSPA0301 

MSPA0302 

MSPA0303 

MSPA0304 

MSPA0305 

MSPA0306 

MSPA0307 

MSPA0308 

MSPA0309 

MSPA0310 

MSPA0312 
MSPA0313 
MSPA0314 
MSPA0315 
STI MSPA03 1 6 
MSPA0317 
MSPA031 8 
MSPA031 9 
MSPA0320 
MSPA0321 
MSPA0322 
MSPA0323 
MSPA0324 
MSPA0325 
MSPA0326 
MSPA0327 


o o o o o o 
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B5X , ‘NO  OF 

0 

C5X , ‘TOTAL 

NO 

D5X , ‘TOTAL 

NO 

E5X , ‘ NO . OF 

X 

FSX,‘NO.  OF 

Y 

C25 

FORMAT ( ‘ ‘ 

i 

2RE  AS  FOLLOW 

626 

FORMAT  ( ‘ ‘ 

.5 

627 

FORMAT (‘  ‘ 

.5 

700 

FORMAT  ( ‘0‘ 

i 

2DE  NUMBER 

AN 

/01 

FORMAT ( ‘0* 

i 

900 

FORMAT  ( ‘ ‘ 

! i 

901 

FORMAT  ( ‘ * 

. i 

902 

FORMAT ( ' 

, i 

903 

FORMAT  ( ‘ ‘ 

. i 

904 

FORMAT (‘  ‘ 

, i 

905 

FORMAT (‘  ‘ 

, i 

650 

FORMAT ( ‘0‘ 

i 

651 

FORMAT  (*0‘ 

i 

2 , 1 OX , * WIDTH1 

3 1 El A-LOC. 1 

.6 

655 

FORMAT (‘  1 

,1 

660 

FORMAT (‘0‘ 

1 

I 

661 

FORMAT ( ‘0‘ 

1 

, I 6 , 1 OX , ' PINNED-FIXED* ) 


MSPA0328 

MSPA0323 

MrocnT'A 

MSPA0331 
MSPA0332 
AMSPA0333 
MSPA0334 
MSPA0335 
MSPA0336 
IMSPA0337 
MSPA0338 
MSPA0339 
MSPA0340 
MSPA034 1 
MSPA0342 
MSPA0343 
MSPA0344 
MSPA0345 
MSPA0346 


MSPA0349 

ri;>km03ou 

MSPA0351 


WIDTH1  ,4X, 'YOUNGS  MOD . 1 , 2X , 1 PO I SSON  R AT 10 1 , 8X , 1 D ENSI T Y 1 , 7X , MSPA0353 


3 1 PSI-LOC . 1 , 6 X , 1 OFFSET , ZF 1 ) MSPA0354 

634  FORMAT (3X,  1 ( SYSTEM  ENERGIES  ARE  1 / 1 ,11,*  THEIR  ACTUAL  VALUES  BECAUMSPA0355 
+SE  OF  THE1 ,2A4, ‘SYMMETRY  CONDITION)1)  MSPA0356 

535  FGRMAT ( 1 0‘ , 1 THE  FOLLOWI NG 1 , 16 , 2X , 1 DEGREES  OF  FREEDOM  Are  CONSTRAINMSPA0357 

2ED1)  MSPA0358 

536  FORMAT (‘  \20I5)  MSPA0359 

RETURN  MSPA0360 

END  MSPA0361 

SUBROUTINE  M E5HFM( NP , NOD E , XG , Y G , ZG , NBC , BC , LNXS , LNYS , XG I , YGI , MSPMOOOO 

2XSPR0P ,YSPROP,NXST,NYST, IMESH, MATXS.MATYS)  MSPM0001 

IMPLICIT  R£AL*8(A-H,0-Z)  MSPM0002 

MSPM0003 

ASRL  TR  154-14.  . . ORIGINAL  REPORT  VERSION  OF  PROGRAM  MSPM0004 

CODYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980  MSPM0005 

MSPM0006 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS . MSPMO 007 

hiSritiCO  CS 

DIMENSION  NP (4, 1 ) ,NODE( 1 ) , XG( 1 ) , YG( 1 ) . ZG( 1 ) . NBC ( 1 ) . BC ( 1 ) . LNXS( 1),  MSPM0009 
2 LNYS ( 1 ) ,XGI(  1 ) ,YGI ( 1 ) ,XSPR0P(7 . 1 ) ,YSPR0P(7 . 1 ) ,MATXS(1 ) ,MATYS(1)  MSPM0010 
COMMON /BAS/N  DT . NET , MN , NB . N I RRE  G . MNC  MSPMO0 1 1 

COMMON /PLATE /XDI ST, YDIST , TH . HX L , HYL , NEAD , N ECD . DENSP . EP AN . ANUP , MSPM0012 


2ED  1 ) 

FORMAT ( 1 1 

RETURN 

END 

SUBROUTINE 
2XSPR0P , YSP 
IMPLICIT  R 


TINE  M E5HFM( NP , NOD E , XG ,YG, ZG , NBC , BC , LNXS , LNYS , XG I , YGI , 
.YSPROP.NXST.NYST, IMESH, MATXS.MATYS) 

IT  R£AL»8(A-H,0-Z) 


ASRL  TR 
C0DYRIGH1 

THIS  SUBROl 


154-14.  . . ORIGINAL  REPORT  VERSION  OF  PROGRAM 

T (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 


DIMENS 
2 LNYS  ( 1 
COMMON 
COMMON 
2THALF 
COMMON 
manual  m 

ULAR  PLA 
INCLUDED 

RE AD ( M 
READ(f* 
NDT  *NN 
NDPE=2 
NDPN=G 
THALF= 


MSPM001 1 
MSPMO 01 2 
MSPMOO 1 3 
MSPM0014 


/INOUT/  MREAD.MWRITE.MPUNCH  MSPM0014 

ESH  GENERATION  FOR  FLAT-PLATE  STRUCTURES  HAVING  NON-RECT ANG-MSPMOO 1 5 

NFORM,  VOIDS,  OR  REQUIRING  SPECIAL  CONSIDERATIONS  NOT  MSPMOO 16 

IN  AUTO-  GENERATION  ROUTINE.  MSPM0017 

MSPMOO 18 

READ, 500)NNT, NET  MSPM0019 

READ. 51C)EPAN. ANUP, DENSP .TH.ZPOS  MSPM0020 

T¥6  MSPM0021 

4 MSPMOO 2 2 

MSPM0023 

TH/2.0  MSPM0024 
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C READ  IN  NODAL  CONNECTIVITY  INFORMATION. 

DO  10  I=1,NET 

10  READ( M RE AD, 5 00) (NF (J, I) , d=1 ,4) 

DO  20  1=1 .NET 
I NC I = ( I-1)*NDPE 
DO  20  d = 1 ,4 
INCd=( d-1 )*NDPN 
DO  20  K=1,NDPN 
INCIJK=INCI+INCJtK 

20  NODE ( I NC I JK ) =NP(J, I ) *NDP N-NDPN +K 

C READ  IN  NODAL  X AND  Y COORDINATES. 

READ (MREAD.510)  ( XG ( I ) , I = 1 , NNT ) 

READ(MREAD,510)  ( TG(I ) , 1 = 1 .NNT) 

DO  30  1 = 1 ,NNT 
XGI ( I ) =XG( I ) 

YG1(I) = YG( I ) 

30  ZG( I ) = ZPOS 

C READ  IN  CONSTRAINED  DEGREES  OF  FREEDOM  IN  ASCENDING  ORDER.  NO 
C DUPLICATES 

R£AD(MREAD,500)NB 

I F ( NB  EO  0 )GO  TO  45 

READ( M READ ,500)  ( N BC ( I ) , U 1 , NB  ) 

DO  40  1=1 ,NE 
hO  BC ( l ) = 0 0 

45  CONTINUE 

C READ  IN  INFORMATION  FOR  STIFFENERS. 

READ (M READ, 5 00) NXST. NYST 
C PROPERTIES  POR  X-DIRECTION  STIFFENERS. 

I F ( NXS  T EQ.OJCO  TO  60 
READ(MPEAD,500) (LNXS( I ) . 1=1 ,NXST) 

READ (M READ, 500) (MAT\S( I ) ,1=1 .NXST) 

DO  50  1=1,7 

50  READ(MREAD,510)( XSPROP ( I ,d),d=1  .NXST) 

60  CONTINUE 

C PROPERTIES  FOR  Y-DIRECTION  STIFFENERS. 

IF(NYST.EQ  0 I GO  TO  80 
READ(MREAD,5  00)(LNYS(I) , 1 = 1 , NY  ST ) 

READ  ("1  READ, 500)  (MAT  YS  ( I ) ,1  = 1 .NYST) 

DO  70  1=1,7 

70  READ ( M READ, 5 10) (YS PROP (I ,J),d=1 ,NYST ) 

80  CONTINUE 
C PRINT  INFORMATION. 

WR I T£  ( MWR I T E 600) 

WRITE( MWRITE . 605) E PAN , ANUP , DEN SP , TH , ZPOS , NOPE .NET ,NDT , NXST , NYST 
WPlTE(MhRITE .625) 

WRITE( MWRITE ,620) 

DO  130  1=1 .NET 

130  WR I TE( MWRITE  ,627)1  , (NP( d , I ) ,d= 1 ,4) 

I F ( NB  EQ  0 ) GO  TO  1 36 

WR I TE ( MWR I TE ,635)NB 

WR I TE( MWRITE ,636) ( NBC(I ) , 1=1 ,NB) 

136  CONTINUE 

I F ( NX S T . EO  0 )C0  TO  150 
WR I TE( MWRITE  ,650) 
w«ITE( MWRITE  ,631  ) 

DO  140  1 = 1 , N AST 

140  W R I T E ( MWRITE ,655) I , LNXS( I ) , MAT XS( I ) , ( XSPROP ( d , I ) ,d=1 ,7) 

150  I F ( NYS  T EQ.OJGO  TO  170 
WR I TE( MWRITE ,660) 
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MSPM0025 

MSPM0026 

MSPM0028 
MSPM0029 
MSPM0030 
MSPM003 1 
MSPM0032 
MSPM0033 
M5PM0034 
MSPM0035 
MSPM0036 
MSPM0037 
MSPM0038 
MSPM0039 
MSPM0040 
MSPM004 1 
MSPM0042 
MSPM0043 
MSPM0044 
MSPM0045 
MSPM0046 
f1rP.V0C  "7 
MSPM0048 
MSPM0049 
MSPM0050 
MSPM005 1 
MSPM0052 
MSPM0053 
MSPM0054 
MSPM0055 
MSPM0056 
MSPM0057 
MSPM0058 
MSPM0059 
MSPM0060 
MSPM0061 
MSPM0062 
MSPM0063 
MSPM0064 
MSPM0065 
MSPM0066 

MC0Mn0fi7 

MSPM0068 

MSPM0069 

MSPM0070 

MSPM0071 

MSPM0072 

MSPM0073 

MSPM0074 

MSPM0075 

MSPM0076 

MSPM0077 

MSPM0078 

MSPM0079 

MSRM0080 

MSPK0081 

MSPM0082 

MSPM0083 


non  oooooo 
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*60 

170 

500 

510 

600 

605 


WPITE( MWRI TE ,o61 ) 

DO  160  1 = 1 , N YST 

WRITE( MWRITE  ,655) I , LNYS( X ) .MAT YS{ I ) , ( YSPR3P ( J ■ I ) , J = 1 ,7) 

CONTINUE 

FORMAT  (2014) 

FORMAT (5D16  7) 

FORMAT ( ‘0‘ , ‘ USER-GENERATED  FINITE-ELEMENT  MESH  INFORMATION 
2FFENED  OR  UN ST I FFENED  FLAT-PLATE  PROBLEM1) 

FORMAT (/// 


MSPM0084 

MSPMC085 


65X, 'YOUNGS  MODULUS ( PS  I ) 

75X, ‘POISSONS  RATIO 

85X, 1 DENSI TY ( LB-SEC**2/IN**4) 

55X, ‘THICKNESS( IN) 


45X , 'Z- 

POSI 

T I 

E5X , 'NO 

OF 

D 

CbX, 'TO 

TAL 

NO 

D5X, 'TO 

TAL 

NO 

E5X , ' N 3 

. OF 

X 

F5X, 'NO 

. OF 

Y 

625 

FORMAT 

('  ' 

, ' 

2RE  AS 

FOLLOW 

626 

FORMAT 

('  1 

, 5 

627 

FQPMAT 

('  * 

5 

650 

FORMAT 

CO- 

« 

651 

FORMAT 

CO' 

2 , 1 OX , ' 

WIDTH1 

3'ETA-L 

OC.  ' 

.6 

655 

FORMAT 

C ' 

, I 

660 

FORMAT 

CO' 

i 

661 

FORMAT 

('O' 

i 

2 , 1 OX,  ' 

WIDTH' 

U> 

3'PSI-L 

OC.  ' 

,6 

635 

FORMAT 

('O' 

1 

2ED ' ) 

(.36 

FukivimT 

C ' 

,2 

0 F 
, OF 
. OF 
-DIR 


/ELtM. 

ELEMENTS 

DOF. 

. STIFFENERS 


=‘ ,015.7/ 

«' ,015.7/ 

= ' ,015.7/ 

=' ,015.7/ 

=' .D15.7/ 

=‘,115/ 

=• , 115/ 

=‘ ,115/ 

= * ,115/ 

=' . 115) 

NUMBERS  ASSOCIATED  WITH 


-DIR.  STIFFENERS 
THE  GLOBAL  NODE 
S . ' ) 

X,  1 ELEMENT ' , 5X, ‘GLOBAL  NODE  NUMBERS 


MSPM0087 
MSPM00B8 
MSPM0089 
FOR  ST I MSPM0090 
MSPM009 1 
MSPM0092 
MSPM0093 
MSPM0094 
MSPM0095 
MSPM0096 
MSPM0097 
MSPM0098 
MSPM0099 
MSPM01 00 
MSPM0101 
MSPM0102 
EACH  ELEMENT  AMSPMO 1 03 
MSPM0104 

) MSPM0105 

X,IS,5V,4I6)  McoMmnc 

INFORMATION  FOR  X-DIRECTION  STIFFENERS')  MSPM0107 

STIFF  NO  1 , 2X , ‘ ON  ELEM . ‘ , 1 X , ■ MAT . NO. ’ ,3X , 'THICKNESS*  MSPM01 08 
,4X, 'YOUNGS  MOD. 2X, 'POISSON  R AT 10 ‘ . 8X , ' 0 ENSI T Y ‘ . 7X , MSPM0109 
X, 'OFFSET, 2F ‘ ) MSPM0110 

7 ,5X, I6,3X,7D15.5)  MSPM0111 

INFORMATION  FOR  Y—  DIRECT  ION  STIFFENERS')  MSPM0112 

STIFF  NO . 1 , 2X , ' ON  ELEM .', 1 X ,' MAT . NO. ' ,3X  , 'THICKNESS' MSPM0 1 1 3 
,4X,' YOUNGS  MOD. '. 2X, 'POISSON  RAT  10 ' , 8X , ‘ 0 ENS I T Y ' . 7X , MSPM0114 

X, ‘OFFSET, ZF 1 ) MSPM0115 

THE  FOLLOWING' , 16, 2X, 'DEGREES  OF  FREEDOM  ARE  CONSTRAINMSPMO 1 1 6 

MSPM01 1 7 

uia)  MSPM0118 

MSPM01 19 
MSPM0120 
OMLTOOOO 
OMLTOOO 1 
OMLT0002 
OMLT0003 
OMLT0004 
uitu.  re  o os 
OMLT0006 
OMLT0007 
0MLT0008 
OMLT0009 
0MLT001 0 
OMLTOOI 1 
OMLTOO 1 2 
OMLTOOI 3 
OMLTOOI 4 
OMLTOOI 5 
OMLTOOI 6 
OMLTOOI 7 
OMLTOOI 8 
OMLTOOI 9 
OMLT0020 
QMLT0021 


RETURN 

END 

SUBROUTINE  OMULT ( SQVCT , R WVCT , ACC , NCOL , KROW , NDEX ) 

IMPLICIT  R£AL*8(A-H,0-Z) 

ASRL  TR  154-14  ..  ..  ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 

DIMENSION  SQVCT(1 ) , RWVC T ( 1 ) , N COL ( 1 ) , ACC ( 1 ) , KROW ( 1 ) , ND EX( 1 ) 

COMMON /BAS/N  ROWS , NET ,MN , NB , NI R REG , MNC 
COMMON  /INOUT/  MR E AD, MW R I TE ,MP UNCH 

TO  FIND  ACC  OF  ( SQVCT )*( RWVCT )= (ACC ) 

I NDEX  = 0 
NROWM  = NROWS  — 1 
IF  (NIRREG  .GT  0) 

HIGH  SPEED  PRODUCT 
DO  100  NN=  1 , NROWM 
SUM=  0 .0 
I PI =NN+1 
KST=NCOL(NN ) 


GO  TO  200 
FOR  REGULAR 


MATRICES 


144 


INDEX  = INDEX  +NN-KST 
DO  101  KPL=  KST , NN 
I J = I N DEM  l'°L 

101  SUM=SUM+SQVCT(  Id)  *RWVCT  (KPL) 

C NOW  FOR  THE  COLUMN  ELEMENTS 

JNDEX  = I J 

DO  102  KPL=  I P 1 . NROWS 
I F ( NN  LT.NCOL(KPL) ) GO  TO  100 
uNDEX= JNDEX +KPL-NCOL( KPL) 

102  SUM  = S UM+SQ V CT  (JNDEX)*RWVCT(KPL) 

100  ACC(NN)=ACC (NN)+SUM 

C NOW  FOR  THE  LAST  ROW 

104  KADD=  NCOL ( N ROWS ) 

SUM  = 0 0 

INDEX  = jNUcX +NROWS-K ADD 
DO  103  KPL=KADD, NROWS 
I J=  I N DEX+KP  L 

103  SUM=  3 UM+SQV CT ( I J ) tRWVCT (KPL) 

ACC ( N ROWS ) = ACC ( NROWS ) + SUM 

RETURN 

C MEDIUM  SPEED  PRODUCT  FOR  NIRREG  .LE.  NROWS/2 

200  IF  (NIRREG  .GT.  NROWS/2)  GO  TO  201 
DO  105  NN  = 1 ,NROwM 

1 PI  = N N+ 1 
KST  = N CC  L ( NN ) 

INDEX  = I NDEX  +NN-KST 
SUM=  0 0 

DO  106  KPL=  KST , NN 
I J = I N DEX+KP L 

106  SUM=S UM+SOV CT( Id) *RWVCT (KPL) 

NCK  = 0 

JNDEX  = I J 

107  DO  108  KPL=  IP1 .NROWS 

I F ( NN  .LT.  NCOL ( KPL ) ) GO  TO  109 
JNDEX  = uNDE/v+KPL-NCOL(KPL) 

108  SUM=S UM+SQV CT( JNDEX )*RWVCT( KPL) 

GO  TO  105 

109  NCK  = N CK+1 

IF  (NCK  .GT. NIRREG)  GO  TO  105 
IF  (KPL  GE  KROW(NCK) ) GO  TO  109 
IP1 =KPOW(NCK) 

JNDEX=NDEX( NCK)+NN 
GO  TO  107 

105  ACC ( N N ) =ACC ( NN ) +SUM 
GO  10  104 

201  DO  50  3 NN= 1 , NROWM 
IP1 -NN+1 

K = NCO  L ( NN ) 

INDEX  = INDEX  +NN-K 
SUM= 0 0 

DO  502  KRX=  K , NN 
I J=  I N DEX+KR  X 

502  SUM- S UM+SOV  CT ( I J ) *RWVCT ( KRX ) 

JNDEX  = I J 

DO  E04  KRX= IP1 , NROWS 
K = NCO  L ( KPX ) 

JNDEX = JNDEX +KRX-K 

IF  (.IN  LT.  K)  CO  TO  504 

SUM=S  UM+SQ V CT(JNDEX)*RWVCT(KRX) 
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0MLT0023 

nm  T A AO 

QMLT0025 
OMLT0026 
OMLT0027 
OMLT0028 
0MLT0029 
OMLT0030 
OMLT0031 
OMLT0032 
OMLT0033 
OMLT0034 
0MLT0035 
OMLT0036 
0MLT0037 
DMLT0038 
OMLT0039 
OMLT0040 
OMLT004 1 
OMLT0042 
OMLT0043 

UlVI  L IUU41 

OMLT0045 
0MLT0046 
OMLT0047 
OMLT0048 
OMLT0049 
OMLT0050 
OMLT0051 
OMLT0052 
OMLT0053 
0MLT0054 
OMLT0055 
OMLT0056 
OMLT0057 
OMLT0058 
OMLT0059 
OMLT0060 
OMLT0061 
OMLT0062 
OMLT0063 
C Ous 
OMLT0065 
0MLT0066 
OMLT0067 
OMLT0068 
OMLT0069 
OMLT0070 
OMLT007 1 
OMLT0072 
OMLTC073 
OMLT0074 
OMLT0075 
OMLT0076 
OMLT0077 
OMLT0078 
OMLT0079 
OMLT0080 
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504  CONTINUE 
503  ACC(NN)=ACC  (NN ) + SUM 

GO  TO  104 
END 

SUBROUTINE  P RTOP ( NNSA , N V SA , NCON , NP ) 
IMPLICIT  REAL*8(A-H,0-Z) 


0MLT0081 

QMLT0082 
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OMLT0084 
PRTOOOOO 
PRT00001 
PRT00002 
PRT00003 
PRT00004 
PRT00005 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS . PRT00006 

PRT00007 

DIMENSION  NVSA(1 ) ,NCON(4 , 1 ) ,NP (4, 1 ) PRT00008 

COMMON /BAS/N  DT . HE  T ,MN , NB . N I RRE  G ,MNC  PRT00009 

COMMON/ASP/SLASP(50) ,ELASP(50)  ,EDIR(2.50) . NASP . LNASP ( 5 0 ) PRT00010 

COMMON /PRNT/  ICP1 , 1 0P2 . 1 0 P3 , IOP 4 . I0P5 , 1 0P6 , I0P7, I0P8  PRT0001  1 

COMMON /GSOUT/NEGS, LNGS(230)  PRT00012 

COMMON /SSOUT /hXSS , NYSS , INXSS(200) ,INYSS(200)  PRT00013 

COMMON  /INOUT/  MRE AD , MWR 1 T E , MP UNCH  PRT00014 

PRINT  CONTROL  FOR  PROGRAM  (0=N0,  1=YES)  PRT00015 

I OP 1 NODAL  DISPLACEMENTS  AND  LOCATION  PRT00016 

I0P2  ELEMENT  CENTROID  STRAINS,  PRINCIPAL  STRAIN  AND  DIRECTION.  PRT00017 

I0P3  STRAINS,  PRINCIPAL  STRAIN  AND  DIRECTION  AT  G.S.  Cc  SPEC . PRTC001C 

ELEMENTS.  PRT00019 

I0P4  STRAINS,  PRINC  STRAIN  AND  DIR.,  AND  ELONGATION  IN  SPECIFIED  PRT00020 

DIRECTIONS  AT  ADDITIONAL  LOCATIONS  PRT00021 

I0P5  REACTION  FORCES  AT  C ONSTRA I NEO  NODES.  PRT00022 

I0P6  STRAIN  AT  GAUSSIAN  STATIONS  FOR  SPECIFIED  X-  AND/OR  Y-  PRT00023 

DIRECTION  STIFFENERS.  PRT00024 

SYSTEM  ENERGIES.  PRT00025 


10 


I0P7 

I0P8 


STRAIN  COMPONENTS,  PRINCIPAL  STRAIN  AND  DIRECTION  AT  SPEC IFIEDPRTOO 026 


NODES  (USING  NODAL  AVERAGING). 


RE AD (MRE AD, 500) IOP 1 , I0P2 , I0P3, I0P4, I0P5, I0P6, I0P7 , I0P8 
IF  I0P3  = 1 , READ  IN  ELEMENTS  SPECIFIED  FOR  G.S.  STRAIN  OUTPUT. 
I F( IOP  3 EQ.O )G0  TO  10 
READ(MREAD, SOOJNEGS 
R£A0("/1READ,500)(LNGS(I)  , 1 = 1 ,NEGS) 

CONTINUE 

IF  1 0P4  = 1 , READ  IN  INFO  FOR  ADDITIONAL  POINTS. 

I F ( IOP 4 EQ  0 ) GO  TO  50 
RE AD( MRE AD, 5 00) NASP 
00  20  1=1 .NASP 


PRT00027 

PRT00028 

PRT00029 

PRT00030 

PRT00031 

PRT00032 

PRT00033 

PRT00034 

PRT00035 

PRT00036 

PRT00037 

poTnnrtNo 


20  R£AQ(MREAD,520)LNASP(I)  , SLASP(  I)  ,ELASP(I ) 

DO  30  1=1 .NASP 
£DIR( 1 ,11=0  ODD 
30  EOIR(  2 , I ) =90 . COO 

REA0(MREAD.500)NASPE 
IF(NASPE  EQ. 0 ) GO  TO  50 
00  40  1=1 ,NASFt 
READ(MREAD,520>NSP,DIR1 ,DIR2 
ED I R ( 1 ,NSP)=DIR1 
40  EDIR(2 ,NSP)=DIR2 
50  CONTINUE 

C IF  IGF6  = 1 , Rcmu  IN  STIFFENER  NuMSERS  FOR  STRAIN  OUTPUT. 
I F( I0P6  EQ  0 ) GO  TO  51 
READ(MREAD,500)NXSS ,NYSS 

IFfNXSS  GT.O  ) READ (MRE AD, 500) ( INXSS( J) ,d  = 1 ,HXSS) 

IF (NYSS  GT.O )READ(MREAD,  500) (I NYSS ( J) , J=1 , NYSS) 


PRT00039 
PRT00040 
PRT0004 1 
PRT00042 
PRT00043 
PRT00044 
PRT00045 
PRT00046 
PRT00047 
PRT0004S 
PRT00049 
PRTCC050 
PRT00051 
FRT00052 
PRT00053 
PRT00054 
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51 

CONTINUE 

PRT00055 

C 

IF  I0P8  = 1 , READ  IN  NODE  NOS.  FOR  NODAL 

AVERAGE  STRAIN  CALCULATION. 

PRT00056 

1 F ( IOP 8 EQ.C  )C0  TO  58 

Price  2r<* 

READ(M READ, 500) NNb A 

PRT00058 

C 

IF  NNSA  = NNT , THEN  ALL  NODES  ARE  INCLUDED  AUTOMATICALLY 

PRT00059 

NNT  = ND  T/6 

PRT00060 

I F ( NNS A EO-NNTJCO  TO  53 

PRT00061 

READ(MREAD,5  0^) (NVSA(I) . 1 = 1, NN  SA ) 

PRT00062 

GO  TO  55 

PRT00063 

53 

CONTINUE 

PRT00064 

DO  54  1 = 1 , NNT 

PRT00065 

54 

NVSA( I ) = I 

PRT00066 

55 

CONTINUE 

PRT00067 

C 

OEFINE  ELEMS.  CONNECTED  AT  EACH  REQUESTED  NODE. 

PRT00068 

DO  57  1=1 ,NNSA 

PRT00069 

NN  = NVS  A ( I ) 

PRT00070 

DO  57  d=1 ,4 

PRT0007 1 

NCON ( J , I ) = 0 

PRT0007  2 

DO  56  K= 1 , NE  T 

PRT00073 

IF(NP(d,K)  NE.NNJGO  TO  56 

PRT00074 

NCON ( J , I ) = K 

PRT00075 

GO  TO  57 

PRT00076 

56 

CONTINUE 

pornno77 

57 

CONTINUE 

PRT00078 

58 

CONTINUE 

PRT00079 

WRITE( MWRITE ,600) 

PRT00080 

WRITE(f,1»  RITE ,610) 

PRT00081 

I F ( IOP 1 EQ  1 )WRITE(MWRITE,620) 

PRT00082 

I F ( IOP  5 EQ  1 )WRITl(MWRITE,625) 

PRT00083 

1 F ( IOP  5 EQ.2  ) UR  1 TE ( Mfc'RI T £ , 630 ) 

PRT00084 

t— ' 

I F ( IOP 8 EQ.O ) GO  TO  59 

PRT00085 

>t= 

c r> 

W R I T E ( MnRI TE ,635)NN5A 

PRT00086 

WR I TE ( MUR I TE ,650) (NVSA( I ) , 1=1 , NNSA) 

PRT00087 

59 

CONTINUE 

PRT00088 

IF^IGPS.EQ  0 jGu  TO  60 

PRT00089 

WR I TE ( MWR I TE , 640 ) N EGS 

PRT00090 

WRITE( MWRITE ,650)( LNGS( I ) , 1=1 , NEGS) 

PRT00091 

60 

CONTINUE 

PRT00092 

I F ( IOP  4 EQ  0 ) GO  TO  80 

PRT00093 

WR 1 1 E ( MWR I T E , 660 ) N ASP 

PRT00094 

WRITE(  MWRITE  ,670) 

PRT00095 

DO  70  1 = 1 ,NASP 

PRT00096 

70 

WR  1 TE  ( f«iic  RI  TE  , 680  ) I , LNASP  ( I ) , Sl  ASP ( I ) , 

r ELASP ( I ) , EOln  ( 1 , I ) • t 1 } 

r ,\  , w„  „ j i 

80 

CONTINUE 

PRT00098 

IF(I0P6.EQ  0 ) GO  TO  84 

PRT00099 

I F (NXS  S EQ  0 )G0  TO  82 

PRTOOIOO 

WRITE (MWRITE ,700)NXSS 

PRT001 01 

WRITE  (MWRITE ,650)(  INXSS(  J),J  = 1 .NXSS) 

PRT00102 

82 

CONTINUE 

PRT00103 

IF(NYSS.EQ  0 ) GO  TO  84 

PRT00104 

WRITE( MWRITE  ,710)NYSS 

- 

PRT001 05 

WRITE(  MWRITE ,650) ( INYSS(J) ,J  = 1 .NYSS) 

PRT001 06 

84 

CONTINUE 

PRT001 07 

I F ( IOP  7 . EQ  1 )WRITE(MWRITE,690) 

PRT001 08 

5C0 

FCMKmT (2014) 

PRT00109 

520 

FORMAT (14,2016. 7) 

PRTOOI 10 

GOO 

FORMAT ( 'O' ,' *****  OUTPUT  CONTROL  INFORMATION  *♦***') 

PRT001 1 1 

610 

FORMAT ('O',' THE  FOLLOWING  RESULTS  WILL  BE  GIVEN  AT  EVERY  REGULAR 

PPRT001 12 

2RINT0UT  CYCLE. 1 ) 

PRTOOI 13 

f 


i 


} 


i 


oonooo  n noononon 


\ 


I 


] 


] 


G20 

625 

630 

635 

640 


650 

660 


FORMAT  l ‘ 
FORMAT  ( ' 
F0R"AT  ( 1 


, 5 X , 
, 5 X , 

c V 


'NODAL  DISPLACEMENTS  AND  LOCATION')  PRTQ0114 

'REACTION  FORCES  AT  CONSTRAINED  NODES')  PRT00115 

'ErrMIN  CCMnO*',Efc'  TS  pnl-rro^  crpn  Hi  AMO  aiapatiah  ponrnAHfi 

2T  CENTROID  OF  EACH  ELEMENT')  ' PRTOOI 17 

FORMAT ( ' ‘,5X, 'STRAIN  COMFONENTS,  PRINCIPAL  STRAIN  AND  DIRECTION  APRT00118 

2T  THE  FOLLOWING' , 15, 2X, 'NODES  (OBTAINED  BY  NODAL  AVERAGING):')  PRTO0119 
FORMAT ( ' ',5X, ‘STRAIN  COMPONENTS,  PRINCIPAL  STRAIN  AND  DIRECTION  APRT00120 
2T  EACH  GAUSSIAN  STATION  FOR  EACH  OF  THE  FOLLOWING’ , 15 , 2X ,' E LEMENTS PRTOO 1 21 
3 ')  PRTOO 122 

FORMAT(‘  ‘ , 1 OX ,2015)  PRTO0 1 23 

FORMAT ( ' ',5X, 'STRAIN  COMPONENTS.  ELONGATION  IN  SPECIFIED  DI RECT 10 PRTO0 1 24 
2NS,  PRINCIPAL  STRAIN  AND  DIRECTION  AT  THE  FOLLOW ING ' , I 5 . 2X , ' ADDT L . PRTO0 1 25 


670 

680 

690 

700 

710 


3 POINTS  ') 

FORMAT ( ‘ ' , 5 X , ' ADOT  L PO I NT ' , 2 X , ‘ ON  ELEM. ' . 4X , ' PS I-LOC AT  ION ' , 4X . 

2 El A-LOCAI ION* ,2X,  'ELUNG.  Dl R . - 1 ( DEG ) ‘ , 2X , ' ELONG  . DIR . -2(DEG) ' ) 
FORMAT ('  '.5X.I9,5X,I6,2X,2D16.7,4X,D16.7,4X,D16.7) 

FORMAT (‘  ', 5 /,' SYSTEM  ENERGIES') 

FORMAT ('  '.5X. ‘STRAIN  AT  GAUSSIAN  STATIONS  FOR  THE  FOL LOWING 15 , 
22X,  'X-DIRECT ION  STIFFENERS.') 

FORMAT ('  ',5X, 'STRAIN  AT  GAUSSIAN  STATIONS  FOR  THE  FOL LOWING '. 15 , 

22X, ' Y-DIRECT ION  STIFFENERS.') 

RETURN 

END 

SUBROUTINE  PSTRN(G11 , G22 , G1 2 , S , 0) 

IMPLICIT  REAL*8(A-H,0-Z) 
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PRTOO 1 26 
PRT00127 
PRTOO 1 28 
PRT001 29 
PRTOOI 30 
PRTOO 131 
PRTOO 1 32 
PRTOO 1 33 
PRTOOI 34 
PRTOOI 35 
Pk i uu i oo 
PSTNOOOO 
PSTN0001 
PSTN0002 
PSTN0003 
PSTN0004 
PSTN0005 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS.  PSTN0006 

PSTN0007 

CALCULATE  MAX  PRINCIPAL  STRAIN  (TENSILE  ONLY)  AND  CORRESPONDING 
DIRECTION  WITH  RESPECT  TO  X-AXIS  (IN  DEGREES). 

C = OSQR  T ( ( G 1 1 -C22)**2+G12*G12) 

A 1 = (G1  1 +G22  + C J »0  5 
A 2 = (G 1 1 +G22-C ) *0 . 5 
S = 0.0 


I F ( A 1 .GT  S ) S =A1 
I F ( A2 . GT.S)S=A2 
I F ( G1 1 .NE  G2  2 ) GO  TO  10 

0 = 45  0 
RETURN 

'0  CONTINUE 

XI =G1 1 -G22 
D=DATAN2(G12  ,X1  ) 

DIVISION  OF  D BY  2 
D=0*28 .647890+00 

1 F ( S EQ  0.0) D-0.0 
RETURN 

END 

SUBROUTINE  RCON(F.NBC) 

IMPLICIT  REAL*8(A-H,0-Z) 
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AND  CONVERSION  TO  DEGREES 


PSTN0008 
PSTN0009 
PSTNO0 1 0 
PSTN001  1 
PSTN001 2 
PSTN001 3 
PSTN001 4 
PSTNOO 1 5 
PSTNOO 1 6 
PSTN001 7 
PSTNOOl 8 
r ST uGu  ■ 9 
PSTN0020 
PSTN002 1 
PSTN0022 
PSrN0023 
PSTN0024 
PSTN0025 
PSTNOO 26 
RCONOOOO 
RCONOOOI 
RCON0002 
RCON0003 
RCON0004 


RCON0005 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS . RCON0006 

RCONC007 

DIMENSION  F(  l).NBC(l)  RCON0008 


PAGE  0020 


n o o o o o 
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COMMON/BAS/NDT , NET , MN , NB D , NI RR EG ,MNC 


THIS  SUBROUTINE  APPLIES  BOUNDARY  CC*:STRA  INTS  T0  THE  CC°CE  >'^cTOn 
TERMS  IN  THE  FORCE  VECTOR  CORRESPONDING  TO  CONSTRAINED  DEGREES  OF 
FREEDOM  ARE  ZEROED  (IT  IS  ASSUMED  THAT  ALL  PRESCRIBED  DISPLACEMENTS 
ARE  ZERO). 

ZEROING  OF  RHS  ASSUMING  FIXED  CONDITIONS 
I F ( NBD  EQ  0) RETURN 
DO  100  1=1 .NBD 
NN  = NBC ( I ) 

100  F ( NN ) = 0 0 
RETURN 
END 

SUBROUTINE  R P L ATE ( NT YPE , ANU , XL  . Y L . TH , S L , CS A . SLAM , SMOI ,KT ,GBI , YMOD) 
IMPLICIT  REA L»8( A-H.O-Z) 

DOUBLE  PRECISION  KT 

ASRL  TR  154-14.  . ..ORIGINAL  REPORT  VERSION  OF  PROGRAM 
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RCON0009 

RC0N0010 

Df'mtnn  . i 

RCON0012 
RCONOO 1 3 
RCONOO 1 4 
RCONOOI 5 
RCONOO 1 6 
RCONOO 1 7 
RCONOOI 8 
RCONOOI 9 
RCON0020 
RCON0021 
RCONC022 
RPLTOOOO 
RPLT0001 
RPLT0002 
RPLT0003 
RPLT0004 
RPLT0005 
RPLT0006 
RPLT0007 

RPLTonno 


DIMENSION  GBI (24,24) .KTLXS(IO) ,KTLYS( 10) ,CB1 (4.4) ,D1 (4, 13) ,GS(6), 
2GW ( 6 ) . ST0R1  (4,13), ST0R2(  24,24)  , KT ( 24 , 24 ) . T ( 24 ) 

C 

C THE  STIFFNESS  MATRIX  FOR  AN  UNSTIFFENED  RECTANGULAR  PLATE  ELEMENT 
C (NTYPE=1),  OR  AN  X-DIRECTION  STIFFENER  ELEMENT  (NTYPE=2),  OR  A 
C Y-DIRECTION  STIFFENER  ELEMENT  (NTY  PE  = 3)  ARE  FORMED  IN  THIS 
C SUBROUTINE  THE  PERTINENT  THEORETICAL  BASIS  FOR  THE  PLATE  ELEMENT 
fcC  IS  FOUND  IN  SUBSECTION  A 1 3 3.  THE  THEORETICAL  BASIS  FOR  STIFFENER 
03  C ELEMENTS  IS  FOUND  IN  SUBSECTION  A.  2.3. 

C 

DATA  KTLXS/2 ,4,13,15,17, 18,20,22,23,24/ 

DATA  KTLYS/7 ,8, 14. 16, 17, 19,21 , 23,22,24/ 

DO  5 1=1,24 
DO  5 J=1 ,24 
5 KT ( I , J ) =0 . 0 

C FORMATION  OF  K -TILDA  FOR  PLATE 
Ir(NTYPE  NE  1 )G0  TO  160 
C INPLANE  CONTRIBUTIONS  TO  K-TILDA 
C FORM  C-BAR 

DO  10  1=1,4 
DO  10  J = 1 .4 
10  CS1 ( I , J ) =0  0 

CB1 ( 1 , 1 ) =1 ,0/(XL*XL) 

CB1  ( 1 , 2)=ANU/(XL*,YL) 

C31 (2,  1 ) =CB 1 (1,2) 

CBl ( 2 , 2 ) = 1 0/(YL*YL) 

CB1 (3 , 3)  = ( 1 O-ANU )/(2.0»YL*YL) 

CBl (3, 4 ) =CB 1 ( 3 , 3) * Y L/XL 
CBl (4, 3 ) =C31 (3,4) 

CBl (4, 4)=(1  O-ANU)/ (2.0+XL*XL) 

DO  20  1=1,4 

rxn  oa  ,1—4  4 

ivu  U - i , « 

20  CBl (I , J)=CB1  (I ,d)*TH/(1  O-ANU4  ANU ) 

NGS  = 2 

DO  30  1=1,4 
DO  30  J=1 ,8 


RPLT0009 
RPLTOO 1 0 
RPLT001 1 
RPLT0012 
RPLTOO 1 3 
RPLTOO 1 4 
RPLTOO 1 5 
RPLT0016 
RPLT001 7 
RPLTOO 1 8 
RPLTOO  1 9 
RPLT0020 
RPLT0021 
RPLT0022 
RPLT0023 
RPLT0024 
RPLT0025 
RPLT0026 
RPLT0027 
RPLT0028 
RPLT0029 
RPLT0030 
RPLT0031 
RPLT0032 
RPLT0033 
RPLT0034 
RPLT0035 
RPLT0036 
RPLT0037 
RPLT0038 
RPLT0039 
RPLT0040 
RPLT0041 
RPLT0042 
RPLT0043 
RPLT0044 
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30  D1(I,d)=0.0 

CALL  GAUSS(NCS,GS,GW) 

DO  35  1 1 = 1 .MGS 
GS(II) = ( 1 .0+GS(II ) )/2.0 
35  GW (II) = GW (II )/2.0 
C LOOP  OVER  GAUSS  STATIONS 
DO  70  NY= 1 , NGS 
DO  70  NX  = 1 , NGS 
01(1,27=1.0 
01(1,4) = GS (NY) 

01(2,7  ) = 1 0 
D1 (2,8 )=GS(NX) 

D1  (3,3  ) = 1 0 
D1 (3.4 ) =GS (NX) 

D1  (4 , 6 ) - 1 . 0 
D1 (4.8 )=GS(NY) 

DO  40  1=1,4 
DO  40  0=1,8 
ST0R1 ( I , J ) =0 . 0 
DO  40  K=1  ,4 

40  STORl  ( I ,d)  = STQR1 ( I , J ) +CB 1 ( I , K ) *D1 (K , J ) 

DO  50  1=1,8 
DO  50  J=1  ,8 
STOR2 ( I , J ) =0  0 
DO  50  K=1 ,4 

50  STOR2 ( I . d)  = S T0R2( I , J)+D1  (K , I ) * STORl ( K , J ) 

DO  60  1=1,8 
DO  60  0=1,8 

bO  KT(I ,0 )=KT( I . 0 ) +STOR2 (1,0) *GW ( NX ) *GW (NY ) 

70  CONTINUE 

BENDING  CONTRIBUTIONS  TO  K-TILDA 
DO  00  1=1,3 
DO  80  0=1,3 
BO  CB1 ( I , 0 ) =0  0 

CB1  ( 1 , 1 ) = 1 C / X L * * 4 

CB1  ( 1 , 2)=ANU/<XL+XL*YL*YL) 

CB1 (2,1  ) =CB 1 (1.2) 

CB1(2,2)=1  0/YL**4 

CB1 ( 3 , 3 ) = ( 1 . O-ANU )/(2.0*XL*XL*YL*YL) 

DO  90  1=1,3 
DO  90  0=1,3 

90  CB1 ( I , d)=CB1  ( 1,0)*  TH**3/ ( 12.0* (1  . O-ANU* ANU ) ) 

NGS-4 

DO  100  1=1,3 
DO  10O  0 = 1 . 1 3 
100  D1 (I , 0 ) = 0 0 

CALL  GAUSS(NGS.GS.GW) 

00  105  11=1, NGS 
GS ( 1 1 ) = ( 1 . 0-GS ( I I ) )/2.0 
105  GW ( 1 1 ) = GW (II  ) / 2 . 0 
C LOOP  OVER  GAUSS  STATIONS 
DO  140  NY= 1 , NG5 
DO  140  NX=1 , NGS 
D1 (1 ,2 )=2  0 
01(1,4) =2  0*  GS ( N Y ) 

D1(1, 6)=2  0*G5(NY)  *GS (NY  ) 

01(1 , 7 ) =6  0 * GS (NX) 

01(1,9) =01 ( 1 , 7 ) +GS ( NY ) 

01(1,11) =01 ( 1 ,9)»GS(NY) 
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01(1,12) =D1(1 , 6) *GS( NY) 

D1  (1  , 1 3)=D1 ( 1 , 11 ) * GS ( NY ) 

D1 (2,3  ) = 2 0 
01 (2,5 )=2.0»G5(NX) 

D1 (2,6 ) =D1 (2 , 5 ) *GS ( NX ) 

01(2,8 ) =6 . 0*  GS (NY ) 

01(2,1 0 ) =01 ( 2,8)*GS(NX) 

D1 (2, 1 1 ) =01 ( 2.6)*CS(NX) 

D1 (2. 1 2)=D1 ( 2. 10) *GS(NX) 

01 (2. 1 3)=D1 ( 2, 12)*GS(NX) 

01 (3. 1 )=2  0 

D1 (3, 4 )=4  0*  CS ( NX ) 

01(3,5 ) =4  0*  GS (MY ) 

01(3, 6)  = 8 0= CS(NX) *GS(NY  ) 

Li  1 i J , 9 j=6.0*bovl'iX)  »GS (NX  ) 

01(3, 10) =6  0 *GS ( NY ) *GS ( N Y ) 

D1 (3, 1 1 ) =01 ( 3,9)t2.0*GS( MY) 

01 (3, 1 2)=D1 ( 3, 10)-2  0+GS ( NX ) 

01(3,13) =01 ( 3 9)*D1 (3,10 )/2.0 
00  110  1=1,3 
DO  110  J=1 ,1  3 
ST0R1 ( I , J >=0  0 
DO  110  K= 1 , 3 

110  ST0R1 ( I , J ) =S  TOR 1(1 ,d)+CB1 ( I , K ) *01 ( K , J ) 

DO  120  1=1,13 
DO  120  0 = 1 , 1 3 
ST0R2 ( I , J ) = 0 0 
DO  120  K=1 , 3 

120  ST0R2 ( I , J ) =S  T0R2 ( I ,0)+D1  ( K , X ) » ST0R1 (K,U) 

DO  130  1=1,13 
DO  130  J=1 , 1 3 

130  KT( 1 + 1 1 , J+11  )=KT(I  + 1 1 ,J+1 1 ) + ST0R2(I , J ) *GW ( NX ) *GW (NY ) 
140  CONTINUE 

DO  150  1=1,24 
DO  150  J=1 .24 
150  KT(I,J)  = KT(I  ,J)*XL*YL 
C THIS  COMPLETES  FORMATION  OF  K-TI LOA  FOR  PLATE 
GO  TO  270 
160  CONTINUE 

C FORM  BASIC  BLOCK  (10  BY  10)  FOR  K-TILDA  OF  STIFFENERS 
DO  170  1=1,10 
DO  170  J = 1 , 1 0 
*70  ST0R2 ( I , J ) =0  0 
ST0R2 ( 1 , 1 ) = 1 0 
ST0R2 ( 1 , 2)  = S L 
ST0R2 ( 1 . 3 ) =2  0 
ST0R2 ( 1 ,4)=2  0*SL 
ST0R2 ( 1 ,5)=2  n*SL»SL 
ST0R2  ( 1 ,G)=3  0 
STCR2 ( 1 ,7)=3  0*SL 
ST0R2 ( 1 ,8)-3  G*SL*  SL 
ST0R2 ( 1 , 9 ) =3 T0R2 ( 1 ,5)*SL 
ST0R2 ( 1 , 10)  = 3 0 *S L * *3 
DO  180  0=1 , 1 0 
STQR2(2,J)=STCR2(1 ,0)*SL 
ST0R2  ( 3, J)  = STGR2( 1 ,0)*2. 0 
STOR2 (4,J)=STCR2(3,d)*SL 
180  ST0R2( 5,J)=STCR2(4.d)*SL 
ST0R2 ( 6 , 6 ) = 1 2 0 
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ST0R2 ( 6 , 7 ) = 1 2 0*SL 
ST0R2 ( 6 , 8 ) = 1 2 0*SL*SL 
ST0R2  ( 6 , 9) =S  0 * S L * * 3 
ST0R2 ( 6 , 1 0 ) = 2 0 + ST0R2 ( 6 , 9) 

DO  190  J = 7 , 1 0 

STOR2 ( 7,d)=STOR2(6,d)*SL 

STOR2 ( 8,d)=STOR2(7,d)*SL 

190  ST0R2( 9,d)=ST0R2(5,d)*SL 

STOR2 ( 10,10)=STOR2(8,10)*SL 
DO  200  1=1,10 
DO  200  d=I , 1 0 

200  ST0R2( d , I )=ST0R2( I ,J) 

I F ( NT Y PE  EQ. 2)DL=XL 
IF(NTYPE.EQ  3)DL=YL 
Cl =CSA/DL 
C2  = C1 * SuAM/D  L 
C3=SM0I/(DL*»3) 

DO  210  1=1,2 
DO  210  d=1 ,2 

210  ST0R2(  I ,d)=STCR2( I ,d)*C1 
DO  220  1=1,2 
DO  220  J=3 , 1 0 
ST0P2 ( I , d)=STOP?( I , d)*C2 

-20  ST0R2( d, I )=ST0R2( I ,d) 

DO  230  1=3, 1 0 
DO  230  d=3 , 1 0 

230  ST0R2( I ,d)=ST0R2( I ,d)*C3 
C EXPAND  TO  K-TILDA  FOR  X-DIRECTION  STIFFENERS 
I F (NTY  PE  EQ.  3 J GO  TO  250 
DO  240  1=1,10 
-■  DO  240  d-1,10 

2 N I =KT  L XS ( 1 ) 

Nd=KTLXS(d) 

240  KT(NI,Nd)=ST  0R2( I , d) 

GO  TO  270 

C THIS  COMPLETES  FORMATION  OF  K-TILDA  FOR  X-DIR.  STIFFENER. 

250  CONTINUE 

C EXPAND  TO  K-TILDA  FOR  Y-DI RECTION  STIFFENERS 
DO  260  1=1,10 
DO  260  d=1 , 1 0 
NI = KT L T S L I ) 

Nd  = KT  L YS ( d ) 

260  KT1NI  . Nd)  = ST0R2(I .d) 

C THIS  COMPLETES  FORMATION  OF  K-TILDA  FOR  Y-DIR.  STIFFENER 

270  CONTINUE 

C FORM  K-BAR  FOR  ELEMENT 
DO  200  1=1,24 
00  200  d=1 ,24 
ST0R2 ( I ,d)=0 .0 
00  280  K = 1 ,24 

280  ST0R2 ( I,d)=STCR2(I,d)+KT(I,K)*GBI(K,d) 

DO  290  1=1,24 
DO  290  d=1 .24 
KT ( I , d ) =0  0 
DO  200  '<=1 ,24 

290  KT( I ,d )=KT( I ,d)+GBI (K, I) -ST0R2 (K,d) 

C FORM  SCALING  VECTOR  FOR  NODAL  DOF 
T ( 1 ) = 1 .0 
T ( 2 ) = 1 0 
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T { 3 ) = 1 0 
T ( 4 ) = X L 
T(5)=YL 
T(6)=XL»YL 
DO  300  1=1,6 
T ( 1+6 ) =T ( I ) 

T ( 1 + 1 2 ) =T ( I ) 

300  T ( 1 + 1 8 ) =T( I ) 

C SCALE  STIFFNESS  MATRIX 
DO  310  1=1,24 
DO  310  J=1 .24 

310  KT ( I , J ) =KT ( I , J ) * T ( I ) *T ( d ) + YMOD 
RETURN 
END 

SUBROUTINE  S OLV ( ST  I FM , G , SOL , NCOL , KROW , NDEX ) 

IMPLICIT  REA L*8(A-H,0-Z) 

ASRL  TR  154-13 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS. 

DIMENSION  ST  IFM(  1 1 ,G(  1 ) , KROWM  1 N0FX(11  SOUI),NCOU1) 

COMMON /BAS/N ROWS, N ET ,MN , NBD.NIRREG, MNC 

THIS  SUBROUTINE  PERFORMS  THE  FORWARD  AND  BACKWARD  SUBSTITUTION 
OPERATIONS  REQUIRED  TO  COMPLETE  THE  SOLUTION  OF  A SYSTEM  OF  LINEAR 
SIMULTANEOUS  EQUATIONS  BY  THE  TRIPLE-FACTORING  METHOD.  THIS 
SUBROUTINE  MUST  BE  USED  IN  CONJUNCTION  WITH  SUBROUTINE  FACT. 


SOLVE  ( LL*) ( SOL)=( FORCE)  FOR  DISPLACEMENTS  (SOL) 
INTERMEDIATE  SOLUTION  USING  THE  LOWER  TRIANGLE 

100  INDEX=  0 
S0L(1 ) =G(1 ) 

00  * 04  1 = 2 , N ROWS 
IM1 =1-1 
SUM=0  0 
K=NCOL  ( I ) 

1NDEX= INDEX+  I-K 

IF  ( IM1-K)  1 03, 101  , 101 

101  DO  102  J = K , I M 1 
I J= I ND  EX+J 
SU=SOL ( J ) 

102  SUM=SUM+ST I F f.1(  I J ) » SU 

103  11  = IND  EX+I 

104  SOL(I) =G(I)-SUM 

SOL  CONTAINS  THE  INTERMEDIATE  SOLUTION 
COMPLETE  THE  SOLUTION  USING  THE  UPPER  TRIANGLE 
SOL ( NROWS)=SOL(NROWS)/STIFM(II ) 

INDEX=  INDEX- NROWS  + NCOL ( N ROWS ) 

I F (NI R REG  GT  0)  GO  TO  111 

DO  109  KK=2 , NROWS 

I =NROW  S + 1 — KK 

IP1=I+1 

SLM-0  0 

JNDEX= INDEX+  I 

DO  107  d=IP1 , NROWS 

K = NCQ  L ( d ) 

IF  ( I - K ) 108,106,106 


I 


o o o n o 


106  JNDEX=  JNDEX+  d-K 
SU=S0L (U) 

107  SUf.1=S'JMr$T I F *1  ( JNDEK ) *SU 

108  IJ=INDEXtI 
SOL(I)  = SOL ( I ) /ST  I FM( II)  — SUM 

109  INDEX= INDEX- I +NCOL ( I ) 

RETURN 

111  IF(NIRREG-NR0WS/2)  116,116,112 

C TOO  MANY  IRREGULAR  ROWS  FOR  ACCELERATED  SOLUTION 

112  DO  115  KK  = 2 , NRQWS 
I=NR0WS+1-KK 
IP1=I+1 
JNDEX= INDEX+I 
SUM=0. 0 
UNDEX= INDEX+ I 
DO  114  d=IP1 , NROWS 
K=NCOL(J) 

JNDEX= JNDEX+ J-K 
IF  ( I-K)  114,113,113 

113  SU  = SQL ( J ) 

SUM=  SU  M+ S T I F M ( JNDEX ) * SU 

114  CONTINUE 
11  = IND  EX+1 

SOL(I) =SOL( I )/STIFM( II)-SUH 

115  INDEX= INDEX- I+NCOL( I) 

PETURN 

C ACCELERATED  SOLUTION  FOR  CASE  WITH  IRREGULAR  ROWS 

116  DO  125  KK=2, NROWS 
I = NROW  S+ 1 -KK 
IP1  = I+1 

cn  SUM=0  0 

NCK  = 0 

JNDEX= INDEX+I 

117  DO  119  J=IP1  .NROWS 
K=NCOL ( J ) 

IF  (I-K)  120  , 1 18, 1 13 

118  JNDEX=  UNDEX+  J-K 
SU  = SOL ( J ) 

119  SUf/USU  W + ST I FM(JNDEX)*SU 
CO  TO  124 

120  NCK=NCK+1 

IF(NIRREG-NCK)  124,121,121 

121  I P 1 =KR Ow ( NCK  ) 

IF  ( I-NCOL(I PI ) ) 120,122,122 

122  IF  (IPI-d)  120,123.123 

123  JNDEX=NDEX(NCK)+I 
GO  TO  117 

124  II=INDEX+I 
SOL(  I ) =SOL(  I )/STIFt1(II)  — SUM 

125  INDEX=  INDEX- I+NCOL( I ) 

RETURN 
END 

SUBROUTINE  SPRING! Ea.SS,  I SIDE, XL, YL) 

IMPLICIT  REAL»8(A-H,0-Z) 

ASRL  TR  154-14  . . ..ORIGINAL  REPORT  VERSION  OF  PROGRAM 

copyright  (c)  Massachusetts  institute  of  technology  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 
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DIMENSION  EK (24,24) ,SS(5 
DATA  LIST/1 , 2, 3, 4, 5. 6, 7, 
017,18, 19,20, 21 ,22,23,24, 
C22.23, 24/ 

SUBROUTINE  TO  CALCULATE  TH 
EK ( 24 , 24  ) , CORRESPONDING  T 
RESTORING  SPRINGS  APPLIED 


) ,SK(1  2,12) ,LIST( 12,4) ,T(24) 
8,9,10,11,12,7,0,0.10,1'.  ,12, *2, 14. 1C,'. C. 
13, 14, 15, 16, 17, 18, 1,2, 3, 4. 5, 6, 19, 20, 21. 

E EFFECTIVE  ELEMENT  STIFFNESS  MATRIX, 

0 LIME  TRANSLATIONAL  AND  TORSIONAL  LINEAR 
ALONG  THE  SIDE  (ISIDE)  OF  THE  RECTANGULAR 


SPNG0007 

SPNGC008 

r r>k  i/'n  n n r\ 

SPNGCO 1 0 
SPNG001 1 
SPNG0012 
SPNG0013 
SPNGOO 1 4 


c 

PLATE  ELEMENT,  RPLATE . 

SPNG001 5 

c 

THE  SPRING  CONSTANTS,  SS(I). 1=1,5  CORRESPOND.  RESPECTIVELY, 

TO 

SPNGOO 1 6 

c 

TRANSLATIONAL  SPRINGS  (LB/IN)  IN  THE  U,  V,  AND  W 

DISPLACEMENT 

SPNGOO 17 

c 

DIRECTIONS  AND  ROTATIONAL  SPRINGS  (IN-LB/IN)  IN 

THE  W,X  AND 

W.Y 

SPNGOO 1 8 

c 

ROTATION  DIRECTIONS 

SPNG0019 

c 

SIDE  NOTATION  , 

SPNG0020 

c 

I S 1 DE= 1 ALONG  SIDE  Y=0. 

SPNG002 1 

c 

I S I DC=2  ALONG  SIDE  X=XL. 

SPNG0022 

c 

ISI DE  = 3 ALCNG  SIDE  Y=YL. 

SPNG0023 

c 

I S I DE=4  ALONG  SIDE  X=0. 

SPNG0024 

c 

SPNG0025 

c 

SPNG0026 

DO  10  1=1,12 

SPNG0027 

DO  10  J=1 , 12 

SPNGC028 

'0 

SK ( I , J ) =0 . 0 

cpMnnQo? 

DO  20  I=i,24 

SPNG0030 

DO  20  J=1 ,24 

SPNGOO 31 

20 

EK  ( I , J ) = 0 . 0 

SPNG0032 

c 

ASSIGN  TERMS  WHICH  ARE  COMMON  TO  ALL  SIDES. 

SPNG0033 

SK( 1 , 1 )=SS( 1 ) /3  0 

SPNG0034 

SK( 2,2 )=SS(2  )/3  0 

SPNG0035 

1 1 

SK ( 7 , 1 )-SS( 1 )/6  0 

SPNG0036 

t—* 

cn 

SK(7,7  )=SS( 1 ) / 3 0 

SPNG0037 

4= 

SK ( 8 , 2 ) = SS ( 2 )/6.0 

SPNG0038 

SK ( 8 , 8 ) = SS(2  )/3.0 

SPNG0039 

c 

ASSIGN  TERMS  FOR  SIDES  1 OR  3. 

SPNG0040 

I F( I S I DE . EQ  2 OR  ISIDE  EO  4)G0  TO  30 

SPNG0041 

SL  = XL 

SPNG0042 

SK  ( 3 , 3 ) = 1 3 0*SS(3)/35.0+6.0*SS (4)/(5  0+XL»XL) 

SPNG0043 

SK ( 4 , 3 ) = 1 1 0*SS(3)/210.0+SS(4)/(10.0*XL*XL) 

SPNG0044 

SK(4,4  )=SS(3  )/105  0+2 . 0* SS ( 4 ) / ( 1S.0*XL*XL) 

SPNG0045 

SK(5 , 5 ) - 1 3 0*SS(5)/(35.0+YL»YL ) 

SPNG0046 

SK(6,5)  = 11  0 » SS ( 5 ) /(210. 0*  YL* Y L) 

SPNG0047 

SK(6,6  ) = S5(5 )/( 105.0*YL*YL) 

SPNC0048 

SK(9,3  )=SSI3  1/70  0-6 . 0*SS(4)/f  5 0*XL*XL1 

SPNG004Q 

SK(9,4  ) = 13  0 *SS(3)/420.0-SS(4) / ( 1 0 . 0*XL*XL ) 

SPNG0050 

SK(9,9)  = SK(3 .3) 

SPNG0051 

SK( 10 , 3)=-SK (9.4) 

SPNG0052 

SK( 10 , 4)=-SS (3J/140  0-SS(4)/(30.0*XL*XL) 

SPNG0053 

SK(10 , 9)=— SK (4,3) 

SPNG0054 

SK ( 1 0 , 1 0 ) =SK ( 4 , 4 ) 

SPNG0055 

SK(  1 1 , 5)=SS( 5)/ (70  O + YL+YL) 

SPNG0056 

SK(11  , 6 ) = 1 3 0*SS( 5 )/ (420  0* YL*  YL) 

SPNG0057 

SK(  11,11 ) = SK (5,5) 

SPNG0058 

SK ( 1 2 , 5 ) =-SK (11,6) 

SPNG0059 

SK( 12, 6 ) =-SK ( 1 1 ,5)/2.0 

SPNG0060 

Sr.  (12,  1 i ) --S  i>  ( 6 , 5 ) 

SPNG0061 

SK  ( 1 2 , 12)  =SK  (6,6) 

SPNG0062 

GO  TO  40 

SPNG0063 

c 

ASSIGN  TERMS  FOR  SIDE  2 OR  4. 

SPNG0064 

30 

SL  = YL 

SPNG0065 

I 


I 


SK(3,3  ) = 1 3 0 *SS(3)/35.0+6.0*SS(5)/(5.0*YL»YL) 

SK(4,4)=13  0*SS(4)/(35  OiXL*XL) 

SK ( 5 , 3 ) = 1 1 .C  *SS(3)/210  0 SS(E)/(10  O+YL+YL ) 

SK ( 5 , 5 ) =SS ( 3 )/ t05  0+2 . 0+ SS ( 5 ) / ( 1 5 . 0 * Y L* YL ) 

SK (6,4  ) = 1 1 0 * SS ( 4 ) / (210. C+XL+XL) 

SK(6,6)=SS(4  )/(105.0*XL*XL) 

SK(9, 3 ) = SS(3  1/70  0-6  0 + S S ( 5 ) / ( 5 . 0« Y L»  Y L ) 

SK(9,5)=13  0 +SS ( 3 ) /420  0 -SS ( 5 ) / ( 1 0 . 0 * Y L* YL ) 

SK ( 9 , 9 ) =SK ( 3 ,3) 

SK ( 1 0 , 4)=SS(4)/(70.0*XL*XL) 

SK( 1 0 , 6 ) =1 3 0*  SS( 4 ) / ( 420  0+XL+XL) 

SK ( 1 0 , 10)=SK(4.4) 

SK ( 1 1 , 3)=-SK (9,5) 

SK( 1 1 , 5)=-SS (3)/140.0-SS(5)/(30.0*YL*YL) 

SK'1 1 , 9)=— SK  (5, 3) 

SK (11,11 )=SK (5,5) 

S K ( 1 2 , 4 ) =-SK (10,6) 

SK(  1? , 6 ) = -SS (4)/( 140.0*XL*XL) 

SK (12,  1 0 ) =-S  K( 6 ,4 ) 

SK( 12, 12)=SK (6,6) 

40  CONTINUE 

C FORM  UPPER  TRIANGLE  AND  MULTIPLY  BY  SIDE  LENGTH, 
no  50  1=1,12 
DO  50  J-1  , 1 
SK ( I , J ) = SK ( I , J) *SL 
50  SK ( J , I ) =SK( I ,0) 

C ASSEMBLE  INTO  APPROPRIATE  LOCATIONS  IN  24  BY  24  STIFFNESS  MATRIX. 
DO  EO  1=1,12 
IR=LIST( I , IS  IDE) 

£ DO  60  J=1 ,12 

cn  IC=LI5T(J,ISIDE) 

60  EK(IR, IC)=SK(I,J) 

C FORM  TRANSFORMATION  VECTOR. 

DO  70  1=1,24 
70  T 1 1 j - i . 0 

DO  80  1=4,22,6 
T ( I ) = X L 
T( 1+1 ) =YL 
80  T ( 1+2) =XL*YL 
C SCALE  STIFFNESS  MATRIX. 

DO  90  1=1,24 
CO  90  J=1 ,24 

90  Er\(I,J)  + EK(I  ,J)’T(I)*T(J) 

RETURN 

END 
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SUBROUTINE  S FDf.1(  S L , E L , X L , Y L , GB  I , STD ) 

IMPLICIT  REA  L*8 ( A-H , O-Z ) 

C 

C ASRL  TR  1 54-1 4 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

C COPYRIGHT  (C;  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 
C 

C THIS  SUBROUTINE  IS  USEO  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 
C SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 
DIMENSION  D( 9,24 ) , STD(9, 24) ,GB I (24, 24 ) 

C SUBROUTINE  TO  CALCULATE  MATRIX  WHICH  DETERMINES  STRAIN 

C COMPONENTS  FROM  NODAL  DISPL..  ORDER  IS  U.X  V.Y  U.Y+V.X  W.XX 

C W.YY  2 » W , X Y W.X  W,Y  0 . 5* (U , Y-V , X ) 

DO  10  1=1,9 
DO  10  J=1 ,24 
10  D( I , J) =0  0 

D ( 1 , 2 ) = 1 O/XL 
D ( 1 ,4) = E L/XL 
Dv2,7)=1  O/YL 
D( 2 , 8 ) =SL/YL 
0(3,3) = 1 O/YL 
D ( 3 , 4 ) =SL/YL 
D ( 3 , 6 ) = 1 O/XL 
D ( 3 , 8 ) = E L/XL 
0(4,13 ) =2  0 
0(4, 15  )=2  0*  EL 
D(4, 17 ) =D( 4 , 1 5) *EL 
0(4, 18 ) =6 . 0*  S L 
D ( 4 , 20  ) = D( 4 , 1 8) *EL 
D ( 4 , 22 ) =D( 4 , 20)*EL 
D ( 4 , 23  ) =D(4 , 1 7 ) *EL 
D( 4 , 24 ) =D( 4 , 22 ) * E L 
0(5, 14  )=2  0 
0(5,16  ) =2  0*  SL 
D( 5, 1 7 ) =D( 5 , 1 6 ) *S  L 
0(5, 19  )=6  0-t-  EL 
D( 5 , 2 1 ) = D ( 5 , 1 9 ) *SL 
D ( 5 , 22 ) = D( 5 , 1 7 ) *SL 
D(5,23 ) = D(S, 21  ) * S L 
D( 5 , 24 ) =D( 5 , 23 ) *SL 
D( 6 , 1 2 ) =2  0 
D( 6 , 15 )=4  0*  SL 
D(6, 16 )=4  0*  EL 
0(6,17  ) =8  0*  SL*£L 
D ( 6 , 20  ) =6  0*  SL*SL 
D ( 6 , 2 1 ) =6  0+  EL*EL 
0(6,22 ) = 1 2 0*SL*SL*EL 
D( 6 , 23  ) = 1 2 0 »SL*EL»EL 
D(6,24  ) = 18  0 *3L*SL*EL»EL 
D ( 7 , 1 0 ) = 1 0 
D ( 7 , 12 )=EL 
D( 7 , 1 3 ) =2  0+  SL 
D(7.15)  = 0(7.  1 3 ) +EL 
D(7,16)=EL*EL 
0(7,17 ) =0 ( 7 , 1 5 ) +EL 
D ( 7 , 1 C ) =3  O'-  SL  -SL 
D( 7 , 20 ) =D( 7 , 1 8 ) * E L 
0(7,21 )=D(7, 16)+EL 
0(7,22 )=D(7 , 20 ) * EL 
0(7,23 )=D(7, 1 7) *EL 
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D ( 7 , 24 ) =D ( 7 , 22). EL 
0(8,11  ) = 1 0 
0(8,12 ) =SL 
0(8,14 ) =2  0+  EL 
D(8,15)  = SL<-Sl 
0(8,16 ) =D( 8 , 14)*SL 
0(8,17 ) =0 ( 8 , 16). SL 
0(8, 19  )=3.0*EL.EL 
0(8,20  )=D(8,  15). SL 
0(8,21  ) -0( 3 , 13) *SL 
0(8,22  )=D(3,  16)  + SL»SL 
0(8,23 )=D(8, 21 ) .SL 
0(8,24 )=D(8, 23)»SL 
0(9,3) =1 .0/( 2 0*Y  L ) 

0(9,4) =SL/(2 .0*YL) 

0(9,6) =- 1 0/(2. 0. XL) 

D( 9 , 8 ) =-EL/( 2 0*XL) 

00  20  d= 1 0 , 2 4 
D(  7 , d ) =0(7, J )/XL 
0(8, d) =0(8, d )/YL 
D( 6 , J ) =0(6, J )/(XL*YL) 

D( 4 , J ) =0(4, J )/ ( XL»XL) 

20  D(S,d) =D(5,J  )/(YL*YL) 

DO  30  1=1,9 
DO  30  d=1 ,24 
STD( I , J)=0.0 
DO  30  K=1 ,24 

30  STO(  I , J ) =STD ( I , d)+D( I ,K) *GBI ( K ,d) 

DO  40  J = 4 , 22  ,o 
DO  40  1=1,9 
STO ( I , d)=STD(I ,d)*XL 
STD( I , d+1 )=STD( I , J+1 )*YL 
40  STD(I , d+2)=ST0(I,d+2)*XL.YL 
RETURN 
END 

SUBROUTINE  S TRESA ( DI SP , 0 E LD , F L VA , ITT , NODE , MAXEL , MAX2  , 

2TSGEE , P L ASTW , XGI , YGI ,NP , STDEA , GB I , NMSUB , OS R , PSR , SUBW , SNOM , NXST , 
3XSPR0P , LNXS, MATXS ,NZS) 

IMPLICIT  S£AL*8(A-H,0-Z) 

ASRL  TH  154-14.  . ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 

DIMENSION  DISP(1) ,DELD(1 ) . FLVA ( 1 ) , SN L ( 9 ) . EQNL ( 35 ) , EP( 9 ) , DEP( 9 ) , 
2ELFP(3G),N0DE(1 ).  TSGEE ( MAX2 , N ZS , 3 ) 

DIMENSION  XCI( 1 ) , YGI (1 ) ,NP(4, 1 ) .STDEA (9, 24 ) ,GBI (24,24) 

DIMENS  ION  NMSUBO ) ,DSR(  1 ) ,PSR(  1 ) .SUBW (5,1 ) , SNOM (5, 1 ) ,ZGAUS(6) , 
2ZGAUW ( 6) ,AGAUS(6) ,AGAUW( 6) , RF L ( 4 ) , RZET A ( 4 ) , RWEGH ( 20 ) , S NO ( 5 ) , 
3XSPR0P (7,1 ) , LNXS ( 1 ) ,MATXS( 1 ) 

COMMON /PLATE /XDIST, YDIST .TH.SL E , ELE , NEAD , NECD,  DENSP.EP AN, ANUP, 

2TWS,t  = 

COMMON /BAS/NOT .NET , MN.NB.NIRREG, MNC 

COMMON /T IM/D  ELTAT , TIMEF , TIME, I TIMEF , INCRT , I OUT , I TIME 
THIS  SUBROUTINE  CALCULATES  THE  EFFECTIVE  NODAL  FORCE  VECTOR  FOR  AN 
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C X-DI RECTION  STIFFENER  ELEMENT  CORRESPONDING  TO  NONLINEAR  GEOMETRIC 
C AND  MATERIAL  EFFECTS  THE  EXPRESSION  FOR  THIS  VECTOR  IS  GIVEN 
C BY  EQUATION  A. 97 
C 

NA  = 3 
NZ  = 4 

CALL  GAUSS ( N A , AGAUS , AGAU ri ) 

CALL  GAUSS(NZ.ZGAUS,ZGAUW) 

DO  50  NST  = 1 , NXST 
RH  = XSP  ROP ( 1 , NST ) 

RW  = XSP  RCP ( 2 , NST) 

YOUNG = XSPR0P(3,NST) 

HNU=XS  PROP( 4 ,NST) 

EL=XSPRGP(6, NST) 

XF  = XSP  ROP ( 7 , NST) 

LNUMR = LNXS(NST) 

LNUM=N  ST 
MAT =MA  TXS(NS  T ) 

D=DSR ( MAT ) 

P=PSR ( MAT ) 

NSUBL=NMSUB( MAT) 

DO  10  LZ=1 ,NZ 

RFL( LZ  ) = 0 5»RH*ZGAUW(LZ) 

10  RZETA( LZ)=0. 5*RH'ZGAUS(LZ)-XF 
DO  11  LZ=1  NZ 

DO  1 1 LS=1 .NSUBL 
JZ  = LZ  + ( LS-1 ) -NZ 

11  RUEGH( JZ)=RFL(LZ)+SUBW(MAT,LS) 

DO  12  LS=1, NSUBL 

12  SNO( LS  ) = SNOM ( MAT , LS ) 

£ CC5  = 0 0 

03  CC  6 = 0 0 

I F ( D EQ. 0 . 0 ) GO  TO  13 

CC5= 1 . 0/P 

CCS~1  0,'D  'DE  1 TAT 

13  CONTINUE 

NNN1 = N P ( 1 , LNUM) 

NNN2=N P ( 2 , LNUM) 

NNN4=NP(4, LNUM) 

SLE=(XGI (NNN2J-XGI (NNN1  ) )/2.0 
ELE=( YGI (NNN4J-YGI (NNN1  ) )/2.0 
XL  = 2 0 *SLE 
YL  = 2 0 *ELE 
CO  99  J=1 .24 
99  ELFP( J ) = 0 0 

PLAST2 -0 . 0 
DO  100  KS= 1 , 1 
SW  = RW 

DO  100  KE  = 1 , NA 
SL=(AGAUS(KE )+1 ,0)/2.0 
CALL  S FDM(SL , EL . X L , YL , GB I , STDE A) 

EW=SLE*AGAUW(KE) 

SWEW= SW+EW 
J A-KE  + ( KS— 1 ) *NA 
DO  60  J = 1 ,9 
EP(d) =0.0 
DEP( J ) = 0 0 
DO  60  K=l ,24 
NNN=( LNUMR-1 )*24+K 


STRA0024 

STRA0025 

STRAOOOR 

STRA0027 

STRA0028 

STRA0029 

STRA0030 

STRA0031 

STRA0032 

STRA0033 

STRA0034 

STRA0035 

STRA0036 

STRA0037 

STRA0038 

STRA0039 

STRA0040 

STRA0041 

STRA0042 

STRA0043 

STRA0044 

STRA0045 

STRA0046 

STRA0047 

STRA0048 

STRA0049 

STRA0050 

STRA0051 

STRA0052 

STRA0053 

STRA0054 

STRA0055 

STRA0056 

STRA0057 

STRA0058 

STRA0059 

STRA0060 

STRA0061 

STRA0062 

STRA0063 

STRA0064 

STRA0065 

QTDArtncc 

STRA0067 
STRA0068 
STRA0069 
STRA0070 
STRA007 1 
STRA0072 
STRA0073 
STRA0074 
STRA0075 
STRA0076 
STRA0077 
STRA0078 
STRA0079 
STRA0080 
STRA0081 
STRA0082 


] 


I NDEX=  NODE ( NNN ) 

EP ( J ) = EP ( J ) +STDEA ( d, K)*DISP( INDEX) 

DEQ(  J )=DC°(  d ) -i  S TDEA  ( J , K)  *DEE2{  INDEX  ) 

60  CONTINUE 

EPEEM  = EP ( 1 ) +EP(7) **2/2. 

DEPEEM-DEP(  1 ) +EP( 7 ) *DEP ( 7 ) -DE P ( 7 ) * * 2/2 . 

BPNEE  =0.0 
BPMEE -0 . 0 
PLAST1 =0  0 
DO  150  LZ  = 1 ,NZ 
EPEEZ  = EPEEM -RZET  A (LZ)*CP(4) 
DEPEEZ=DEPEEM~RZETA(LZ) *DEP(4 ) 

GPEE= YOUNG*  EPEEZ 
PTEE=  0 0 
P ACTQ  R= 1 . 

I F ( D EQ  0.0  ) GO  TO  152 
FACTOR =1 .+1CC6*DABS(DEPEEZ) )**CC5 
152  DO  155  LS  = 1 , NSUBL 
dZ  = LZ  + (LS-1  ) *NZ 
SNY=SNO( LS) .FACTOR 
TAEE=TSGEE( LNUM  ,JZ,dA) 

DSNEE  = YOUNG *DEPEEZ 
TMEE=  TAEE+D5NEE 
IF(TMEE-SNY)  20,45,21 

21  TAEE=  SNY 

PSS1  = ( TMEE-S  NY ) /YOUNG 

PLAST1 =PLAST 1 +PSS1 *TAEE*RWEGH(  dZ) 

GO  TO  156 

20  I F(  TMF.E  + SNY  ) 22,45,45 

22  T A£E= -SNY 

Cn  PSS1=( TMEE+SNY)/YOUNG 

10  PLAST1  = PLA5T  1+PSS1  *T AEE* RV/EGH ( dZ) 

GO  TO  156 
45  CONTINUE 

T AEE  = TMEE 
156  CONTINUE 

TSGEE  ( LNUM  ,dZ,dA)  = lAEE 
PL AEE =GPEE- TSGEE ( LNUM  ,dZ,dA) 
PTEE=PTEE+PLAEE*RV  EGH ( d Z ) 

155  CONTINUE 

BPNEE =BPNEE+PTEE 

BPMEE  = BPMEE -PTEE  + RZET A ( LZ) 

'50  CONTINUE 

DO  163  d=1 , 9 

163  SNL ( d ) =0  0 

SNL( 1 ) = YOUN  G*RH»  EP ( 7)**2/2.  — BPNEE 

SNL (4 )=YCUNG*RH*XF*EP(7 )**2/2 .-BPMEE 

SNL(7 ) = ( YOU  NO.RH* ( EPEEM+XF*EP ( 4 ) ) -BPNEE ) * EP(7 ) 

DO  164  d=1 , 9 

164  SNL ( d )=SNL( d)*  SWEW 
DO  165  d=1 , 24 
EQNL ( d)=0.0 

DO  165  K= 1 , 9 

165  EQNL ( d ) = EON  L(d)+STDEA(  K,J)»SNL(K) 

DO  1C6  J-’ , 24 

166  ELFP( d)=ELFP(d)+EQNL(d) 

FLAST2=PLAST2+PLAST1 *SWEW 

100  CONTINUE 

DO  20 1 d=1 . 24 
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NNN=( LNUMR-1 )»24+d 
M=NODE  ( NNN ) 

201  FLVA(  M)  = FLVA(r*)-ELFP(d) 

PLASTW=PLASTW+PLAST2 
50  CONTINUE 
RETURN 
END 

SUBROUTINE  S TRESC ( DI SP , D E LD , FL VA , I TT , NODE , MAXEL , MAX2 , 

2TSGEE , PLASTW ,XGI , YGI ,NP, STDEC.GBI . NMSUB , DSR , PSR , SUBW , S NOM , NYST . 
3YSPROP , LNYS , MATYS , NZS) 

IMPLICIT  REAL*8(A-H.O-Z) 

ASRL  TR  154-14.  . ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 

DIMENSION  DI SP(1 ) , DELD(1  ) ,FLVA ( 1 ) , SNL ( 9 ) , EQNL( 36 ) . EP ( 9 ) , DEP ( 9 ) , 
2ELFP( 3 6) i NOD  E ( 1 ) , TSGEE ( MAX2 , NZS , 3 ) 

DIMENS  ION  XGI ( 1 ) , YGI (1 ) , NP(4, 1 ) , STDEC ( 9 , 24 ) ,GBI(  24,24) 

DIMENSION  NM SUB ( 1 ) ,DSR( 1 ) ,PSR(  1 ) ,SUBW(5, 1 ) ,SNOM( 5 1 ) , ZG»US(6) . 
2ZGAUW( 6 ) , AGA  US ( 6 ) , AGAUW ( 6 ) , RF L ( 4 ) , RZET A ( 4 ) ,RWEGH(20) ,SN0(5) . 
3YSPR0P (7,1 ) , LNYS(1 ),MATYS(1) 

COMMON /PLATE /XDI ST , YDIST , TH , SL E , ELE , NEAD , N ECD , DENSP , EP AN , ANUP , 
2THALF 

COMMON/BAS/NDT ,NET , MN , NB , NI RRE G , MNC 

COMMON /T  1171/d  ELT  AT  , TI1.1EF,  TIME,  I TIMEF,  INCRT,  IOUT,  I TIME 

THIS  SUBROUTINE  CALCULATES  THE  EFFECTIVE  NODAL  FORCE  VECTOR  FOR  A 
OC  Y-DIRECTION  STIFFENER  ELEMENT  CORRESPONDING  TO  NONLINEAR  GEOMETRIC 
C AND  MATERIAL  EFFECTS.  THE  EXPRESSION  FOR  THIS  VECTOR  IS  GIVEN 
C BY  EQUATION  A. 98 . 

C 

N A = 3 
NZ  = 4 

CALL  GAUSS(NA,AGAUS, AGAUW) 

CALL  GAUSS(NZ.ZGAUS.ZGAUW) 

DO  50  NST=1,NYST 
RH  = YSPR0P(1  ,NST) 

RW  = YSP  RGP ( 2 , NST ) 
r'OUNC=  YSPROP  ( 3 NST) 

HNU= YS  PROP ( 4 , NST ) 

S L = YSP RCP ( ci , NST) 

XF=YSPROP( 7 , NST) 

LNUMR= LNYS(NST) 

LNUM  = ,J  ST 

MAT  =MA  TYS ( NST ) 

D=DSR( MAT) 

P = PSR ( MAT  ) 

NSUBL=NMSUB( MAT) 

DO  10  LZ= 1 ,NZ 
RFL(LZ)=0  5*  RH<  ZGAUW ( LZ ) 

10  R Z C T A ( LZ  } - 0 . 5 ' RH“ ZCAUS ( LZ ) -XF 
DO  1 1 LZ  = 1 , N Z 

DO  11  LS= 1 , N SUBL 
JZ  = LZ+ ( LS-1 ) *NZ 

11  RWEGH ( JZ)=RFL(LZ) * SUBW (MAT , LS) 
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DO  12  LS=  1 , N SUBL 

STRC0052 

12 

SNO( LS )=SNOM (MAT , LS) 
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IF(D  EQ  0 0 ) GO  TO  13 

STRC0056 
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13 

CONTINUE 

STRC0059 

NNN1 =N  P ( 1 .LNUM) 

STRC0060 

NNN2=NP(2, LNUM) 

STRC0061 

NNN4=N  P ( 4 , LNUM) 

STRC0062 

SLE=  ( XGI (NNN2J-XGI ( NNN1  ) )/2.0 

STRC0063 

ELE=(YGI(NNN4)-YGI(NNN1  ) )/2.0 

STRC0064 

XL  = 2 0»SLE 

STRC0065 

YL  = 2 0 *ELE 

STRC0066 

DO  99  J=1 ,24 

STRC0067 

99 

ELFP( J)=0  0 

STRC0068 

PLAST2 -0  0 
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DO  100  KS- 1 , 1 

STRCC070 

SW=RW 

STRC0071 

DO  100  KE- 1 ,NA 

STRC0072 

EL=(AGAUS(KE )+1  0)/2.0 

STRC0073 

CALL  SFDMISL  , E L . X L . Y L , GB I . STDE C ) 

STRC0074 

EW=ELE*AGAUW(KE) 

5TRC0075 

SWEW  = SW*  EW 

STRC0076 

JA  = KE  + (KS-1  ) *NA 

STRC0077 

DO  60  U=1 ,9 

STRC0078 

EP ( J ) =0.0 

STRC0079 

DEP ( J ) =0  0 

STRC0080 

1 1 

DO  60  k=1 ,24 

STRC0081 

G\ 

NNN= ( LNUMR-1  )»24  + K 

STRC0082 

M 

I NDEX=  NODE( NNN ) 

STRC0083 

EP( J) =EP(J) +STDECI  d,K)*DISP( INDEX) 

STRC0084 

DEP ( J ) =DEP( J ) +STD£C(  J,K)*DELD( INDEX) 

STRC0085 

r a 

AAi.it  J k>HC 

STRC0086 

EPEEM=EP(2) +EP(8) **2/2. 

STRC0087 

DEPEEM=DEP ( 2 )+EP( 8) *DEP (8)-DEP(8)**2/2. 

STRC0088 

BPNEE  =0  0 

STRC0089 

BPMEE  =0  . C 

STRC0090 

PI  ASTI =0  0 

STRC0091 

DO  150  LZ=1  . NZ 

STRC0092 

EPEEZ=EPEEM-RZETA(LZ)»£P(5) 

STRC0093 

DEPEEZ=DE°E  EM-RZETA ( LZ ) *DEP(S  ) 

c t npnon/i 

GPEE=  YOUNG*  EPEEZ 

STRC0095 

PTEE=  0 0 

STRC0096 

FACTO  R= 1 . 

STRC0097 

I F ( 0 . EQ - 0 0 ) GO  TO  152 

STRC0098 

FACTOR =1  +(CC6»DABS(DEPEEZ) )**CC5 

STRC0099 

152 

DO  155  LS= 1 . NSU6L 

STRC01 00 

JZ  = LZ  + US-1  ) * NZ 

STRC01 01 

SNY=  S NO ( LS ) -FACTOR 

STRC01 02 

TAEE= TSGEE( LNUM  .JZ.JA) 

STRC01 03 

DSNEE  = YOUNG -DEPEEZ 

STRC0104 

TMF.E=  TAEE+DSNEE 

STRC01 05 

I F ( TM EE-SNY  ) 20,45,21 

STRC0106 

21 

TAEE^SNY 

STRC01 07 

PSS1  = ( TMEE-SNY ) /YOUNG 

STRC0108 

P LAST  1 =PLAST 1 +P5S 1 *T AEE» RWEGH ( JZ) 

STRC01 09 

GO  TO  156 

STRC01 10 

PAGE  0006 


20 

I F( TMEE+SNY  ) 22,45,45 

STRC01 1 1 

22 

TAEE=-SNY 

STRC01 12 

PSS1=(  TMEE^-S  MY )/ YOUNG 

ATDf~r>  1 1 A 

PLAST1  = P LAST  1 +PSS 1 *TAEE*  RWEGH( dZ) 

STRC01 14 

GO  TO  156 

STRC01 15 

45 

CONTINUE 

STRC01 16 

TAEE^TMEE 

STRC01 17 

156 

CONTINUE 

STRC01 18 

TSGEE ( LNUM  ,dZ,dA)=TAE£ 

STRC01 19 

PLAEE-GPE£-TSG£E( LNUM  .JZ.JA) 

STRC0120 

PTE£=PTEE+PLAEE*RUEGH(JZ) 

STRC0121 

155 

CONTINUE 

STRC0122 

BPNEE^BPNEE+PTEE 

STRC01 23 

BPMEE  = BPMEE -PT EE*  RZ ETA ( LZ) 

STRC0124 

1 5o 

Cunt i NUE 

STRC01 25 

DO  163  J=1 , 9 

STRC0126 

163 

SNL( d ) =0  0 

STRC01 27 

SNL(2 ) = YOUN  G*RH<  E P 1 8 ) * + 2/2 . -B  PNEE 

STRC01 28 

SNL  ( 5 ) = YOUNG*  RH*XF*EP( 8 ) **2/2  .-BPMEE 

STRC0129 

SN  L ( 9 ) = ( YOUNG*RH* (EPEEM+XF*£P (5) J-BPNEE) * EP(0) 

STRC0130 

DO  164  d = 1 , 9 

STRC01 31 

164 

SNL( d ) = SNL  ( d ) *SWEW 

STRC0132 

DO  165  d=1 , 24 

t o 

EQNL ( d ) =0  0 

STRC0134 

DO  165  K= 1 , 9 

STRC0135 

165 

EQNL ( d ) = EON  L ( d )+STDEC(  K,d) *SNL(K) 

STRC01 36 

DO  166  d = 1 , 24 

STRC0137 

166 

ELFPf  d)  = ELFPtd)+EONL(d) 

STRC01 38 

PLA3T2=dLAST2+PLAST1*SWEW 

STRC0139 

100 

CONTINUE 

STRC0140 

DO  20  1 d = 1 , 24 

STRC0141 

NNN=( LNUMR-1 ) *24+d 

STRC0142 

M=NODE ( MNN) 

STRC0143 

201 

FLVA(M)=FU'A(M)-ELFP(d) 

STRC01 44 

PlmSTU-FLASTWtPLAST2 

STRCQ145 

50 

CONTINUE 

STRC0146 

RETURN 

STRC01 47 

END 

STRC0148 

oonooooo 
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SUBROUTINE  STRESP ( OISP . 0 ELD, FL VA , ITT .NODE , MAXEL . TAUSS . TAUEE . TAUSE . STRPOOOO 
2EPSSI .EPSSO.EPEEI.EPEEO, EPSEI , EPSEO, PLASTW , XGI ■ YGI ,NP, STDEP.GBt,  STRPOOOt 

3NMSUB. OSR.PSR.SUBW.SNOM.NZS)  STRP0002 

IMPLICIT  REAL»8(A-H.0-Z)  STRP0003 

STRP0Q04 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM  STRP0005 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980  STRP0006 

STRP0007 

THIS  SUBROUTINE  is  USED  BY  BOTH  THE  PLATE  AND  THE  CIVM  PLATE  PROGRAMS. StRPOOOB 

STRP0009 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  8Y  R.  L.  SPILKER  SIRPOOlO 

SIRP001  1 

DIMENSION  DISP(l),OELD(1 I . FLV A ( I ) . SNL< 9 ) . EQNL< 36 ) . EP ( 9 ) . OEP( 9 ) , STRP0012 

2ELFP(36).NODE( I ) . TAUSS(MAXEL.NZS,9) , TAUEE ( MAXEL  . NZS , 9 ) . TAUSE (MAXEL SIRP001 3 
3,NZS.9).EPSSI(9,1 ) .EPSS019, 1 ). EPEE1(9,1) ,EPEEO(9,1 ),EPSEI(9, 1 ),  STRP00I4 

4EPSEO( 9,1)  STRP0015 

DIMENSION  XGI(1),YGI(1),NP(411 ) ,STDEP(9,24 ) .GBI ( 24 , 24 ) S1RP0016 

DIMENSION  NMSUB( I ) , DSR( 1 ) ,PSfl( 1 ).SUBW(5,1 ) ,SN0M(5, 1 ) ,ZGAUS(6),  SIRP00I7 
2 ZGAUW ( 6) ,GFL (4) ,GZETA(4) . GWEGH ( 20) . SNO( 5 ) . AGAUS ( 6 ) ,AGAUW(6)  STRP00I8 

COMMON/P LATE/XD I ST ,YDI ST .TH.SLE, ELE , NEAO . NECD, DENS, YOUNG .HNU.THALFSTRPOO 19 
COMHON/BAS/NDT ,NET .MN.NB.NIRREG.MNC 
COMMON /TIM/OELT AT, T1MEF, TIME. I TIMEF , INCRT, I OUT, I TIME 
COMMON  / 1NOU  T / MREAD.MWR1TE.MPUNCH 


C THIS  SUBROUTINE  CALCULATES  THE  EFFECTIVE  NOOAL  FORCE  VECTOR  FOR  A 

c plate  element  corresponding  to  nonlinear  geometric  and  material 
C EFFECTS  THE  THEORETICAL  BASIS  FOR  THESE  CALCULATIONS  IS  GIVEN  IN 
C SUBSECTION  A.1 .3 .A. 

C 

CONI  * ( 1.0<HNU)/(3.0*YOUNG) 

NA  = 3 
NZs4 

NSUBL*  NMSUB(  1 ) 

D = OSR(  1 ) 

P*PSR ( 1 ) 

CALL  GAUSSlNA, AGAUS, AGAUW) 

CALL  GAUSS(NZ,ZGAUS. ZGAUW) 

00  10  LZ-1.NZ 

GFLILZ )*0  5*  TH*ZGAUW( LZ ) 

10  GZETA( IZ)*0,  5-TH.ZGAUS(LZ) 

DO  20  LZ  * I ,NZ 
DO  20  LS*1  .NSUBL 
dZ*LZ+ (LS-I ) *NZ 

20  GwEGH( JZ ) *GF L(LZ)»SUBW(1 , LS) 

CC5=0  0 
CCG=0  0 

1 F ( D E Q . 0 . 0 ) GO  TO  30 
CCS* 1 . 0/P 

CC6= 1 O/D/DE  LTAT 
30  EE  I * YOUNG/ ( 1 ,0-HNU*HNU) 

EE4*HNIJ*EEI 

EE3-YOUNG/2  0/ ( 1 , 0 + HNU ) 

HNU1 * ( 1 0-2.  0»HNU)/3.0/( 1 ,0-HNU) 

DO  35  IS*I. NSUBL 
35  SNO( LS ) “SNOM (1 , LS ) 

DO  50  LNUM* | .NET 
NNNI-NP(I.LNUM) 

NNN2»NP12,LNUM) 

NNN4*N  P(  4 . IN  UM ) 

SLE*(XGI(NNN2)-XGI INNN1 ) J/2.0DO 
ELE*(YGI(NNN4)-YGI(NNN1 ) )/2.0D0 
DO  99  d*1.24 
99  ELFP(d)«0  0 


SIRP0020 
SIRP0021 
STRP0022 
SIRP0023 
STRP0024 
STRP0025 
SIRP0026 
S1RP0027 
STRP0028 
STRP0029 
STRP0030 
SIRP0031 
STRP0032 
STRP0033 
STRP0034 
STRP0035 
STRP0036 
STRP0037 
STRP0038 
STRP0039 
STRP0040 
STRP0041 
SIRP0042 
STRP0043 
STRP0044 
SIRP0045 
STRP0046 
ST  RP0047 
SIRP004B 
STRP0049 
STRPOOSO 
SIRP005I 
SIRP0052 
STRPO053 
SIRP0054 
STRP0055 
STRP0056 
S T RP0057 
SIRP0058 
ST  RP0059 
S1RP00G0 
STRP0061 
STRP0062 


I 

I 


164 


DO  100  KS*1 ,NA 
SW»SLE*AGAUW(KS) 

DO  100  KE*1 , NA 
SL*(AGAUS(KS)+1.0)/2.0 
EL*(AGAUS(KE)+1 ,0)/2.0 
XL=2  0 ♦SLE 
YL*2  0*ELE 

CALL  SfOM(SL.EL.XL,YL.GBI,STOEP) 

EW*EL  E * AGAUW(KE) 

SWEW*SW«EW 
PLAST 3 =0  0 
JA=KE+(RS-1 ) *NA 
DO  60  J-1 ,9 
EP< J) =0.0 
DEP(J  1=0.0 
DO  60  K=1 .24 
NNN=( LNUM-1 ) *24+K 
INDEX*  NODE ( NNN ) 

EP(J) *EP(J) +STDEP(  J,K)*DISP( INOEX ) 

OEP(J)*DEP( J)+STDEP(  J,K)*DELD( INDEX) 

60  CONTINUE 

EPSSM*EP(1)+EP(7) **2/2 . 

**EP(9) **2/2. 

EPEEM=EP(2)eEP(8)*»2/2. 

• ♦ EP( 9 ) **2/2. 

EPSEM=EP(3) +EP(7)*EP<8) 

DEPSSM*OEP( 1 )+EP(7)*DEP(7)-DEP(7)»»2/2. 

•+EP(9) ‘0EP19 )-DEP(9)**2/2. 

0EPEEM=OCP(2)+EP(8)*DEP(8)-DEP(8)**2/2* 

•♦EP(9) »DEP(9)-0EP(9).*2/2 

DEPSEM=DEP( 3)+EP(7)*DEP(8)+DEP(7)«EP(8)-DEP(7)»0EP(8) 

LN  = LNUM 

EPSSI (JA.LN)=EPSSM+THALF*EP(4) 

EPEE  1 { JA.LN )*EPEEM+THALF»EP(5 ) 

EPSEI  IUA.LN)*EPSEMlTHALF*EP(6) 
EPSS0(JA,LN)*EPSSM-THALF*EP(4) 

EP£EO( JA,LN)*EPEEM-THALF*EP(5 ) 
£PSE0(JA.LN)*EPSEM-THALF*£P(6) 

81  BPNSS  =0  0 
BPNEE  *0  0 
BPNSE  =0  0 
BPMSS*0  0 
BPMEE  *0  0 
BPMSE  *0.0 
DO  150  LZ*1 , N2 
PLAST2*0.0 

EPSSZ*EPSSM-GZETA(LZ)*EP(4) 

EPEEZ=EPEEM-GZETA(LZ)*£P(5) 

EPSE  Z = E PSCM-GZET  A( LZ)*EP(6) 

DEPSSZ*DEPSSM-GZETA(LZ) *DEP(4) 

DEPE£Z=D£PEEM-GZETA(LZ) »DEP(5) 

DEPSEZ*OEPSEM-GZETA(LZ) *DEP{6  ) 

GPSS*  EE  I *EPSSZ+EE2*EPE£Z 

GPEE*EE2*EPSSZ+EE1*£PEEZ 

GPSE*EE3«EPSEZ 

PTSS*  0 0 

PTEE*0  0 

PTSE*0  0 

FACTOR*  1 . 

I F ( O EQ.0.0 ) GO  TO  152 

SEC1NV*DEP$SZ**2+OEPEEZ**2-OEPSSZ*OEPEEZ+.75DO»DEPSEZ«.2 


STRP0063 
STRP0064 
STRP0065 
STRP0066 
STRP0067 
5TRP00G8 
STRP0069 
STRP0070 
STRP0071 
S1RP0072 
STRP0073 
STRP0074 
STRP0075 
STRP0076 
STRP0077 
STRP0078 
S TRP0079 
STRPOOBO 
STRP0081 
STRPOO02 
STRP0083 
STRP0084 
STRPOOB5 
STRP0086 
STRP0087 
STRP0068 
STRP00B9 
ST  RP0090 
STRP009I 
ST  RP0092 
STRP0093 
STRP0094 
STRP0095 
STRP0096 
STRP0097 
STRP0098 
SI  RP0099* 
STRP0100 
STRP0101 
STRPO 1 02 
SIRP0I03 
STRP0104 
STRPO 1 05 
STRPO  1 06 
SIRP0107 
STRPO 1 08 
STRPO  1 09 
STRPOI 10 
STRPO I 1 1 
STRPOI 12 
STRPO! 13 
STRPOI 14 
STRPOI IS 
STRPOI 16 
STRPOI 17 
STRPOI IB 
STRPOI 19 
SIRP0120 
STRP012I 
STRP0I22 
STRP0I23 


SECINV*SECINV*2  00/3.00  STRP0I24 

I F ( SEC  I NV  ,LT.  O.ODO)  WRITE(MW RITE ,151)  NNC.ITT  STRP0I25 

151  FORMAT  (1110,' SECOND  INVARIANT  OF  DEVIATORIC  STRAIN  RATE  IS  NEGATIVE  STRPO  1 26 
+ AT  SUBINCREMENT* , 13, 1 AT  TIME  STEP* , I10/20X, ‘STOP  IN  SUBROUTINE  5 STRPO 1 27 
2TRESP.  * ) STRPO 1 28 


I 

I 


16  S 


1 


i 


152 


40 


41 


159 

C 


45 

46 

157 

44 

49 

156 


155 


IF(SECINV.LT.O.O)  CALL  EXIT 

FACTO R« 1 .+( CC6*DSQRT(SECINV) ) ••CC5 

DO  155  LS»t  , NSU0L 

S!GMSQ*(SNO( LS)» FACTOR) **2 

JZ*LZ+( LS-1 )*NZ 

NNN*  1 

SNN=1  . 

CONTINUE 
PLAST1 -0  0 
NNC-1 

TASS*  TAUSS( LNUM  .JZ.dA) 

TAEE  * TAUEE(  LNUM  ,JZ,JA) 

TASE* TAUSE( LNUM  ,JZ.UA) 

DSNSS*(E£1*0EPSSZ+EE2*DEPEEZ)/SNN 

0SNEE=(EE2«  depssz  + eei  *DEPEEZ)  /snn 

DSNSE*EE3.DEPSEZ/SNN 

CONTINUE 

TMSS  = TASS+DSNSS 

TMEE*  TAEE«OSNEE 

TMSE*TASE+DSNSE 

CZ*TMSS**2fTMEE**2-TMSS*TMEE+3.*TMSE»»2-SIGMSQ 

IF(CZ  LE.  0.0)  GO  TO  45 

TAUM*  TASS+T  AEE 

TCSS*  TASS-HNU1  *TAUM 

TCEE=TAEE-HNU1*TAUM 

TCSE*  TASE 

AZ*ICSS**2-TCSS*TCE£+TCEE»*2+3.*TCSE*«2 

BZ=TMSS*TCSS+TMEE*TCEE-(TMSS*TCEE+TCSS*TMEE)/2. 
D1SCR=BZ*BZ-AZ*CZ 
If(D1SCR  LT  0 0)  GO  TO  157 
HLAMD2=BZtDSQRT(0ISCR) 

1F(HLAMD2  . LE  0.0)  GO  TO  157 
HLAMDA-CZ/H  LAMD2 
PSS 1 *H LAMDA* CONI » ( 2 0*TASS~TAEE) 

PSS2*H LAMDA* CONI *( 2. 0*TAEE-TASS) 

P$S3=HLAMDA*  CONI *6  0*TASE 

PLAST1 *PLAST ItPSSI *TASS+PSS2*TAE£+PSS3*TASE 
TASS*TMSS-HLAVOA*TCSS 
T AEE* TMEE-HLAMDA.TCEE 
TASE  * T MSE-H  LAMDA* TCSE 
GO  TO  46 
TASS*  TMSS 
TAEE*  TMEE 
TASE*  TMSE 

1F(NNC.EQ  NNN)  GO  TO  156 

NNC*NNC+1 

GO  TO  41 

NNN*NNNH 

SNN*NNN 

IF(NNN-99)  40,40,44 
WR1TE(M4RITE  , 49 ) I T T 

FORMAT! 1 SUBINCREMENT  IN  PLASTICITY  RELATION 
CALL  EXIT 

TAUSSILNUM  ,JZ,JA)*TASS 
TAUEEILNUM  ,JZ.JA).TAEE 
TAUSULNUM  ,JZ, JA)*TASE 
PLASS=GPSS-TAUSS( LNUM  ,JZ,dA) 

PLAEE *GPEE- TAUEE( LNUM  , JZ,JA) 

PLA5E  =GPSE~  TAUSEI  LNUM  ,dZ,«JA) 

PTSS*PTSS+P  LASS  *GWEGH( J Z ) 

PTEE*PTEEtPLAEE*GWEGH( JZ) 

PISE*P1SE*PLASE*GV.'EGH(  JZ) 
PLAST2*PLAST2+PLAST1*GWEGri(JZ) 

CONTINUE 

BPNSS*BPNSSfPTSS 


♦3.*TMSE*TCSE 


STRP0I29 
STRPOI 30 
STRP013I 
STRPOI 32 
STRP0133 
STRPOI 34 
STRP0I35 
SIRP0I36 
STRP0I37 
STRPOI 38 
STRP0I39 
STRP0I40 
SIRP0I41 
STIIP0142 
STRP0143 
STRPOI 44 
5TRP0145 
SIRP0I46 
STRP0I47 
STRP0I48 
STRP0I49 
STRP0I50 
STRP0151 
STRP0152 
STRP0I53 
STRP0154 
STRP0I55 
STHP0I56 
STRP0I57 
STRP0I58 
STRP0I59 
STRP0I60 
STRP0I61 
STRP0I62 
STRP0163 
STRP0I64 
STRP0I65 
STRP0I66 
STRP0I67 
STRP0168 
STRP0I69 
STRP0170 
STRP0I71 
STRP0I72 
STRP0I73 
STRPOI 74 
STRP0I75 
STRPOI 76 
STRP0I77 
STRP0I78 
STRPO I 79 
siRPOieo 

. GT.99  AT  IT* ' , 15) ST RPO I 81 
STRPO I 82 
STRPO 1 83 
SI RPO 1 84 
STRPO 1 85 
STRPO I U6 
STRPO I 87 
STRPOIBB 
STRPO 1 09 
STRP0190 
STRPO I 91 
STRP0192 
STRPO 1 93 
STRPOI 94 


I 


166 


BPNEE=BPNEE+PTEE 
BPNS£=BPNSE+PTSE 
BPMSS -BPMSS-PTSS»GZETA(  LZ) 

BPMEE  =BPMEE -PTEE*GZETA( LZ) 

BPMSE  =BPMSE-PTSE*GZETA( LZ) 

PLAST3=PLAST3+PLAST2 
150  CONTINUE 

SNL(  1 ) = (EE1 »EP(7)**2/2.+£E2*EP(8)*»2/2.)*TH-BPNSS 
*+( ( EE1 +EE2)*EP(9)*+2/2. ) *TH 

SN L ( 2 ) = (EE2  *EP(7) **2/2. +EE1 *E P ( 8 ) **2/2 . )* TH-BPNEE 

* + ( (EE1  +EE2)*EP(9)**2/2. ) *TH 

SNL(  3 )=(EE3*EP(7)*EP(8) )*TH-BPNSE 
SNL ( 4 )=-BPMSS 
SNL( 5 ) =-BPM  EE 
SNL(6 )=-BPMSE 

SNL<7 )=( (EE1*EPSSM+EE2*EPEEM) * TH-BPNSS ) *EP ( 7) 

* + ( EE3* EPSEM*  TH-BPNSE ) * EP ( 8 ) 

SNL(0 )=((EE2*EPSSM+EE1 *EPEEM) * TH-BPNEE) * EP (8) 

* + ( EE3* EPSEM* TH-BPNSE ) *EP ( 7 ) 

SNL ( 9 ) = ( i E E 1 * EP5SM+EE2*  EPEEM ) *TH-BPNSS)*EP(9) 

*+( (EE2*EPSSW+EE1 *EPEEM)* TH-BPNEE) *EP(9) 

DO  164  d=1 , 9 

164  SNL(J ) = SNL( J ) * SWE W 
DO  165  d=1  , 24 
EQNL ( d)=0  0 

DO  165  K=1 . 9 

165  EQNL(  d)=EQNL(d)  + STDEP(  K,d)*SNL(K) 

DO  166  d=1 , 24 

166  ELFP(  d)=ELFP(d)+EQNL{d) 

PLASTW  = P LAST  W+P LAS T3* SWE W 

100  CONTINUE 

DO  20 1 d= 1 , 24 
NNNN=( LNUM-1 )*24+d 
M-NODE (NNNN) 

201  FLVA(  M)  = FLVA(M)+ELFP{d) 

50  CONTINUE 
RETURN 
END 


STRP0195 
STRP0196 
STRP0197 
STRP01 98 
STRP0199 
STRP0200 
STRP020 1 
STRP0202 
STRP0203 
STRP0204 
STRP0205 
STRP0206 
STRP0207 
STRP020B 
STRP0209 
STRP02 1 0 
STRP021 1 
STRP021 2 
STRP02 1 3 
STRP02 1 4 
STRP021 5 
STRP0216 
STRP021 7 
STRP0218 
STRP0219 
STRP0220 
STRP0221 
STRP0222 
STRP0223 
STRP0224 
STRP0225 
STRP0226 
STRP0227 
STRP0228 
STRP0229 
STRP0230 
STRP0231 
STRP0232 
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SUBROUTINE  T STEP ( ST F,  AMASS, NBC  ,BC,  ICOL,  INUM, KROW, NDEX, TRIAL, SOtN) 
IMPLICIT  REAL*8{A-H.0-Z) 

ASRL  TR  154-1 4 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  BY  BOTH  THE  PLATE  ANO  THE  CIVM  PLATE  PROGRAMS 

DIMENSION  STF(t),AMASS(1 ),BC(1 ) ,NBC( 1 ) , 1C0L( 1 ) , INUM( 1 ) ,KROW{1), 
2NDEX<  1 ), TRIAL(  1 ) ,SOLN{  I ) 

COMMON/BAS/NDT ,NET .MN.NB.NIRREG.MNC 

COMMON/PL AT  E/XO.YO, TH.HX ,HY .NEA. NEC, DENS, £PAN , AN , THF 
COMMON  /INOUT/  MRE AD . MWR I TE .MPUNCH 
COMMON  /MASSM/  IMASS 

SUBROUTINE  TO  CALCULATE  THE  CENT RAL-0 I FFERENCE  TIME-STEP  BOUND. 
ITERATION  IS  USED  TO  CALCULATE  THE  HIGHEST  NATURAL  FREQUENCY  OF  THE 
ASSEMBLED  STRUCTURE.  NOTE—  HOUBOLT  OPERATOR 

USED  IN  PRESENT  PROGRAM.  CALCULATED  BOUND  SERVES  ONLY  AS  A 
REFERENCE  NO 

GENERATE  INITIAL  GUESS 
DO  20  1*1  .NOT 
20  TRIAL!  I )*1  ODO 

CONSTRAIN  ASSEMBLED  STIFFNESS  MATRIX 
CALL  QCONMK ( STF.BC . ICOL, INUM.NBC) 

IF( IMASS  EQ . 2)  GO  TO  28 
DO  25  1*1, NB 
KK*NBC  ! I ) 

TRIAL! KK)=0  ODO 
DO  27  1*1 ,NDT 

IF! AMASS! 1)  EQ.O.O)TRIAL(I)»O.ODO 

27  CONTINUE 
GO  TO  29 

C CONSTRAIN  CONSISTENT  MASS  MATRIX. 

28  CALL  BCONMK! AMASS. BC . ICOL. INUM , NBC) 

C NORMALIZE  SO  TRIAL  VECTOR  IS  A UNIT  VECTOR 

29  SUM*0  ODO 

DO  30  1=1 .NOT 

30  SUM*SuMtTRlAL(I)*TRIAL(I ) 

SUM=DSQRT (SUM) 

DO  35  1*1  ,NDT 

35  TRIAL! I)-TRIAL(I)/SUM 
EPS* 1 OD-7 
60L0* 1 ODO 
NNN*0 

C FOR  CONSISTENT  MASS  MATRIX,  REPLACE  M BY  FACTORED  M. 

IF! IMA  SS  .EQ.  2)  CALL  FACT (AMA SS , ICOL . KROW , NDEX , IOET .MWRITE , I NUM) 
C BEGIN  ITERATION  LOOP 
DO  100  ITER* 1 .200 
NNN*NNN+1 

C ZERO  OUT  SOLUTION  VECTOR 
DO  40  1*1 .NOT 
10  SOLN ( I ) *0  ODO 
C MULTIPLY  STIFFNESS  TIMES  TRIAL 

CALL  OMULTtSTF, TRIAL. SOLN, ICOL , KROW. NDEX) 

1F( IMASS  EQ  2)  GO  TO  46 
C MULTIPLY  PRODUCT  BY  MASS-INVERSE 
DO  45  1*1  .NOT 

IF( AMASS! I ) . EQ  0.0) GO  TO  45 
TRIAL! I)*SOLN(t)/AMASS(I) 

45  CONTINUE 
GO  TO  47 
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TSTP0007 
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TSTP0032 
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T STP0034 
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TSrP004Q 
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TSTP0042 
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BNEW=TRIAL(lHOLD) 

VECTOR  IS  A UNIT  VECTOR 


.GT.  1 .D-76)  GO  TO  55 


46  CALL  SO LV (AMASS, SO LN, TRIAL, ICOL, KROW , NDEX) 

47  BNEW=-  1 DO 

C SEARCH  FOR  MAX  VALUE  IN  TRIAL  VECTOR. 

I HGLD=  0 
00  A<2>  1 = 1 .NOT 
CHECK=OABS( TRIAL( I ) ) 

I F ( BN E W .GT,  CHECK)  GO  TO  4® 

BNEW=CHECK 
I HOLD= I 

48  CONTINUE 
I F ( IHO  LD  .NE.  0) 

C NORMALIZE  SO  TRIAL 
DO  55  1 = 1 .NOT 

I F ( T R I AL ( I ) .EQ.  0.00)  GO  TO  55 
I F(DABS( 10.0D0*TRIAL( I )/BNEW) 

T R 1 AL ( I ) =0 . DO 

55  TRIAL(  I ) = TR I AL ( I ) /BNEW 

C IF  THIS  IS  FIRST  ITERATION,  SKIP  CONVERGENCE  CHECK 
I F ( I TE R EQ  1 ) GO  TO  100 
CRAT 10  = DABS ( 1 . 000- BNEW/BOLD ) 

IF(CRATIQ.LE .EPS) GO  TO  110 

C IF  NOT  CONVERGED  CONTINUE  ITERATION 
BOLD=BNEW 

100  CONTINUE 

C CONVERGENCE  FOUND  OR  MORE  THAN  200  ITERATIONS  TAKEN 

110  BONE  = B NEW 

BONE=DSQRT (BONE) 

WR I TE ( MWRITE ,600)BONE 

C PRINT  OUT  FINAL  VALUE  OF  EIGENVECTOR. 

NNT  = ND  T/6 
WRITE( MWRITE ,114) 

DO  1 1 2 NN  = 1 , NNT 
J 1 = ( NN - 1 ) *6+ 1 
U2  = J 1 + 5 

WRITE( MWRITE , 1 16)  NN,  ( T R I AL( J ) , d= J 1 , J2 ) 

FORMAT  1 IHO, 23X, ‘HIGHEST  EIGENVECTOR  NORMALIZED  BY  LARGEST  VALUE1/ 

1 IHO, 1 OX,  'NODE*  ,6X, 'U‘ , 12X, ' V ' , 12X,  ‘W‘ , 1 1X, * PSIX' ,9X,  ' PSIY*  ,9X, 

2 ‘TWIST1) 

FORMAT ( 1 IX, 14,6013.5) 

WR I TE( MWRITE . 6 1 0 ) NNN . CRA T 10 
STS=2. ODO/BONE 
WRITE(MWRITE ,620)  STS 
STS  = 0 800*ST  S 
WR I TE ( MWRITE , 630 ) STS 

FORMAT ( ‘ 0 ‘ ,' HIGHEST  NATURAL  FR EQUENC Y ( RAD/ SEC )= ' , D1 5 . 7 ) 


112 
1 14 


1 16 


600 

610 

620 

630 


FORMAT  ( ' 
FORMAT ( ' 
2SYSTEM  = ‘ 
FORMAT ( ' 
RETURN 
END 


AFTER'  , 14. 2X ,' ITERATIONS,  CONVERGENCE  RAT  I 0- 1 ,015 .7) 
CENTRAL-DIFFERENCE  BOUND  ON  T I ME-STEP( SEC ) FOR  LINEAR 
,015 .7) 

', "ACTUAL  TIME-STEP  BOUND  (SEC)  WOULD  BE=',D15.7) 
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TSTP0079 
T STPOOOO 
TSTP0081 
T STP0082 
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TSTP0091 
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TSTP0105 
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6.2  Subprograms  Unique  to  the  PLATE  Code 

The  following  6 subprograms  {or  subroutines)  are  unique  to  the  PLATE 
program: 


CMASSP  INCOND  MAINP 

EXTL  MAIN  PRINT 

These  specific  versions  of  Subprograms  EXTL,  INCOND,  and  MAIN  given  in  this 
subsection  are  principally  for  illustration,  but  are  also  those  used  for  the 
illustrative  example  given  in  Subsection  7.2.1  for  the  complete  plate.  The 
user  must  write  his  own  versions  of  these  programs  consistent  with  his  problem 
data  if  he  wishes  to  analyze  any  other  example  problem. 

A FORTRAN  IV  listing  of  these  6 subprograms  follows. 
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SUBROUTINE  CMASSP(NTYPE, XL, YL, TH , XF , S LOC , CSA , SMO I , EM , G B I , DENS ) 
IMPLICIT  REAL*8(A-H,0-Z) 

ASRL  TR  154-14..  . ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

DIMENS  ION  EM (24. 24 ) ,GBI ( 24 ,24)  , AMT 1 5 . 5 ) . GS ( 6 ) , GW ( 6 ) , P ( 5 . 24 ) . 
2ST0R1 ( 5.24) , ST0R2(24,24)  ,T(24) 

C 

C THIS  SUBROUTINE  COMPUTES  THE  CONSISTENT  MASS  MATRIX  FOR  A 
C RECTANGULAR  PLATE  ELEMENT,  X-DIRECTION  STIFFENER  ELEMENT,  OR 
C Y-DIRECTION  STIFFENER  ELEMENT.  THE  FORMULATION  CORRESPONDS  TO 
C EQUATIONS  A 23  AND  A 29  (FOR  PLATE  ELEMENTS),  EQUATION  A.91A  FOR 
C X-DIRECTION  STIFFENERS,  AND  EQUATION  A.91B  FOR  Y-DIRECTION 
C STIFFENERS.  A GAUSSIAN  QUADRATURE  IS  USED  TO  COMPUTE  THE  REQUIRED 
C INTECRAL 
C 

NGS  = 4 

CALL  G AUSS ( N GS  , GS  , GW ) 

DO  5 1=1 , NGS 
CS ( I ) = ( 1 0+CS( I ) )/2.0 
d GW ( I ) = GW ( I ) / 2 . 0 
NGX=NG  S 
UGY=NGS 
DO  10  1=1,5 
DO  10  J = 1 ,5 
10  AMT ( I , J ) =0 . 0 
DO  20  1 = 1 ,5 
O DO  20  J=1 ,24 

20  P( I , J) =0  0 

DO  25  1=1,24 
DO  25  d=1 ,24 
25  EM(I,J)=0.0 

GO  T0(  20,40, 40) .NTYPE 
C M-TILDA  FOR  PLATE  ELEMENT 
30  Af  iT  ( 1 , 1 ) = TH 

AMT (2 , 2 ) = TH 
AM  T ( 3 , 3 ) = TH 

AMT (4, 4 ) = TH*  *3/(12. 0D0*XL*XL) 

AMT (5,5)  = TH*  *3/(12  0D0* Y L*YL) 

GO  TO  50 

C M-TILDA  FOR  STIFFENERS. 

40  AMT (1,1)  =CSA 
AMT (2, 2 ) =CSA 
AMT (3, 3 ) =CSA 
A M T ( 4 , 4 ) =SMO I / ( XL*  XL ) 

AMT ( 5 , 5)=SM0I/ ( YL+YL) 

AMT ( 4 , 1 ) = -CS  A*XF/X  L 
AMT ( 1 , 4 ) = AMT (4,1) 

AMT ( 5 , 2 ) =-CS  A * XF/ Y L 
AMT ( 2 , 5)=AMT (5,2) 

IFlNTYPE  EQ  2)NGY=1 
1 1 v NT Y FE . EQ . C)NGX-1 
50  CONTINUE 

C LOOP  OVER  GAUSS  STATIONS. 

DO  100  NY  = 1 , NGY 
DO  100  NX= 1 , NGX 
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CMSPOO  19 
CMSP0020 
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CMSP0022 
CMSP0023 
CMSP0024 
CMSP0025 
CMSP0026 
CMSP0027 
CMSP0028 
CMSP0029 
CMSP0030 
CMSP0031 
CMSP0032 
CMSP0033 
CMSP0034 
CMSP0035 
CMSP0036 
CMSP0037 
CMSPOO 38 
CMSP0039 
CMSP0040 
CMSP004 1 
CMSP0042 
CMSP0043 
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) 


I 


SL=GS( NX) 

Eu=GS(  NY) 

GWX=GW (MX) 

GWY=GW (NY) 

IF(NTYPE.EO. 2 ) £ L=S  LOC 
I F ( NTY  PE  - £Q  2)GWY=1  0 
I F (NT Y PE . EQ . 3)SL=SLOC 
I F (NTY  PE  EQ. 3)GWX=1 .0 
P(1 ,1 ) =1  .0 
P(1 .2) =SL 
P( 1 , 3) =EL 
P(1 ,4) =EL*SL 
P ( 2 , 5 ) = 1 .0 
P ( 2 , 6 ) =SL 
P ( 2 , 7 ) = EL 
P ( 2 , 8 ) = S L*  E L 
P ( 3 , 9 ) = 1 0 
P ( 3 , 1 9 ) = SL 
P( 3 , 1 1 ) - EL 
P(3,12)=SL+EL 
P(3, 13  ) = SL*SL 
P( 3 , 1 4 ) = EL*E  L 
P(3,15)=SL*SL^EL 
P ( 3 , 1 6 )=SL*EL*EL 
P ( 3 , 1 7 )=SL*SL*EL*EL 
P(3t 18  ) - SL* ♦ 3 
PU,19  )=EL**3 
P ( 3 , 20 ) = P ( 3 , 1 8 ) * EL 
P( 3 , 2 1 )=SL*P(3,19) 

P ( 3 , 22 ) = P ( 3 , 20 ) *EL 
P(3,23)=P{3, 21 ) +SL 
P ( 3 , 24  ) = P( 3 , 18) »P( 3, 19) 
P(4, 10  ) = 1 .0 
P ( 4 , 1 2 ) =EL 

< o > _ o o -*t c 

P(4]l5)=2.0*SL*EL 
P(4, 16 )=EL*EL 
P(4, 17 )=P(4, 15) *EL 
P(4, 18  )=3.0*SL*SL 
P ( 4 , 20  ) = P ( 4 , 1 8 ) * E L 
P ( 4 , 2 1 )=P(4,  1 6 ) *EL 
P(4,22 )-P(4 . 20 ) *£ L 
P ( 4 , 23 ) = P ( 4 , 1 7 ) * 5 L 
P(4,24)=P(4,22)*EL 
P ( 5 , 1 1 ) = 1 0 
P(5, 12  ) =SL 
P ( 5 , 1 4 ) =2 . 0 + EL 
P( 5, 15  ) = SL*SL 
P(5, 16  ) = 2 0»  SL*EL 
P(5,17)=P(5,  1 6 ) »SL 
P(5, 19  ) = 3.0* EL*EL 
P (5 , 20  ) = P(5 , 15) +3 L 
P(5,21  ) = P ( 5 , 1 9 ) *SL 
P(5,22  ) = P(5,  1 7) *SL 
P(5,23)=P(5, 21 ) + S L 
P(5,24 )=P(5, 23)«SL 
DO  60  1=1,5 
DO  60  J=1 ,24 
STQR1 ( I , J)  = 0 .0 
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DO  60  K=1 ,5 

60  ST0R1  ( I ,d)=STORt (I ,J)+AMT(I,K) *P(K,d) 

DO  70  1-1 ,24 
DO  70  d = 1 ,24 
ST0R2 ( I ,d)=0 .0 
DO  70  K=1 ,5 

70  ST0R2  ( I , d ) = S T0R2 ( I . d ) +P ( K . I ) *S TOR 1 ( K , d ) 

DO  80  1=1,24 
CO  80  d = 1 , 1 

00  EM( I ,d ) = EM( I , d ) +ST0R2 ( I , d ) +GWX *GWY»DENS 

100  CONTINUE 

DO  1 10  1=1 ,24 

DO  110  d= 1 , I 

EM( I , d ) =EM( I ,d)*XL»YL 

110  EM(d, I )=EM( I ,d) 

C PRE-  AND  POST-MULTIPLY  BY  G-BAR- INVERSE  MATRIX. 
DO  120  1=1 ,24 
DO  120  d=1 ,24 
ST0R2 ( I ,d)  = 0 .0 
00  120  K= 1 ,24 

120  ST0R2 ( I ,d)=STQR2( I , d ) +EM ( I , K) * GBI ( K , d ) 

DO  130  1=1,24 
DO  130  d= 1 ,24 
EM{  I , d ) =0  0 
DO  130  K= 1 ,24 

130  E.v'(I.d)  = EM(I  , d ) +GB I ( K , I ) * ST0R2  ( K , d) 

C FORM  SCALING  MATRIX  FOR  NODAL  D.O.F.. 

DO  140  1=1,24 

140  T ( I ) = 1 . 0 

DO  150  1=4,22,6 

T(I)=XL 

T( 1+1 ) = YL 

150  T(I+2)=XL*YL 
C SCALE  MASS  MATRIX. 

DO  160  1=1,24 
DO  160  d= 1 ,24 

160  EM(I,d)=EM(I  ,d)*T(I)*T(d) 

RETURN 

END 
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SUBROUTINE  EXTL(ELV, ITT, NP ,NODE,XGI , YGI ,GBI ) 

IMPLICIT  REAL*8(A-H,0-Z) 

ASRL  TR  154-14.  . ..ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 


EXTL0000 

EXTL0001 


THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

THIS  VERSION  IS  FOR  THE  EXAMPLE  OF  A RECTANGULAR  PLATE,  CLAMPED 
ON  THE  TOP  AND  BOTTOM  EDGES,  FREE  ON  THE  OTHER  TWO  ECGES  WITH  AN 
IMPULSIVE  LOAD  APPLIED  SYMMETRICALLY  TO  ITS  CENTRAL  REGION. 

DIMENS  ION  ELV( 1 ) ,NP(4, 1 ) ,NODE(  1 ) , XGI ( 1 ) , YG I ( 1 ) , GBI ( 24 , 24 ) 

THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  GENERATE  THE  NODAL 
GENERALIZED  FORCES  CORRESPONDING  TO  PRESCRIBED  EXTERNALLY- APPLI ED 
FORCES  AT  TIME  T SUB  M ( =M* DELTA  T)  AS  DESCRIBED  IN  SUBSECTION  4.6 
AND  CORRESPONDING  TO  THE  DEVELOPMENT  IN  SUBSECTION  A. 1.3. 4. 

DEFINE  SIZE  OF  VECTOR  CONTAINING  UNIT  LOAD  OVER  ALL  DOF  IN  CENTRAL 
REGION  OF  PLATE.  WIDTH  OF  LOADED  REGION  IS  1.497  IN., LENGTH  IS  1.8 
DIMENS  ION  ALOAO( 150) ,AL1  (72) ,AL2(78) 

EQUIVALENCE  ( A L 1 ( 1 ) , A LO A D ( 1 ) ) , (AL2( 1 ) , ALOAD(73) ) 

COMMON  /BAS/  NDT , NET , MN , NB , N I R REG , MNC 
COMMON /TIM/DELT AT, TIMEF, TIME, I TIMEF, INCRT, IOUT , I TIME 
COMMON  /INOUT/  MRE AD , MUR  I T E , MP UNCH 
DEFINE  TIME  AT  WHICH  LOAD  DROPS  TO  ZERO  AND  MAX  VALUE  OF  IMPULSE. 


DATA  TEND/2  5 . D-6/AMAXP/21934 . 4DO/ 
INE  FIRST  AND  LAST  DOF  IN  LOADED  REGIO 


DEFINE  FIRST  AND  LAST  DOF  I N ' LOADE D'  REGl ON . 

DATA  I DDF/ 1 21/.LDGF/270/ 

DEFINE  VALUES  OF  UNIT  LOAD  AT  EACH  DOF  IN  LOADED  REGION 


DATA  AL1/2+0 .DO, 
,2*0 .DO, 
,2*0 .DO , 


1 

2 

3 ,2*0  DO, 

4 ,2*0. DO, 

5 ,2*0  DO, 

6 ,2*0. DO, 

7 ,2*0.00, 

8 ,2^0  DO, 

9 ,2*0.00, 

A ,2*0  DO, 

B ,2*0  DO, 

DATA  A L2/2*0  DO, 

1 ,2*0.00, 

2 ,2*0.00, 

3 ,2*0.00, 

4 ,2*0.00, 

5 ,2*0  DO, 

6 ,2*0. DO, 

7 .2*0.00. 

8 ,2*0. DO, 

9 ,2*0  DO, 

A • ,2*0.00, 

u ,2*0.00, 

C ,2  + 0 DO,  421031 2D 

ZERO  OUT  LOAD  VECTOR. 

DO  1 1=1, NDT 
1 ELV( I ) =0 .000 


42103120-1 , 
8420625  D- 1 , 

. 8420625  D- 1 , 
84206250-1 , 
4210312 D-1 , — 
. 8420625D- 1 , 

. 16841 25  D+0 , 

. 1684125D+0, 

1 684 1 25  D+0 , 
.84206250-1 ,- 
8420625  D- 1 , 

1 6841 25D+0 , 

. 1G84125D+0, 
.16841250+0, 
84206250-1 ,- 
.34206250-1 , 

. 1G84125D+0, 
.168+1250+0, 
.16841250+0, 
8420625D- 1 ,- 
4210312D-1 , 
.84206250-1  , 
84206250-1 , 

. 8420625D-1 , 

1 


2626182D-2, 
OOOOOOOD+O , 
OOOOOOOD+O , 
OOOOOOOD+O, 
26261 82D-2 , 
5252365D-2 , 
00000000+0, 
OOOOOOOD+O, 
OOOOOOOD+O, 
5252365D-2, 

. 52523650-2, 

oonnnooo+o, 

. OOOOOOOD+O, 
OOOOOOOD+O, 

. 5252365D-2, 

. 52523S5D-2 , 

. 00000000*0, 
OOOOOOOD+O, 
OOOOOOOD+O, 
5252365D-2, 
26261320-2,- 


.31577340-2 , 
.63154680-2, 
.63154680-2, 
.63154600-2 , 
.31577340-2, 
.OOOOOOOD+O , 
.OOOOOOOD  + O , 
.00000000+0 , 
.00000000+0, 
.OOOOOOOD+O , 
.00000000+0 , 
onoooonn+o 
.00000000+0 , 
.00000000+0 , 
.00000000+0, 
.00000000+0, 
.00000000+0, 
.00000000+0 , 
.00000000+0, 
.00000000+0 , 
31577340-2, 


. OOOOOOOD+O,- .63 154 63D-2, 
. OOOOOOOD+O,- .63154  680-2, 
• OCOCOOOD+O,— .G3154S3D-2, 
. 2 6261 82D-2,-. 3 1577340-2, 
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.OOOOOOOD+O EXT L0043 
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EXTL0056 
EXTL0057 
EXTL0058 


PAGE  0001 


oaooooooo  oooono 


PAGE  0002 


C IF  THIS  TIKE  STE 
C EXTERNAL  LOAD  V E 
TYM=( I TT-1 )« 
IF(T1M  GT. 
C INTERPOLATE  TO  F 
AMULT  = AMAXP* 
C FILL  IN  VALUES  O 
DO  2 I = I DOF  , 
J=I-IDOF+1 
2 ELV( I ) = AMULT 
C OUTPUT  LOADS  IF 
III=ITIME/IN 

I F ( 1 1 1 . NE . 0 ) 

NNT=ND T/6 

WR I TE ( MUR  I T E 
100  FORMAT (1H0/1 
APPLIED  USER 
& 1 1 , 3 X ) / 8X , 3 

II  = 1 

DO  3 1=1  , NNT 
12=6* I 

WRITE( MWRITE 
11=12+1 
3 CONTINUE 
101  FORMAT (6X, 13 
RETURN 
END 

SUBROUTINE  I 
IMPLICIT  REA 


P IS  BEYOND  LAST  TIME  OF  IMPULSE  RETURN  WITH 
CTOR  SET  TO  ZERO. 

DELTAT 

TEND)  RETURN 

IND  MAGNITUDE  OF  IMPULSE  AT  THIS  TIME. 

(TEND-TYM  ) / T END 

F LOAD  IN  CENTRAL  REGION  OF  PLATE. 

LDOF 

* ALOAD ( J ) 

THIS  IS  A REGULAR  PRINTING  CYCLE. 

CRT*INCRT-IT I ME 
RETURN 

,100)  TYM  , ( J. J = 1 , 6) 

HO , 1 OX , 1 TIME  = 1 , D1 6 . 6 , 1 SEC.'/IH  , 33  ( 1 H .).  1 EXTERNALLY 
SPECIFIED  LOADING'  ,33( 1H. )/1H  . 6X , ‘ NODE  1 , 6 ( 7X , ‘ DOF# ' , 
(1  OX, 1 (LBS)'  ), 1 X. 3 (7X,*( IN-LBS)')) 


.101)  I . (ELV(  J)  ,vJ=  II  , 12) 


.2X.6D15.6) 


NCOND( DISP.VEL.NP, NODE , XGI ,YGI ) 
L*8(A-H,0-Z) 


ASRL  TR  154-14.  ...  ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

DIMENS  ION  DISP(1),VEL(1 ) ,NP(4, 1) , NODE ( 1 ) , XGI ( 1 ) , YGI( 1 ) 

COMMON /BAS/N DT.NET , MN , NB , N I RRE G , MNC 

THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  SPECIFY  THE  INITIAL  (TIME 
ZERO)  CONDITIONS  ON  THE  PLATE  NODAL  DISPLACEMENT  AND  VELOCITIES. 

(0  ZERO)*  AND  (0  DOT  ZERO)*,  RESPECTIVELY.  REQUIRED  FOR  THE  FINITE- 
DIFFERENCE  SOLUTION  OF  THE  GOVERNING  EQUATIONS  OF  MOTION  (SEE 
SUBSECTION  A3). 

DUMMY  ROUTINE  - SETS  VELOCITY  AND  DISPLACEMENT  TO  ZERO  INITIALLY. 

DO  10  1 = 1 , ND  T 
DISP( I ) =0 . ODO 
10  VEL( I ) =0 . ODO 
RETURN 
END 


EXTL0059 
EXTL0060 
E XT  I 0061 
EXTL0062 
EXTL0063 
EXTL0064 
EXTL0065 
EXTL0066 
EXTL0067 
EXTLOOOS 
EXTL0069 
EXTL0070 
EXTL0071 
EXTL0072 
EXTL0073 
AEXTL0074 
EXTL0075 
EXTL0076 
EXTL0077 
EXTL0078 
EXTL0079 
EXTL0080 
EXTL008 1 
EXTL0082 
EXTL0083 
EXTL0084 
EXTL0085 
INCDOOOO 
INCD0001 
INCD0002 
INCD0003 
1NCD0004 
I NCD0005 
INCD0006 
INCD0007 
1NCD0008 
INCD0009 
INCD0010 
INCD001 1 
INCDOO 1 2 
INCD001 3 
INCD0014 
INCD0015 
INCDOO 1 6 
INCD0017 
INCD0018 
INCD001 9 
INCD0020 
INCD002 1 
INCD0022 
INCD0023 


I 


uuuoouuuuuuuuuuuouuuoouuyuuouuoouuuouuuuuouuauuuouuou 


PLATE  1 COMPUTER  CODE. 

ASRl  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 
THIS  IS  THE  SMALL  STRAIN  VERSION. 

ILLUSTRATIVE  EXAMPLE  FOR  PLATE  PROGRAM  - FULL  MODEL. 

THIS  DUMMY  MAIN  PROGRAM  FOR  THE  PLATE  PROGRAM  REQUIRES  SUBROUTINES! 
ARRT , ASS  EMK , BCONMK , CMASSP , EAROW , EXT  L . FACT , GAUSS , 

INCOND, LMASSP .MAINP , MESHPA .MESHPM.OMULT , PRINT , 

PRTOP, PS TRN,RCON,RPLATE,SFDM,SOLV, SPRING, STRESA, 

STRESC, S TR ESP, T STEP. 

DUMMY  MAIN  PROGRAM  WHICH  PROVIDES  DIMENSIONS  FOR  THOSE  ARRAYS 
(VECTORS)  WHOSE  DIMENSIONS  ARE  PROBLEM  DEPENDENT. 

THE  FOLLOWING  ARRAYS  MUST  BE  DIMENSIONED  OY  THE  USER  AS  SHOWN*, 
DIMENSION  DELD(NDT),DIS(NDT),DISP(N0T),DISM1(NDT),DISM2(NDT) , 


MAINOOOO 
MAlNOOOl 
MAIN0002 
MA1N0003 
MAIN0004 
MAIN0005 
MAINOOOB 
MAIN0007 
MAINOOOO 
MAIN0009 
MAIN0010 
MAIN001 1 
MAIN0012 
MAIN0013 
MAIN0014 
MAIN0015 
MAIN0016 
MA1N00 1 7 
MAIN001B 
MAIN0019 


FLN(NDT) , FLVA(NDT) .FLVM(NDT) , FLVP(NOT) , ELV(NDT) , VEL(NDT) , ICOL(NDT)MAIN0020 
, lNUM(NDT) , KROW(NDT) ,NDEX(NC)T) ,STOR (NOT) .STF(MNC) .AMASS(MDIM) , 

NP(4 , MAXEL) ,NOOE(24*MAXEL),TAUSS(MAXEL,4«MNSL,9) , 

TAUSE (MAXEL .4+MNSL.9) , TAUEE(MAXEL, 4 *MNSL,9) , EPS SI (9.MAXEL) , 

EPSSO (9, MAX  EL), EPEE  I (9, MAXEL) , EPEEO ( 9 .MAXEL) , EPSEI (9 .MAXEL) , 

EPSE0(9, MAXEL) .NBC(NB) , BC(NB) ,RFM(NBE,MBWE) , ILAST(NBE) ,UCF1 (NBE) , 
UCF2(NBE).XG(NNT),YG(NNT),ZQ(NNT),XGI(NNT) .YGI(NNT) . 

TAGSS (MNXST ,4*MNSL ,3) , LNXS(MNXST ) , XSPR0P(7 .MNXST) .MATXS(MNXST) , 

TSGEE(MNYST ,4«MNSL,3) .LNYS(MNYST) ,YSPR0P(7,MNYST),MATYS(MNYST), 

LNRS(NRSS) , ISRS(NRSS) ,SC(5,NRSS) ,NVSA(MNNSA) ,NC0N(4 .MNNSA) 


WHERE, 

NNT 

NDT 

MNC 


MDIM 


MAXEL 

MNSL 

NB 

NOE 


MOWE 


TOTAL  NUMBER  OF  NODES  IN  THE  ASSEMBLED  FINITE-ELEMENT 
MODEL. 

TOTAL  NUMBER  OF  DEGREES  OF  FREEDOM  IN  THE  ASSEMBLED 
FINITE-ELEMENT  MODEL  » 6*NNT. 

ESTIMATED  NUMBER  OF  WORDS  OF  STORAGE  FOR  THE  ASSEMBLED 


MAIN0021 
MAIN0022 
MAIN0023 
MAIN0024 
MA1N0025 
MAIN0026 
MAIN0027 
MA'1N0028 
MAIN0029 
MAIN0030 
MAIN003 1 
MAIN0032 
MAIN0033 
MAIN0034 
MA1N0035 
MAIN0036 


STIFFNESS  MATRIX  (LOWER  TRIANGLE  STORED  BY  ROWS  FROM  FIRST  MAIN0037 


NONZERO  TERM). 

DIMENSION  OF  ASSEMBLED  MASS  MATRIX. 

NDT  IF  LUMPED  MASS  OPTION  IS  CHOSEN. 

MNC  IF  CONSISTENT  MASS  OPTION  IS  CHOSEN. 

NUMBER  OF  ELEMENTS  IN  FINITE-ELEMENT  MODEL. 

MAXIMUM  NUMBER  OF  MECHANICAL  SUBLAYERS  EMPLOYED. 

NOTE—  MNSL  MUST  BE  LESS  THAN  OR  EQUAL  TO  5. 

ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  PRIOR 
TO  ELIMINATION  OF  DUPLICATES. 

ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES 
ALL  DUPLICATES  HAVE  BEEN  ELIMINATED  (IF 
1 IF  IOPS  ■ 0 

ESTIMATED  MAXIMUM  BANDWIDTH  OF  ASSEMBLED  STIFFNESS  MATRIX 
AT  A CONSTRAINED  DEGREE  OF  FREEDOM  (IF  10P5  ■ 1). 

1 IF  1QP5  ■ 0 


OF  FREEDOM  AFTER 
10P5  -1). 


MA1N003B 

MA1N0039 

MA1N0040 

MAIN0041 

MAIN0042 

MAIN0043 

MAIN0044 

MA1N0045 

MAIN0046 

MA1N0047 

MAIN0040 

MAIN0049 

MA1N0050 

MA1N0051 

MA1N0052 


onnnnoonnon 


MNXST 

MNYST 


NRSS 


MNSLT4 

MNNSA 


» MAXIMUM  NUMOER  OF  X-DlRECTlON  STIFFENERS • 

* I IF  NO  X-DIRECTION  STIFFENERS. 

* MAXIMUM  NUMBER  OF  Y-DI RECTION  STIFFENERS. 

* 1 IF  NO  Y-DIRECT ION  STIFFENERS. 

V TOTAL  NUMDER  OF  ELEMENT  SIOES  ON  WHICH  LINE  RESTORING 
SPRINGS  ARE  LOCATED. 

t t IF  NO  RESTORING  SPRINGS  ARE  PRESENT. 

» 4*MNSL 

* MAXIMUM  NUMBER  OF  NODES  REQUESTED  FOR  STRAIN  OUTPUT  (IF 
10P0=1  ) . a 1 IF  I0P8  » 0 


MAI  NO 053 
MA1N0054 
MAIN0055 
MAIN005G 
MAIN0057 
MA I NO  050 
MAIN0059 
MAIN0060 
MAIN0061 
MAIN0062 
MA1N0063 
MAIN00G4 
MAIN0065 


IMPLICIT  RE AL*0( A-H, 0-Z ) 

DIMENSION  DELD(390) ,DIS (390), DISP(390) .DISMt (390), DISM2(390) , 

2FLN(390) ,FLVA(390).FLVM(390) , FLVP(390) ,ELV(390) ,VEL(390) , ICQL(390)MAIN00eG 
3 , INUM( 390) , KROW( 390 ) ,NDEX(390 ) , STOR ( 390) ,STF( 14037) , AMASS ( I 4037) , MAIN0067 
4NP(4,40) , NO OE ( 1 152) , TAUSS (40 , 12 , 9) , TAUSE(40 , 1 2 , 9 ) , TAUEE(4U , 12,9) , MAIN006B 
OEPSSI (9.40)  , EPS50( 9 ,40 ) , EPEEI (9.40)  ,EPEEO(9,40) ,EPSEl(9,4U) , MA1N00G9 

GEPSEO (9,40)  ,N0C(60) ,DC(GO) ,RFM(60,60) , I LAST (GO) ,UCF1 (BO) ,UCF2(60) .MA1N0070 
7XG(65 ) , YG(65) ,ZG(65) , XG1 (65) , YGI (65 ) , TAGSS ( 1 , 1 2 , 3) , LNXS( 1 ) , MAJN0071 

OXSPROP ( 7.1) ,MATXS(1 ),TSG£E(1 , 12,3) , LNYS ( 1 ) ,Y5PR0P(7,1 ) ,MATYS(1) , MAIN0072 
9LNRS(1 ) , ISRS(1) ,SC(5,1 ) ,NVSA(0  ),NC0N(4,6  ) MAIN0073 

COMMON/ DAS/ NDT ,NET ,MN, NO , NIRREG.MNC  MAIN0074 

COMMON  /INOUT/  MREAD.MWRITE, MPUNCH  ' MAIN0075 

C DEFINE  CARD  READER,  LINE  PRINTER  AND  CARD  PUNCH  UNIT  NUMBERS.  MAIN0076 


MREAO  = 5 

MAIN0077 

MWRITE  = 6 

MAIN0078 

MPUNCH  = 7 

MAIN0073 

READ( MREAO, 500)MAXEL,MNSL, MNXST 

.MNYST, NBE, MBWE, MNC 

MAINOOBO 

500 

FORMAT (BI 10) 

MAIN0001 

WRITE(MWRITE.GOO) 

MA1N00B2 

WRITE (MWRITE, 610) 

MAXEL 

f MAIH0083 

WRITE (MWRITE, 620) 

MNSL 

MAIN00B4 

WRITE  (MWRIT  E , 630 ) 

MNXST 

MAIN00B5 

WRITE ( MWRIT  E , 640 ) 

MNYST 

MAINOODS 

WRITE( MWRITE, 650) 

NBE 

MAIN0007 

YIR I T £ ( MWR 1 T E , 660 ) 

MDWE 

MA1N000Q 

WRITE (MWRIT  E . 670 ) 

MNC 

MAIN0009 

600 

FORMAT ( ' 1 PLATE  1 

COMPUTER  CODE 

(SMALL  STRAIN  THEORY) 

: USER  INPUTMAIN0090 

— — 

'^F'TOR- ARRAY  'DIMENSIONS  ' ) 

MAIN0091 

610 

FORMAT ('  1 , 'MAXEL 

»Mio) 

MA1N0092 

620 

FORMAT ('  ','MNSL 

- ' .110) 

MAIN0093 

630 

FORMAT ('  MNXST 

»'  .110) 

MAIN0094 

640 

FORMAT ( 1 ', 'MNYST 

* ' . 1 10) 

MAIN0095 

650 

FORMAT ( ' ','NBE 

■ ' . no) 

MAI  NO 096 

6G0 

FORMAT ('  ','MBWE 

« ' . I 10) 

MAIN0097 

670 

FORMAT ('  ','MNC 

»' .110) 

• 

MAIN009Q 

MNSLT 4=MNSL*4  / MAIN0099 

CALL  MAINP(OELO.DIS,DISP. DISMt ,D1SM2,FLN, FLVA, FLVM, FLVP, ELV, MAINO 1 00. 

2VEL, I COL, INUM.KROW.NDEX, STOR, STF, AMASS, NP. NODE, TAUSS, TAUSE, TAUEE,  MAIN0 101 
3EPSSI , EPS SO , EPEEI , EPEEO , EPS El , EPSEO ,NBC«  BC, RFM, I LAST ,UCF1 , UCF2 , MAIN0102 

4XG , YG , ZG , XG I , YGI , TAGSS , LNXS , XSPROP , MATXS , TSGEE , LNYS , YSPROP , MAT YS , MAINO 1 03 
5LNRS, I SRS , S C .MAXEL , MNS L , MNSLT  4 ,NOE , MBWE , MNXST , UNYST , NVSA , NCON)  MAIN0 104 

CALL  EXIT  MAINO 1 05 

?ND 


on  ooooo  on  nnnnnnnn 


I 


i 


SUBROUTINE  MAINP(D£L0,D1S,DISP .DISMI .D1SM2 . FLN, FLVA, FL VM, FLVP , ELV. MANP0000 
2VEL.IC0L.INUM.KR0W.N0EX. STOR, ST F, AMASS. NP, NODE, TAUSS. TAUSE. TAUEE,  MANP0001 
3EPSSI . EPSSO, EPEEI .EPEEO, EPSEI . EPSE0.N8C.BC .RFM, I LAST.UCF1 .UCF2.  MANP0002 
4XG.YG.2G.XGI , YGl.TAGSS.LNXS.XS PROP. MATXS.TSGEE.LNYS.YS PROP. MAT YS.  MANP0003 
5LNRS. I SRS.SC , MAXEL , MNSL . MNSLT 4 , NBE , MBWE . MNXST ,MN YST .NVSA.NCON)  MANP0004 

IMPLICIT  REAL*B(A-H.O-Z)  MANP0005 

MANP0006 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM  MANP0007 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980  MANP0008 

MANP0009 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R L.  SPILKER  MANPOOIO 

MANPOOI I 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM  MANP0012 

MANP0013 

DIMENSION  OELOl I) .DIS(I)  .OISP( 1 ) . 0 1 SMI ( I ) . 01 SM2 ( I ) , FLN ( 1 ) ,FLVA{ 1 ) . MANPOO I 4 
2FLVM( t ) ,FLVP( t ),ELV(1).VEL(1).  ICOL( 1 ) .INUM( 1 ) . KROW( t ) ,NOEX(  1 ) . MANPOO I 5 

3ST0R( 1 ) ,STF(  1 ), AMASS ( t). NP (4 , I ) .NODE! I ) . TAUSS (MAXEL , MN SLT4 . 9 ) , MANPOO 16 

4TAUSE( MAXEL, MNSLT4  . 9 ) . T AUEE (M AXEL , MNSLI4 , 9 ) , EPS S I ( 9 . 1 ) . E PS50 ( 9 . 1 ) MANPOO I 7 
5. EPEEI (9.1). EPEE0(9,I),EPSEI(9. 1),EPSE0(9, I ) .NBC ( I ) ,BC ( 1 ) , RFM(NBE , MANPOO I 8 
6MDWE ) . I LAST ( 1 ) . UCF 1 < 1 ) . UCF2 ( I ) , XG( I ) , YG< 1 ) . ZG< 1 ) . XG I ( 1 ) . YGI ( I ) . MANPOO 1 9 

7 T AGSS ( MNXST. MNSLT4 . 3) , LNXS(  1 ) . XSPROP( 7 . 1 ) . MATXS( 1 ) . TSGEE(MNYST , MANP0020 
6MNSLT4 , 3) , LN  YS( 1 ) , YSPROP (7,1), MATYS( t),LNRS(1).!SRS(1) ,SC(5,1)  MANP002I 
9,NVSA(  1 ) ,NC0N(4. I ) MANP002  2 

MANP0023 

THE  FOLLOWING  DIMENSION  STATEMENTS  ARE  FIXED  FOR  ALL  COMPUTER  RUNS.  MANP0024 
01  MENS  ION  SIG(5)  .EPS  (5)  ,DSR(5)  , PSR(  5 ) . ES(  6 ) , SUBW  ( 5 , 5 ) . SN0(5,‘i)  . MANP0025 
2nmSUB<  5) ,EK( 24,24) ,GBI  (24,24 ). EML (24). SIDE (9,24), EM(24. 24). SS (5)  MANP0026 
DATA  GBI/I  0,-1  0,-1  0. 1 . 0,24» 0 .0, I 0,-1  0,-1. 0,1  0,24*0  0,1.0,  MANP0027 
23*0  0,-3  0,-3  0,2*0  0,9. 0,2  0,2  0,2*0  0,-6. 0,-6  0,4  0,9*0  0.1.0,  MANP0028 
32*0  0,-2  0,2*0  0,-3  0,6. 0,1  0,2*0  0,2  0,-3. 0,-4  0,2.0.10*0.0.1.0,  MANP0029 
42*0  0,-2. 0.-3  0,0. 0,6  0,0  0 , I . 0 ,2.0 , 0 . 0,-4 . 0 .-3  0,2  0,11*0.0,1,0,  MANP0030 
52*0.0, -2  0,-2  0.4  0,2*0. 0,2*1  0 , -2 . 0 . -2 . 0 , 1 0,0. 0.1. 0.0  0,-1  0,  MANP0031 
C25*0  0,1  0,0  0,-1  0,  MANP0032 

628*0  0.3  0,3*0. 0,-9  0,-2. 0,3*0  0,6. 0.6  0,-4  0,12*0. 0,-1  0, 3*0,0,  A1ANP0033 

73  0,1. 0,3*0  0,-3  0 ,-2.0 , 2.0, 14 *0  0,3  0,0  0,-6  0,2*0  0,-2  0,0  0,  MANP0034 
84  0.3. 0,-2  0,14*0  0,-1. 0,0  0,2  0,2*0  0,1  0,0  0,-2 .0,-1  .0, 1 . 0, 3*0  0MANP0035 
9,1.0.27*0  0,1  0,32*0  0,9  0,4*0. 0,-6  0,-6. 0,4  0,16*0.0, -3  0,4*0  0,  MANP0036 
A3  0,2. 0,-2  0,16*0  0,-3  0,4*0  0,2. 0.3  0,-2. 0,16*0  0,1  0,4*0  0. -1 . 0 , MANP0037 
8-1  0,1  0.2*0  0,1  0,-1. 0,26*0  0 , 1 . 0 , - 1 . 0 , 29 *0 . 0 , 3 . 0 , 2* 0 . 0 , -9  0,0.0 . MANP0038 
C-2  0.2*0  0,6  0.6  0,-4  0,15*0.0,3  0,-6  0,3*0  0 , -2 . 0 , 3 . 0 . MANP0039 

04  0.-2  0,13*0  0,-1  0.2*0. 0,3  0,0  0, I .0,2*0 .0,-2  0,-3  0 ,2.0, 15*0.0. MANP0040 


E-1  0.2  0.3*0. 0,1  0,-1. 0,-2  0,1.0/  MANP0041 

COMMON/PLAT  £ /XDI S T . YDIST , TH  , H XL ,HYL, NEAO, NECO , DENSP , E PAN . ANUP , MANP0042 

2THALF  MANPOO 13 

COMMON /BAS/NOT .NET ,MN . NB . N I RRE G , MNC  MANP0044 

COMMON/TIM/DELTAT. T IMEF , TIME. I TIMEF, 1NCRT , I OUT, I TIME  MANP0045 

COMMON/PRNT / I0P1 , I0P2, 10P3, I0P4, I0P5, I0P6,  I0P7, IOPB  MANP0046 

COMMON  /INOUT/  MREAD.MWR ITE.MPUNCH  MANP0047 

COMMON  /MASSM/  IMASS  MANP0048 

MANP0049 

plate  computer  cooe.  manpooso 

controlling  routine  for  elastic-plastic,  large  oeflection  transient  manpoosi 
analysis  of  stiffened  and/or  unstiffeneo  FLAT  PLATES  ManP0O52 


IPASS*  I 
NDPE=24 

REA0(MREAD,500)IMESH,  IMASS,  imcont,  ipunch 
mesh  generation 


MANP0052 

MANP0053 

MANP0054 

MANP0055 

MANP0056 

MANP0057 

MANP0058 


IFIIMESH  EO.O  OR.IMESH  EQ.OCALL  MESHPA(NP, NODE. XG.YG.ZG, NBC, BC,  MANP0059 
2LNXS, LNYS.XGI ,YGI , XSPR0P .YSPROP, NXST, NY ST. 1MESH.MATXS , MATYS)  MANP0060 

1F( IMESH  EQ.21CALL  MESHPM(NP. node, XG.YG,ZG.N8C,BC.LNXS, LNYS.XGI.  MANP0061 
2YGI .XSPROP, YSPROP, NXST, NYST, IMESH, MATXS, MATYS)  MANP0062 


I 


o o 


IF(IMASS.EQ. 1 } WR I T E ( MWR I TE  , 700  ) 

IFIIMASS.EQ. 2 )WRITE (MWRITE. 710 ) 

700  FORMAT ( *0' .' PRESENT  RUN  USES  LUMPEO  MASS  MATRIX1  ) 

710  FORMAT ( ‘O' PRESENT  RUN  USES  CONSISTENT  MASS  MATRIX') 

SETUP  OF  STORAGE 

CALL  ARRT(STF, AMASS. FLVA, ICOL, INUM, KROW.NDEX .NODE , NOPE ) 

IF( IMASS.EO. 1 )GQ  TO  8 
DO  7 I * t , MNC 

7 AMASS(I)»0.0 

8 CONTINUE 
C 

C STRESS-STRAIN  INFORMATION  FOR  EACH  MATERIAL. 

C NOTE—  PLATE  MATERIAL  IS  ASSUMED  TO  CORRESPOND  TO  FIRST  MATERIAL. 
NA*3 
N 2=4 

READ(MREAD,500)NMAT 
WRITE(  MWRITE  .600) 

CON  1 =2  DO* ( 1 D0*ANUP)/3 . DO 
COM2  = 2 .00*( 0 .5DQ-ANUP)/3  .00 
DO  60  1*1 ,NMAT 
READ(MREAD,500)NSUB 
READ(MREAD,5 1 0 ) ( S I G( J) . J » 1 .NSUB) 

READ( M READ, 5 !0)(EPS(J),J*1  ,NSUB) 

READ! M READ. 5 10)DSR(I) ,PSR(I) 

ES( 1 ) = S1G{ 1 ) /EPS( 1 ) 

C OEFINE  VALUE  OF  YOUNGS  MODULUS  BASED  ON  EPS(t ) AND  SIG(1)  . 

I F ( I EQ  1)  E PAN  = ES ( 1 ) 

I F ( NSU  B- 1 )30 , 30, 1 0 
10  DO  20  IS*2.NSUQ 

20  ES(LS)*(SIG( LS)-SIG(LS-1 ) )/( EP S( LS)“EPS( LS-1 ) ) 

30  ES(NSU Bt 1 ) *0  0 

C0N3  = E S( 1 ) * ( 0 5D0-ANUP)/ ( 1 . 000  +ANUP ) 

A I = 0 ODO 

d ASUM=  0 ODO 

05  E I =0  ODO 

ESUM=0  ODO 
DO  40  LS*  1 .NSUB 
ASUM= A SUM  + AI 

A I = 1 DO-CONI  *ES( LS+1 )/(ES( 1 )“C0N2*ES(  LS+1  ) )-ASUM 
SUBW( I , LS ) = A I 
ESUM=  E SUM  + E I 

IF(LS  NE  NSUB)  E I - ( t .DO-ES( L S + 1 )/ES ( 1 ) ) ♦ ( EPS( LS+1 )-EPS( LS ) ) 
SNO( I , LS ) =ES ( 1 ) *EPS ( LS ) + CQN3  + E SUM 
40  CONTINUE 

NMSUB ( I )=NSUB 
WR1TE( MWRITE .610)1 
WRITE!  MWRITE ,615) 

DO  50  J* 1 .NSUB 

50  WRITE (MWRITE,620)J,S1G(J),EPS( J) ,SNO( I , d) , SUBW( I ,d) 

WRITE! MWRITE ,630)D$R(I), PSR(I ) 

60  CONTINUE 
500  FORMAT (2014) 

510  FORMAT (5D16  7) 

600  FORMAT < *0' PROPERTIES  FOR  USER-SPECIFIED  MATERIALS') 

610  FORMAT ( 'O' PROPERTIES  FOR  MATERIAL  NUMBER* ,13) 

615  FORMAT!'  SUBLAY ER 5X STRE SS  POINT ' ,5X STRA IN  POlNT'.SX, 
2‘YIELD  STRESS' ,2X. 'WEIGHTING  FACTOR') 

620  FORMAT!'  '.I5.4X.D16  7.1X.D16. 7, IX, D16. 7, IX, 016. 7) 

630  FORMAT!'  *. 'STRAIN  RATE  PARAMETERS:  D* 1 , 01 6 . 7 ,2X . ' P- ' , D16 . 7 ) 

C TIME-STEP  INFORMATION 

READ(MREAD,500)ITIMEF,INCRT,IOUT 
READ(MREAD.5 1 0 )DE L TAT , T I MEF 
WRITE!  MWRITE ,640) 

WRITE(MWRITE ,650)DELTAT 
WRITE! MWRITE . 660 ) T IMEF , 1 T IMEF 


MANP0063 
MANP00G4 
MANP0065 
MANP00G6 
MANP00G7 
MANPOOGB 
MANP0069 
MANP0070 
MANP007 1 
MANP0072 
MANP0073 
MANP0074 
MANP0075 
MANP0076 
MANP0077 
MANP007B 
MANP0079 
MANPOO0O 
MANPOOO 1 
MANP0002 
MANP00B3 
MANP00B4 
MANP0005 
MANP00B6 
MANP0007 
MANPOOGB 
MANP0089 
MANP0090 
MANP0091 
MANP0092 
MANP0093 
MANP0094 
MANP0095 
MANP0096 
MANP0097 
MANP0098 
MANP0099 
MANP0100 
MANPO I 0 1 
MANP0102 
MANPO 1 03 
MANPO I 04 
MANPO 105 
MANPO! 06 
MANPO I 07 
MANPO 1 08 
MANPO! 09 
MANPO 1 10 
MANPO 1 1 1 
MANPO l 12 
MANPO! 13 
MANP01 14 
MANPO 1 15 
MANPO 1 16 
MANPO 1 17 
MANPO 1 18 
MANPO 1 19 
MANPO 1 20 
MANPO I 2 1 
MANPO I 22 
MANPO 1 23 
MANPO 1 24 
MANPO 1 25 
MANPO 1 26 
MANP01 27 
MANPO ! 2d 


I 4 


I 


! 

/ 


I 
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WRIT£(MWRITE ,670) INCRT  MANPO 129 

640  FORMAT ( ‘O' , 'TIMEWISE  SOLUTION  PARAMETERS')  MANP0t30 

650  FORMAT ( 1 • , ' T IME-STEP  S 1 ZE* ' , 0 1 6 . 7 , 2X . ' SEC . ' ) MANP0131 

660  FORMAT ( 1 * , 1 RUN  WILL  TERMINATE  AT  TIME  - \ D1 6.7 , 2X , ' SEC.  OR  AT  CYCMANPQt32 
2LE  NUMBER\I8)  MANP0133 

670  FORMAT ( 1 \ 'REGULAR  PRINTOUT  WILL  BE  GIVEN  EVERY  ' » I5.2X, 'CYCLES' ) MANP0I34 

MANPO 1 35 

ESTABLISH  PRINT  OPTIONS  MANP0136 

CALL  PRTOP(NNSA,NVSA,NCON.NP)  MANP0137 

IF(MN  .GT  MNC)  WR I T E (MWR I TE , 6 75)  MN.MNC  MANPQ138 

675  FORMAT ( 1H0, 1 0( 1H* ) , ' ASSEMBLED  K REQUIRES 1 , 17, • ENTRIES. USER  HAS  DIMANP0139 


♦MENSIONED  FOR  ONLY', 17,'.  CALL  EXIT.1) 

I F ( MM  GT  MNC)CALL  EXIT 

INITIALIZATION 
NZSUBL*NZ*MNSL 
NASQ*N  A*NA 
DO  200  1*1,9 
DO  200  J=1 .NET 
EPSSI ( l ,d)*0  .0 
EP$SO( I ,d)  = 0 .0 
EPEEI ( 1 , J) =0  0 
EPEEO(  I , d)=0  .0 
EPSEI ( I ,J)=0  .0 

200  EPSEO ( I , J )=0  0 
DO  201  1=1 , NET 

DO  201  JZ*1 , NZSUBL 
DO  201  JAM  , NASQ 
T AUSS ( I , JZ , J A ) =0 . 0 
TAUEE( I ,JZ, JA)=0.0 

201  TAUSE( I , JZ, J A) =0.0 

c 

DO  301  1=1 .MNYST 

DO  301  JZ=1 , NZSUBL 
DO  301  JAM  ,NA 
301  T SGEE ( I , JZ , J A ) >0 . 0 
C 

DO  303  I * 1 , M NXST 
DO  303  JZ=1 .NZSUBL 
DO  303  JAM  , NA 

303  TAG$S(  I . JZ,UA)=0.0 

C 

PLASTW  = 0 0 
T1ME  = 0 0 
ITIME-0 
C 

C FORMATION  AND  ASSEMBLY  OF  STIFFNESS  AND  MASS  MATRICES 
C FOR  PLATE  ELEMENTS 

304  NTYPE* 1 
SL  = 0 DO 
CSA*0  DO 
SLAM=0  DO 

DO  220  LNUM* 1 .NET 
NNN 1 *NP( 1 .LNUM) 

NNN2  = N P( 2 .LNUM) 

NNN4*N  P ( 4 , LN UM ) 

XL*XGl (NNN2)~XGI(NNN1 ) 

YLMGI  ( NNN4  ) “YGI  (NNN1  ) 


MANPO 1 40 
MANPO 1 4 1 
MANPO 142 
MANPO 1 43 
MANPO 1 44 
MANPO 145 
MANPO 1 46 
MANPO 147 
MANPO 1 48 
MANPO 149 
MANPO 150 
MANPO 151 
MANPO 1 52 
MANPO 1 53 
MANPO 1 54 
MANPO 155 
MANPO 156 
MANPO 157 
MANPO 158 
MANPO 1 59 
MANPO 1 60 
MANPO I 61 
MANPO 162 
MANPO 163 
MANPO I 64 
MANPO 1 65 
MANPO 166 
MANPO 167 
MANPO 168 
MANPO 109 
MANPO 170 
MANPO 171 
MANPO 1 72 
MANPO 1 73 
MANPO 174 
MANPO 175 
MANPO 1 7 6 
MANPO 177 
MANPO 1 78 
MANPO 179 
MANPO 100 
MANPO 1 0 1 
MANPO l 82 
MANPO 1 03 
MANPO 1 84 
MANPO 185 
MANPO 1 86 


C IF  DURING  THIS  PASS  ONLY  THE  CONSISTENT  MASS  MATRIX  IS  BEING  REFORMED , MANPO 1 87 

C BYPASS  OTHER  UNNECESSARY  CALCULATIONS.  MANPO180 

I F ( I PA  SS  .EQ  2)  GO  TO  214  MANP0189 

CALL  R PLATE ( NTYPE , ANUP, XL, YL, TH, SL.CSA.SLAM, SMOI , EK , GB I , EPAN)  MANP0190 

CALL  ASSEMK( EK.STF , 1NUM, NOPE, NODE , LNUM)  MANP0191 

GO  T0( 204,21 4) , IMASS  MANP0192 

204  CALL  LMASSP (NTYPE, XL, YL.TH.SL.CSA, SMOI , EML . DENS? ) MANP0193 

LL*( LNUM-1 ) * NDPE  MANP0194 


180 


00  210  1*1.24 
LLI-LL+I 
NN=N0D  E ( LLI ) 

210  AMASS! NN)*AMASS(NN)+EML(  I) 

GO  TO  220 

214  CALL  CMASSP!NTYPE,XL,YL,TH,XF,  SL  »CSA , SMQI . EM.GBI , DENSP ) 

CALL  A SSEMK ( EM, AMASS, INUM, NOPE, NODE , LNUM) 

220  CONTINUE 

C FOR  X-DI RECT10N  STIFFENERS 
I F ( NXS  T EO  0 )G0  TO  250 
NTYPE*  2 

DO  240  NN*  1 . NXST 
SL*XSPR0P(6.NN) 

XF*XSPR0P(7. NN) 

ANUS*XSPROP(  4.NN) 

RW»XSPR0P(2. NN) 

LNUM*  L NXS  ( NN  ) 

RH  = XSPROP(  1 . NN) 

YM*XSPR0P(3, NN ) 

DEN*XSPR0P!5  , NN  ) 

CSA*RW  *RM 

SMOI =RH*RW*XF*XF+RW*RH**3/12.0 
XL=XGl (NP(2, LNUM) ) -XGI (NP( 1 , LNUM) ) 

YL=YGI (NP(4 , LNUM) )-YGI(NP{1 .LNUM)) 

C IF  DURING  THIS  PASS  ONLY  THE  CONSISTENT  MASS  MATRIX  IS  BEING  REFORMED. 
C BYPASS  OTHER  UNNECESSARY  CALCULATIONS. 

IF(IPASS  EO  2)  GO  TO  234 

CALL  RPLATE( NT Y PE . ANUS . X L . YL , R H .SL.CSA.XF  , SMO I , EK , G B 1 , YM ) 

CALL  ASSEMKf EK.STF.INUM, NOPE, NODE, LNUM) 

GO  T0{ 224,234) , IMASS 

224  CALL  LMASSPf NTYPE, XL, YL,  RH  ,SL , CSA, SMOI , EML.DEN) 

LL  = ( LN UM“ 1 ) * NOPE 
DO  230  1=1,24 
NNN  = NO  D£ ( LL+ I ) 

230  AMASS!  NNN)* AMASS (NNN)+EML( I) 

GO  TO  240 

234  CALL  CMASSP(NTYPE,XL,YL,TH,XF,SL,CSA.SMOI,EM,GBI,OEN) 

CALL  ASSEMKf  EM. AMASS, INUM, NOPE, NODE, LNUM) 

240  CONTINUE 
250  CONTINUE 

C FOR  Y-DI RECTION  STIFFENERS 
I F ( NT  S T EO  0 )G0  TQ  280 
NT  YPE a 3 

DO  270  NN* 1 , NYST 
RH=YSPROP(  1 , NN) 

RW=YSPR0P(2,  NN) 

YM=YSPR0P(3.  NN) 

ANUS=YSPROP( 4.NN) 

den*ysprop(5 ,nn) 

SL=YSPR0P(6,  NN ) 

xf=ysprop(7,nn) 

CSA  =RW  * RH 

SMOI*RH«RW*XF*XF+RW»RH**3/12.0 
LNUM=LNYS(NN ) 

NNN1  =NP(  1 .LNUM) 

NNN2=NP(2. LNUM) 

NNN4=N  P ( 4 , LNUM) 

XL  = XG  I (NNN2)  -XGKNNN1  ) 

YL=YGI (NNN4)-YGI(NNN1) 

C IF  DURING  THIS  PASS  ONLY  THE  CONSISTENT  MASS  MATRIX  IS  BEING  REFORMED, 

C bypass  other  unnecessary  calculations. 

1F(IPaSS  EO.  2)  GO  TO  264 

CALL  HPLATE(NTYPE,ANUS,XL,YL,RH  .sl.csa.xf  ,SMOI ,EK,GBI ,YM) 

CALL  ASSEMKf  EK.STF, INUM, NOPE, NODE, LNUM) 

GO  T0( 254,264) . IMASS 

254  CALL  LMASSP(NTYP£,XL,YL.RH  ,SL .CSA.SMOl .EML.OEN) 
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260 


264 


270 

280 


LL*(LNUM-1)*N0PE 
DO  260  1*1 .24 
nnn*node(ll+i) 

AMASS ! NNN ) * AMASS! NNN )+EM  L ( I ) 

GO  TO  270 

CALL  CMASSP( NTYPE.XL.YL.  TM.XF, SL.CSA.SMOI , EM.GBI ,OEN) 
CALL  A SSEMK ( EM. AMASS. INUM. NOPE . NODE . LNUM) 

CONTINUE 
CONTINUE 


MANP0261 

MANP0262 

MANP0263 

MANP0264 

MANP0265 

MANP0266 

MANP0267 

MANP0268 

MANP02G9 


C IF  DURING  THIS  PASS  ONLY  THE  CONSISTENT  MASS  MATRIX  IS  BEING  REFORMED . MANPO 270 
C BYPASS  OTHER  UNNECESSARY  CALCULATIONS.  MANP0271 

IFdPASS  .EO  2)  GO  TO  920  MANP0272 

I F ( 1 PASS  EQ  3 .AND.  NELES  .EQ.  0)  GO  TO  290  MANP0273 

IF(IPASS  EO  3)  GO  TO  741  MANP0274 

C FORMATION  AND  ASSEMBLY  OF  EQUIVALENT  STIFFNESS  MATRIX  FOR  LINE  MANP0275 

C TRANSLATIONAL  AND  TORSIONAL  LINEAR  RESTORING  SPRINGS  APPLIEQ  TO  MANP0276 

C SIOES  OF  ELEMENTS  MANP0277 

REA0(MREAD.500)  NELES  MANP0278 

IF(NELES  EO  0)GO  TO  289  MANP0279 

WRI  TE(  Ma'RI  TE  , 720)  MANP0200 

WRITE(MWRITE ,730)  MANP0201 

DO  208  1*1, NELES  MANP0282 

READ(MREAD,500)LNUM,ISIDE  MANP0283 

REA0(MREAD,510)(SS!d),d.1,5)  MAIIP0204 

LNRS( I ) * LNUM  MANP0285 

ISRS(  I )*ISIDE  MANP0286 

DO  285  K*  1 , 5 MANP0287 

28S  SC(K, 1 )*SS(K ) MANP0288 

WRITE! MWRITE  ,740)  LNUM,  I S IDE. { S S (d ) . d* 1 , 5)  MANP0289 

NNN1 =NP( 1 , LNUM)  MANP0290 

NNN2*NP(2.LNUM)  MANP0291 

NNN4*N  P ( 4 , LNUM)  MANP0292 

XL*XGI  (NNN2) -XGI(NNN1  ) MAIIP0293 

YL=YGi (NNN4J-YGI (NNN1 ) MANP0294 

CALL  SPRING! EK.SS, ISIDE. XL. YL)  MANP0295 

28B  CALL  ASSEMK! EK.STF . INUM. NOPE, NOOE, LNUM)  MANP0296 

720  FORMAT ( 'O' .' LOCATION  AND  PROPERTIES  OF  LINE  TRANSLATIONAL  AND  ROTAMANP0297 
2T10NAL  LINEAR  RESTORING  SPRINGS')  MANP0298 

FORMAT ('O'. ’ELEN  NO  ',2X.  ‘ELEM.  SIDE' ,8X . 'KX( LB/IN/I N) • ,BX,  MANP0299 

2'KY!LQ/IN/IN)',8X, ' KZ! LB/ IN/IN )'. 2X. ' K-THETA( IN- LB/RAO/ IN) ' ,2X,  MANP0300 
3‘K-PSI ( IN" LB/RAD/ IN) * ) MANP030I 

FORMAT!'  ' . 15, 6X. 1 5 , 5X,  5D20 . 7 ) MANP0302 

GO  TO  289  MANP0303 

C RESTORE  THE  SPRING  STIFNESS  MATRICES.  MANP0304 

741  DO  743  1*1. NELES  MANP0305 

LNUM=  L NRS ( I ) MANP0306 

ISIDE* ISRS( 1 ) MAHP0307 

DO  742  KAY* 1,5  MANP0308 

SS(KAY )*SC(KAY , 1)  MANP0309 

NNN1*NP(t  .LNUM)  MANP0310 

NNN2*NP(2.LNUM)  MANP0311 

NNN4  = N P ( 4 , LNUM)  MANP0312 

XL*XGI (NNN2)-XGI<NNN1 ) MANP0313 

YL*YGI !NNN4)-YGI(NNN1)  MANP03I4 

CALL  SPRING! EK.SS.  ISIOE, XL, YL)  MANP0315 

CALL  ASSEMK(EK,STF, INUM, NDPE, NODE. LNUM)  MANP03I6 

CONTINUE  MANP03 I 7 

I F ( IMCONT  EO  1 )G0  TO  334  MANP0318 

IFdPASS  GT  1)  GO  TO  920  MANP03t9 

GENERATE  PLATE  INITIAL  CONDITIONS  (POS.  AND  VELOCITY)  MANP0J20 

CALL  INCOND(DISP.VEL.NP.NODE.XGI.YGI)  MANP032 1 

CONSTRAIN  INITIAL  CONDITIONS.  MANP0322 

CALL  RCON(VEL.NBC)  MANP0323 


730 


740 


742 


743 

289 
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CALL  RCON(DI SP.NBC) 

C CALCULATE  KINETIC  ENERGY  IMPARTED  TO  PLATE  BY  INITIAL  VELOCITY 
C DISTRIBUTION. 

C 1NET 1*0  0 

GO  TO  (291,2 93)* 1 MASS 

291  CONTINUE 

DO  292  1*1 ,NDT 

292  CINETI *C1NET I+AMA$S( |)*VEL(I)*VEL(I)/2.0 
GO  TO  296 

293  CONTINUE 

DO  294  1*1 .NOT 

294  FLVM( I )=0  0 

CALL  OMULT ( AMASS, VEL* FLVM, ICOL , KROW.NDEX) 

DO  295  1*1, NOT 

295  CINETI =CINET I +VEL( I ) ♦FtVM( I )/2  .0 
C WORK  AT  INITIAL  TIME  IS  ZERO. 

296  WFORCE  =0.0 
334  CONTINUE 

HOT =0  5D0*DE  LTAT 
C CALCULATE  TIME  STEP  BOUND. 

IFdPASS  EO  1JCALL  TSTEP(STF, AMASS, NBC. 8C, ICOL, INUM, KROW, NDEX, 
1 FLN.DELD) 

IF(IPASS  EO  3 .AND.  IMCONT . EQ. 1 ) GO  TO  290 
I F ( IMCONT  £0  1 ) GO  TO  2891 

C CALCULATE  USER  EXTERNAL  LOAD  VECTOR  AT  INITIAL  TIME. 

I TT  = 1 

CALL  EXTL(ELV. ITT, NP. NODE. XGI, YGI.GBI) 

C CALCULATE  POWER  AT  INITIAL  TIME  STEP. 

POWMP*  0 DO 
DO  8999  1*1 . NOT 
0999  PO*MP* POWMP+ELV( I ) *VEL(  I ) 

C SET  UP  EO  A 117  FOR  THE  INITIAL  TIME  AND  SOLVE  FOR  ACCELERATIONS. 

C ALSO  SET  INITIAL  EQUIVALENT  FORCES  TO  ZERO. 

DO  900  1=1 .NOT 
STQR( I ) *0  DO 
FLN  ( I ) = 0 DO 

900  FLVM( 1 > = ELV ( I)+FLN(I) 

CALL  OMULT ( S TF , VEL , STOR,  ICOL, KROW, NDEX) 

C FINISH  FORMING  R H S OF  EQUATION 
DO  902  1=1. NOT 
902  FLVM(I  )=FLVM(l)-STOR(I) 

C SOLVE  FOR  ACCELERATIONS  AT  INITIAL  TIME. 

GO  TO  (904.908)  . IMASS 
C FOR  LUMPED  MASS  MATRIX  OPTION 
904  DO  906  1=1 .NOT 

I F ( AM A SS ( I ) .EQ.  0 DO)  STQR(I)«Q.DO 
I F( AMASS ( I ) EQ  0 DO)  GO  TO  906 
STOR (I ) =FLVM (I)/AMASS(I) 

906  CONTINUE 
GO  TO  910 

C FOR  CONSISTENT  MASS  MATRIX  OPTION. 

900  CALL  SOLV(AMASS. FLVM, STOR. ICOL, KROW, NDEX) 

910  CONTINUE 

C PRINTOUT  FOR  INITIAL  VALUES 

I F ( IOP 5 EQ  O.OR.N8  EQ.O)GO  TO  320 
DO  319  U1.N0 
34  9 UCF1 ( I ) =0  0 
320  CONTINUE 

C ZERO  OUT  VECTOR  FLVM  FOR  USE  IN  PRINT. 

DO  91  1 1 = 1 ,NDT 

91 1 FLVM( I )*0  DO 


MANP0324 
MANP0325 
MANP0326 
MANP0327 
MANP0328 
MANP0329 
MANP0330 
MANP0331 
MANP0332 
MANP0333 
MANP0334 
MANP0335 
MANP0335 
MANP0337 
MANP0338 
MANP0339 
MANP0340 
MANP034 1 
MANP0342 
MANP0343 
MAN  PO  34  4 
MANP0345 
MANP0346 
MANP0347 
MANP0348 
MANP0349 
MANP0350 
MANP035I 
MANP0352 
MANP0353 
MANP0354 
MANP0355 
MANP0356 
MANP0357 
MANP0358 
MANP0359 
MANP0360 
MANP036 1 
MANP0362 
MANP0363 
MANP0364 
MANP03G5 
MANP0366 
MANP0367 
MANP03C8 
MANP0369 
MANP0370 
MANP0371 
MANP0372 
MANP0373 
MANP0374 
MANP0375 
MANP0376 
MANP0377 
MANPO370 
MANP0379 
MANP03B0 
MANPO301 
MANP03B2 
MANP0383 
MANP0384 


CALL  PRINT(D1SP,XG,YG,ZG, EPS SI , EPSSO, EPEEI , EPEEO , EPSE I .EPSEO.XGl , MANP0385 
2YGI ,NP .GDI .STOE  .NODE . RFM.N0E , MBWE . I LAST ,UCF1 , NBC . ICOL , NMSU8 , SUBW , MANP0306 
3TAUSS, TAUEE, T AUSE . MAXEL . N2SUBL , NXST . LNXS . MATXS , XSPROP . T AGSS , MNXST . MANPQ307 
4NYST, LNYS.MATYS, YSPROP.TSGEE. MNYST.NE LES.LNRS.ISRS.SC, EK, IMASS,  MANP0388 
5 AMASS, VEL, FL VM, KROW, NDEX .WFORCE, CINETI ,NNS A, NVS A, NCON)  MANP0389 
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IF( IMASS. EG.  1)  GO  TO  920 
C MUST  RECREATE  THE  CONSISTENT  MASS  MATRIX. 

I PASS  * 2 
DO  914  1*1 , M N 
914  AMASS ( I ) *0  DO 
GO  TO  304 
920  CONTINUE 

I F 1 1PASS  EQ  3)  GO  TO  290 
I TT  = I T T + 1 

C CALCULATE  USER  EXTERNAL  LOAD  VECTOR  AT  SECOND  TIME  STEP. 

CALL  EXTL(ELV,ITT.NP,N0DE.XGI , YGI.GBI ) 

ITT=ITT-t 

C FIND  DISPLACEMENTS  AT  SECOND  TIME  STEP  BY  SOLVING  EQ . A. 116. 
C0NA=6  DO/DE LTAT 
CONB  = CONA/DE  LTAT 
DO  922  1*1, NOT 

FIVM( I ) =2  DO  *STOR( I )+CONA*VEL( 1 )+CQNB*DI SP ( I ) 

922  FLVA{I ) =ELV( I)+FLN(I) 

GO  TO  (924,930),  IMASS 
C LUMPED  MASS 
924  DO  926  1=1, NB 
KK  = NBC(  I ) 

926  AMASS ( KK  ) *0  DO 
DO  928  1*1 ,NDT 
L*  I + 1 NUM(  I) 

FLVA( I ) = F LV A ( I ) +AMASS( I ) *FLVM( I) 

928  STF(L) =STF(L  ) +CONB* AMASS ( I ) 

GO  TO  938 

930  CALL  BCONYK( AMASS, BC , ICOL, INUM , NBC) 

CALL  QMULT(AMASS.FLVM.FLVA,ICOL,KROW,NDEX) 

DO  932  1=1 ,MN 

932  STF(I)=STF(I ) ♦CONB* AMASS ( I ) 

938  CALL  FACTISTF, ICOL, KROW . NOEX , I DET .MWRITE, INUM) 

CALL  SOLV(STF.FLVA,DIS, ICOL.KROW.NDEX) 

DT2*DE  LTAT* ♦ 2 
C0NC=0  5D0/D  E LTAT 
C EVALUATE  LEFT  SIDE  OF  EQS.  A.115C  AND  OF  A. 118. 

DO  940  1=1. NOT 

DISM1 ( l ) =DT2  * STOR ( I) +2  000*015 P( I )-DIS( I ) 

940  VEL( I ) =CONC* (3  00*DIS(I)-4  ODO *DISP( I )+DISM1 (I) ) 

C CALCULATE  POWER  FOR  SECOND  TIME  STEP. 

POWMP 1 * 0 . DO 
DO  942  1=1. NOT 

942  POWMP  1 = POWMP  1 ■* ELV ( I )*VEL  ( I ) 

Wt-ORCE  = WFGRC  E+HDT* ( POWMP +PQWMP  1 ) 

C GO  BACK  AND  RECREATE  ASSEMBLED  M AND  ASSEMBLED  K. 

2891  DO  2892  I*t , MNC 

2892  ST F ( I ) =0  ODO 
1 PASS*  3 

C DEFINE  NUMBER  OF  TERMS  IN  MASS  MATRIX. 

2893  1F( IMASS  EQ . 1)  IMEND-NDT 
I F( IMASS  EQ  2)  IMEND*MNQ 
DO  2094  1*1 , IMEND 

2094  AMASS ( I )=0  ODO 
GO  TO  304 
290  CONI INUE 

DO  333  1 = 1.  NDT 
333  STOR ( I ) * ELV ( I) 

IF! IMASS. EQ  2 )G0  TO  322 
00  321  1=1, NDT 

321  FLVM( I ) *ELV ( I )+2.0+AMASS( I )*(VEL( l)+DISP(  I )/OELT AT )/0E LTAT 
GO  TO  325 

322  CONTINUE 

DO  323  1=1, NDT 

323  FLVM( I ) *2  0* ( VEL( I )*DISP ( I )/DE LTAT )/DELTAT 
CALL  OMULT(AMASS, FLVM, ELV. ICOL , KROW. NDEX) 


MANP0390 
MAN PO 391 
MANP0392 
MANP0393 
MANP0394 
MANP0395 
MANP0396 
MANP0397 
MANP0398 
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MANP0429 
MANP0430 
MANP04  3 1 
MANP0432 
MANP0433 
MANP0134 
MANP0435 
MANP0436 
MANP0437 
MANP0438 
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DO  324  I-l  ,NDT 

324  FLVM( I )*ELV(  I ) 

325  CONTINUE 

I F l J OP 5 EQ.O ,OR.NB.E0.0)GO  TO  329 

00  327  I»1  ,NB 
1 1 *NBC ( l ) 

327  UCF2  ( 1 ) ■ FLVM (II) 

329  DO  330  I«1 .NDT 

330  FLVA(I)*0.0 
COND=  2 DO/DT  2 

C FORM  LHS 

GO  T0( 297,31 0) , I MASS 
297  CONTINUE 

DO  307  1I«I .NDT 
L*lI-i-INUM(II  ) 

307  STF(L)  *ST  F ( L )-fCONO*  AMASS  (II) 

CO  TO  3IB 
310  CGrTlNUE 

DO  315  1 1 3 1 , MN 

315  ST  F ( II  )*STF( II  )+C0ND»AMASS(II) 

318  CONTINUE 

I F ( I0P5.EQ. 1 (CALL  EAR0W(STF,NBC.IC0L.INUM,RFM,ILAST,NBE,M8WE) 
c 
c 

C CONSTRAIN  LHS 

CALL  BCONMK( STF.BC. ICOL, INUM.NBC) 

c 

c 

C FACTOR  LHS 

CALL  F ACT (ST  F. ICOL .KROW. NOEX. I DET.MWRITE,  INUM) 

1 F(  If.lCONT  £0  0)  GO  TO  340 
C INPUT  FOR  CONTINUATION  RUN 

335  READ(MREAO.BOO)  I T T .CINE T I . WFORCE , P0WMP1 
READ  ( MREAD. 810)(DIS(I),1*1,NDT) 

READ  ( MREAD. 810) (DISP( I ) , 1-1 .NOT) 

READ  ( MREAD, 810)(VEL(I),I*1,NDT) 

READ  ( MREAD. B10j(FLVA(I  ) .1*1  .NDT) 

I f ( IOP 5 £0  1 AND  NB  GT  0 JREAO  (MREAO . 810) ( UCF2( 1 ) . I* t . NB) 

READ  ( MREAD, 810) (STOR( 1 ) , I =1 .NOT) 

READ  (MREAD. 810) (( ( TAUSS ( 1 . J.K  ) , 1*1 .NET) , d*t ,MNSLT4).K«t ,9) 
READ  ( MREAD, BI0)(((TAUEE(I.d.K),I«l,NET).J*l.MNSLT4),K.1.9) 
READ  (MREAD, 810) (( ( TAUSE ( I . J . K ) ,1*1 ,NET),d*1 .MNSLT4) ,K*1 ,9) 

I F (NXS  T EQ  0 )G0  TO  336 

READ  (MR£A0,81O)(((TAGSS(I,J.K),I*1,NXST),d«1,MNSLT4),K*1,3) 

336  CONTINUE 

IF(NVST  EO  0 )G0  TO  337 

READ  ( MREAD. 810) (( (TSGEE(I.d.K), 1*1 .NYST) , d*1 .MNSLT4) , K*1 ,3) 

337  NNT  -NDT/6 

DO  338  1-1 , NNT 
NN- ( I ~ 1 )*6 

XG(  I ) = XG I(I)+DISP(NN  + 1) 

YG( I ) = Y G I ( 1 ) +0ISP(NN  + 2) 

338  ZG(l)=ZG(I)+DISP(NN+3) 

c begin  loop  over  time  steps 

340  ITT-ITT+! 

00  350  J=1  .NDT 

OELDl  J ) = DIS( J)-DISP(J) 

DISMI ( J)-DISP(J) 

OISP( J )=DIS( d) 

FLN( J) -FLVA( J) 

FLVM(d  )»0.0 
350  FLVA(j)-0.0 

P0WM-P0V.MP1 
NNT-NDT/6 
00  351  U* 1 ,NNT 
NN- ( J- I )-6 
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MANP04B5 
MANP04B6 
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MANP0489 
MANP0490 
MANP0491 
MANP0492 
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MANP0494 
MANP0495 
MANP0496 
MANP0497 
MANP0498 
MANP0499 
MANP0500 
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MANP0503 
MANP0504 
MANP0505 
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XG(J).XG(J)  + 0ELD(NN+1) 

YG(U)*YG(J)+0ELD<NN+2) 

351  ZC(U)«ZG(«J)  + 0EL0(NN+3) 

IF(I0P5.EQ  0 .OR.NB.EQ.OJGO  TO  353 
DO  352  1*1, NB 

352  UCFI ( I )*UCf 2 ( I ) 

353  CONTINUE 

C CALCULATE  WORK  OF  EXTERNAL  FORCES. 

POWMP 1*0  DO 
DO  355  1*1, NOT 

355  POWMP 1 * POWMP 1+ST0R( I )*VEL( I) 

WFQRC£=WFORCE*HOT*( P0WM4-  POWMP 1 ) 

C CALCULATE  equivalent  loads 

c for  plate  element 

c calculate  equivalent  loads  for  plate  element 

CALL  STRESP( OISP.DELD.FLVA.ITT .NODE, MAXEL, TAUSS, TAUEE , TAUSE , 
2EPSSI , EPSSO. EPEEl . EPEE0 , EPSEI , EPSEO , PLASTW , XGI , YGI , NP , STDE.G81 , 
3NMSU9, DSR, PS R. SUBW.SNO  , NZSUBL  ) 

C FOR  X~DI RECTION  STIFFENERS 
I F ( NXS  T EQ  0 )G0  TO  360 

CALL  STRESA(  DISP.DELD.FLVA.ITT , NODE .MAXEL , MNXST , TAGSS, PLASTW. XGI, 
2 YGI ,NP ,STOE. GBl. NMSUB, DSR, PSR, SUBW.SNO  , NXST , XS PROP , LNXS .MATXS , 
3NZSUBL  ) 

360  CONTINUE 

C FOR  Y-DIRECTION  STIFFENERS 

I F(NYS  T . EQ  0 ) GO  TO  370 

CALL  STRESCf  DISP.DELD.FLVA.ITT ,NOOE .MAXEL. MNYST . TSGEE , PLASTW, XGI , 
2 YGI .NP .STDE.GBI , NMSUB , DS R , PSR , SUBW.SNO  ,NYST , YSPROP. LN YS.MATYS, 
3NZSU3L  \ 

370  CONTluut 
C PRINT  OUTPUT 

IT  H Es I TT- 1 
TIME=1 TlME*DELTAf 

CALL  P RINTt D I SP.XG.YG.ZG.EPSSl .EPSSO. EPEEl . EPEEO , EPSE I . EPSEO . XGI . 
2 YGI .NP .GDI . SIDE  . NODE . RF M . NBE . M3WE . I L AST . UCF 1 . NBC . I COL . NMSUB. SUBW 
3TAUSS, TAUEE , T AUSE . MAXEL . NZSUBL .NXST . LNXS , MATXS . X SPROP . TAGSS  MNXST 
4NYST. LNYS.MA T1S. YSPROP. TSGEE. MNYST. NELES.LNRS.ISRS.SC, EK. IMASS, 

5 AMASS.  VEL,  FL VM.  KROW, NDEX  , UFORC  E, CINET I , NNS A, NVSA  , N'CON) 

C CALC  EXTERNAL  LOADING  VECTOR 

CALL  EXTL(ELV.ITt>1 ,NP, NODE .XGI .YGI .GBl) 

DO  375  1*1 .NOT 
375  STOR( I ) = ElV ( I ) 

C FORM  RH§ 

I F ( IMA  SS  EQ  2 ) GO  TO  382 
DO  3B0  1=1 .NOT 

380  F LVM( I ) *-(2 . 0*FLVA( I )-FLN( I ) ) + ELV( I )+2 . 0* AMASS( I)*(V£L(I)  + DISP(X) 
2/CELTATJ/DELTAT 
GO  TO  307 
382  CONTINUE 

DO  304  1=1 , NOT 

FLVM(  I )«2  0*  (VEL(I)+DISP(I  )/DE  LTAT)/DELTAT 
304  E LV ( I ) =ELV( I )-( 2. 0«FLVA( X )-FLN ( I ) ) 

CALL  OMULT(AMASS,FLVM,ELV. iCOL .KROW.NDEX) 

00  306  1=1. NOT 

386  FLVM( I ) = ELV(  I) 

387  CONTINUE 

l F ( 1 OP 5 EQ  0 OR . NB . EQ.O ) GO  TO  309 
DO  300  1=1 .NB 
1 1 = NDC  ( I ) 

388  UCF2( I ) = FLVM(  1 1 ) 

C CONSTRAIN  RHS 

389  CALL  R CON ( F L VM , NBC ) 

C SOLVE  FOR  DISPLACEMENTS 

CALL  SOLV(STF,FLVM,DIS, ICOL. KROW.NDEX) 

C CALCULATE  VELOCITY 
DO  390  1*1 , NDT 
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390  VELl I ) =(3  0* 
C CHECK  FOR  CONT 
ll’l  ITIME  LT 
1 F ( I PUNCH  EQ 
WRITE( MPUNCH 
WRITE(  MPUNCH 
WR I TE ( MPUNCH 
WRITE( MPUNCH 
WRITE( MPUNCH 
IF(IOP5.E0  1 
WRITE( MPUNCH 
WR I T E ( MPUNCH 
WR  I TE ( MPUNCH 
WRITE( MPUNCH 
I F ( NXS  T EQ  0 
WR1TE(  MPUNCH 
400  CONTINUE 

1 F (NVS  T EQ.O 
WR1TE(  MPUNCH 
410  WR I TE  ( MWR I T E 
420  RETURN 
800  FORMAT (16, 3D 
810  FORMAT (5015. 
820  FORMAT ( 'O'  , 1 
END 


D I S ( I ) 
INUATI 
ITIMEF 
. 0 ) GO 
.800) 

. 81 0 ) ( 
. 81  0 ) ( 
» 81 0 ) ( 
.810)  ( 
AND  N 
.810)  ( 

. 8 1 0 ) ( 
, 81  0)  ( 

. 81  0 ) ( 
)G0  TO 
.810)  ( 


-4.0*D 

ON 

• AND.  T 
TO  420 
ITT, Cl 
DIS(I) 
D I SP ( I 
VEL(I) 
FLVA(  I 
B.GT  0 
STOR ( I 
((TAUS 
( (TAUE 
((TAUS 
400 

( (TAGS 


I SP( I ) +DISM1 (I))/(2.0*DELTAT) 

IME. LT .TIMEF)GO  TO  340 
NET  I , W FORCE , P0WMP1 

,1  = 1 , N DT ) j 

) . 1=1 . NOT) 

. 1=1 .NDT) 

) . 1=1 . NDT) 

) WRITE (MPUNCH, 810) ( UCF2 ( I ) , 1=1 ,NB) 

) , 1=1 , NDT) 

S( I.J, K ) , 1= 1 .NET) , J=1 .MNSLT4) ,K=1 .9) 
E( I ,d, K) .1=1 .NET) , J=1 .MNSLT4) , K=1 .9) 
E(  I ,d,  K) ,1  = 1 ,NET) , J = 1 .MNSLT4) , K=1 ,9) 

S(I,J,K),I=1 , NXST ) , J=1 .MNSLT4 ) ,K=1 ,3) 


)G0  TO  410 

,810) ( ( (TSGEE( I , J, K) ,1=1 .NYST) , J=1 .MNSLT4) ,K«1 ,3) 
,820) ITT 


15.7) 

7) 

CONTINUATION  CARDS 


HAVE  BEEN  PUNCHED  AT  ITT.' ,17) 


C 

C 

I-*  C 
CD  r 

cn  1 


SUBROUTINE  P R I NT ( D I SP , XG . YG , ZG  . EPSS I , EPSSO , EPEE  I , EPEEO . EPSE I . 
2EPSE0 , XGI , YGI  ,NP , GBI ,STDEP, NOD  E , RFM , NBE , MBWE , I LAST ,UCF 1 .NBC, I COL, 
3NMSUB, SUBW, T AUSS , T AUEE , T AUSE , M AXEL, NZS, NXST, LNXS, MATXS .XSPROP, 
4TAGSS, MNXST, NYST, LNYS.MA  T YS , YS PROP , TSGEE , MNYST , NE LES , LNRS , I SRS , SC 
5EK, IMA SS, AMASS, VEL ,FLVM, KROW , N DEX , WFORCE , C INETI , NNSA , N VSA , NCON) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SP1LKER 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

IMPLICIT  REA  L»8 ( A-H , 0-Z ) 

DIMENS  ION  DI SP( 1 ) , XG( 1 ) , YG( 1 ) , ZG( 1 ) ,EPSSI (9, 1 ) , EPSS0(9 , 1 ) , EPEE  I (9 
2 , 1 ) ,EPEE0(9,  1 ) , EPSFI(9, 1 ) , EPSE0(9, 1 ) ,XGI( 1 ) , YGI ( 1 ) ,NP( 4, 1 ) , GBI (24 
3,24) ,STDEP(S  ,24)  ,N0DE(1 ) , EP(9)  ,EL0NG(2) , RFM ( NBE , MBWE ) , I LAST (1 ) . 
4UCF1 ( 1 ) , NBC < 1 ) . ICO L ( 1 ) , R F ( 6) , NMSUB( 1 ) , AGAUS ( 6 ) . AGAUW( 6 ) , ZGAUS (6) , 
5ZGAUW ( 6 ) SU6W(5,1)  TAUSS ( MAXE L , NZS , 9 ) , TAUF F < MAXE L NZS  ql  TAUSF 
6 (MAXE L .NZS, 9 ) . LNXS ( 1 ) ,MATXS(1 ) .XSPROP (7, 1 ) , TAGSS( MNXST  ,NZS,3) , 

7 LNYS ( 1 ) , MATY  S ( 1 ) , Y SPROP ( 7 , 1 ) , T SGEE ( MN YST , N ZS , 3) ,LNRS(1  ),ISRS(1), 
BSC (5,1  ) ,SS(5  ) ,EK(24,24), EQ(24)  , STOR (24) , AMASS( 1 ) . VEL( 1 ).FLVM( 1). 
9KR0W( 1 ) , NDEX  ( 1 ) ,NVSA(1 ) . NCON (4 , 1 ) 

COMMON /P LA TE/XDIS, YOI S , T H , HX , H Y , NEAD , NECD , DSP , EPAN , ANU P , THALF 
COMMON /BAS/N  DT , NET , MN , NB . NI RREG , MNC 

COMMON /T1M/DELT AT , TIMEF , TIME, ITIMEF , IMCRT , IOUT, ITIME 
COMMON/ ASP/S  LASP(  50 ) ,ELASP(  50)  ,EL’IR(2,50)  ,NASP,  LNASP(50) 

COMMON /PRNT/  I0P1 , ICP2 , I0P3 , 10P4 , 10P5 . 10P6 , I0P7, IOPB 
COMMON /GSOUT /NEGS , LNGS 1 2 00 ) 

COMMON /SSOUT/NXSS, NYSS, I MXSS( 2 00 ) , INYSS(200) 
tWimui,  / .NoG  ,/  ..IP  E D , Mh,  R I T E , Mr  Ut.Cri 

THIS  SUBROUTINE  C0N1R0LS  THE  CALCULATION  (AS  NECESSARY)  AND  OUTPUT 
OF  ALL  QUANTITIES  (DISPLACEMENTS,  STRAINS.  ENERGIES,  ETC.)  REQUESTED 
BY  THE  USER  AT  REGULAR  INTERVALS  DURING  THE  TIMEWISE  SOLUTION  FOR 
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PRNT0028 
PRNT0029 
PRNT0030 
PRNT0031 
PRNT0032 
PRNT0033 
PRNT0034 
PRNT0035 
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C THE  PLATE  PROGRAM. 

C 

X F ( IT  I ME  LE.  1 )GO  TG  10 
II I = I T IME/INCRT+INCRT-IT IME 
I F ( 1 1 I ME . 0 ) GO  TO  500 
10  CONTINUE 

WRI TE ( MwRI TE , 600 ) I T IME , T IME 
C NODAL  DISPLACEMENTS  AND  LOCATION. 

IF(IOPl.EQ.O) GO  TO  30 
WR I TE ( MWRI TE .610) 

NNT -NDT/6 
DO  20  NN  = 1 , NNT 
Jd=(NN-1 ) *6 
01 = JJ  + 1 
U 2 = J J + 6 

20  WR I TE ( MWR 1 TE , 620 ) NH , ( DI S P ( 0 ) ,J=J1 ,J2) ,XG(NN) ,YG(NN) , ZG ( NN) 

30  CONTINUE 

C REACTION  FORCES  AT  CONSTRAINED  NODES. 

I F ( I0P5  EQ  0 . OR  NB . EO . 0 ) GO  TO  39 
WR I TE ( MWR I TE , 550 ) 

WRI TE( MWRI TE ,560) 

C DETERMINE  NODE  NO.  OF  FIRST  CONSTRAINED  D.O.F.. 

NC=NBC  ' 1 ) 

NN 1 = ( N C- 1 )/6  + 1 

00  31  1=1,5 

31  RF ( I ) = 0 0 

C LOOP  OVER  CONSTRAINED  D.O.F.. 

DO  38  I NB= 1 , NB 

C DETERMINE  NODE  NO.  OF  PRESENT  CONSTRAINED  D.O.F.. 

NC=NBC ( IN3 ) 

00  NN2=(NC-1  )/6  + 1 

-NC  IF  NN2  NE.NN1,  CALC.  OF  RF  FOR  NODE  NN1  IS  COMPLETE-PRINT  OUT 
C VALUES 

1 F ( NN2  EO . NN 1 ) GO  TO  33 

wA  i TE  ^ mwSIT  E , 570  jNNI  , (RF(J)  ,J  = 1 ,6) 

NN 1 =NN  2 
DC  32  1=1,6 

32  RF(I)=0.0 

33  CC=-UCF1(INB) 

NN  = 0 

I B= I CO  L ( NC ) 

I E = I LA  ST ( INB  ) 

DO  34  1 = I B , I E 
NN  = NN+  1 

34  CC  = CC+RFM(INB,NN)*DISP(I  ) 

NDF  = NC - ( NN1 - 1 ) *6 

RFINDF  ) = CC 

38  CONTINUE 

WP I TE ( MWR ITE ,570)NN1 , (RF (J) ,J= 1 ,61 

39  CONTINUE 

C CENTROI D AL  STRAIN  INFORMATION. 

IF( I0P2  EQ  0 ) GO  TO  50 
WP  I TE  ( M *.'R  I T E ,630) 

WR  I TE  ( MWRI  TE  .640) 

WRITC( MaRITE ,644) 

DO  40  LNUM=1 .NET 
G1 1 =EP  SS I ( 5 , LNUM) 

G22  = EP  EE  I ( 5 , LNUM) 

G1  2 = EP  SE I ( 5 , LNUM) 
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PRNT0070 
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rnii  i ww  . o 
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PRNT0093 

PRNT0094 
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CALL  PSTRN(G11 , G22 , G1 2 , S X , DIRI ) 

G1  1 =EP  SSQ ( 5 , LNUM) 

G22-EP  EEO ( 5 , LNUM ) 

Gl 2=EP  SEQ( 5 , LNUM) 

CALL  PSTRN(G1 1 ,G22 ,G12, SO.DIRO ) 

40  WR I T£ ( MWRITE , 650 ) LNUM , EP SS I (5 , LNUM) , EPSSO ( 5 , LNUM ) , EPE E I ( 5 , LNUM) , 

2EPE£0( 5, LNUM  ) , EPSE I ( 5 , LNUM) , EP SEO( 5 , LNUM) , S I , SO , DI R I , D 1 RQ 

50  CONTINUE 

C NODAL  AVERAGE  STRAINS. 

1 F ( I0P8.E0  0 ) GO  TO  55 
WRI TE ( MWRITE .900) 

WRITE( MWRITE  .640) 

WRITEf  MWRITE .920) 

DO  53  11  = 1 , N NSA 
G1 1U  = 0 .0 
G1 1 L = 0 .0 
G22U  = 0 .0 
G22L  = 0 .0 
G12U-0  0 
G12L  = 0 .0 
NNUM-N VSA( I I ) 

DENOM= 0 ODO 
DO  52  dd=1 , 4 

I F ( NCON( JJ,Il).EQ.O)GO  TO  52 
DEN071=DEN0fii+1  .000 
LNUM  = N CON ( J J ,11) 

NNN1=NP(1 ,LNUM) 

NNN2  = N P ( 2 . LNUM) 

NNN4  = N P ( 4 , LNUM) 

XL=XGI ( NNN2 ) -XGI (NNN1 ) 

S YL=YGI (NNN4) -YGI (NNN1 ) 

03  SL  = 0 0 

EL  = 0 0 

IF(UJ. £0.2. OR  dd  EQ . 3)SL  = 1 . 0 
I F ( dd  EO  3 . 0 R . dd  £0  4)EL  = 1.0 
CALL  S F DM ( S L .EL.XL.YL.GSI . STDE  P ) 

DO  51  d=1  ,9 
EP(d)=0.0 
DO  51  K=1 ,24 
HNN=(  LNUM-1 ) *24+K 
NN=NODE(NNN) 

51  EP(d)  = EP(d)t-STDEP(d,K)*DISP(NN) 

EPSSM=  EP ( 1 ) + EP(7)«EP(7)/2  O+EP ( 9 ) *EP ( 9 ) /2 . G 
£PEEM=EP(2)+£P(8)*EP(8)/2  O+EP (9) *EP ( 9 )/2 . 0 
EPSEM=  EP(3)+EP(7)+E°(2) 

G I 1 L=G 1 1 L+EPSSM+THALF  + EP (4) 

G1 1 U=G 1 1U+EPSSM-THALF*EP (4) 

G22L=G22L+EPE,:M+THALF*EP  (5) 

C22U-G22U+EPEEn-THALF«EP(5) 

Gl 2 L = G 1 2 L+EP  SEM+THALF» EP ( 6 ) 

G12U=G 1 2U+EP  SEM-THALF*  EP ( 6 ) 

52  CONTINUE 

Gl 1 L = G 1 1 L/DE  NOM 
Gl 1 U-G 1 1U/0ENCM 
C22  L= G 22  L/C  E I.Or.' 

G221J  = G 22U/DE  NOM 
Gl  2L=G 1 2L/0ENCM 
Gl  2U=G 1 2U/0EN0M 

CALL  PSTRN(G1  1 L,G22L,G12L,SI,0IRI) 
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CALL  PSTRN(G1 1 U , G22U , G1 2U , SO , Q IRO) 

53  WR I TE  ( MWR I TE  , 650  ) NNUf.1 , G1  1 L ,Gt  1 U , G22  L , G22U , G12L,G12U,SI  .SO.DIRI , 

+ DIRO 

55  CGNTINUE 

C GAUSS  STATION  STRAIN  PRINTOUT. 

I F ( IOP3.EQ.0 ) GO  TO  70 
WR I TE ( MWR I T E ,660) 

DO  60  NN  = 1 , N EGS 
LNUM=LNGS(NN  ) 

WRITE(MWRITE ,670)  LNUM 
WR I TE ( MWR I T E ,640) 

WRITE( MWRITE ,645) 

DO  60  NG=1 , 9 

G1 1 = EP  SS I ( NG  , LNUM) 

G22  = EP  EE  I (NG , LNUM) 

G12=EPSCI( NG , LNUM) 

CALL  PSTRN(G1 1 ,G22 , G1 2 , S I , DIRI  ) 

G1 t=EPSSO(NG  , LNUM) 

G22=EP EEO(NG  , LNUM) 

Gt  2 = EP  SEO(NG  , LNUM ) 

CALL  PSTRN(G t 1 ,G22 ,G12, SO, DIRO ) 

60  WRITE),  MWR  I T E , 650  )NG . EPSS  I ( NG , LNUM)  , EPSSO(NG,  LNUM)  , EPEE  I (NG,  LNUM)  , 

2E°EEO( N3, LNUM) , E°SEI(NG. LNUM) , EPSEQ( NG , LNUM) , S I , SO, DIR  * nio0 
70  CONTINUE 

C ADDITIONAL  STRAIN  POINTS. 

I F ( I0P4.C0  0 )GO  TO  110 
WR  I TE  ( MWR  I TE  ,690) 

WR I TE I MWR I T E ,695) 

DO  100  KK= 1 , NASP 
LNUM=  L NASPf KK) 

* SL  = SLA  SD ( KK ) 

» EL=ELASP(KK) 

NNN1 =NP( 1 , LNUM) 

NNN2  = N P ( 2 , LN  UM ) 

NNN4=NP(4,lNUM) 

XL=XGI (NNN2 ) — XGI (NNN1 ) 

YL  = YG I (NNN4 ) -YGI (NNN1  ) 

CALL  S F DM ( S L , EL, XL , YL ,GB I ,STDEP) 

DO  80  J=1  ,9 
EP ( J ) = 0 0 
DO  80  K=  1 ,24 
NNN=( LNUM-1 ) *24+K 
NN=NOD  E ( NNN ) 

80  EP( J)=EP( J)+STDEP( J,K)*DISP(NN ) 

EPSSM=£P(1 )+EP(7)*EP(7)/2. O+EP (9)*EP(9)/2.0 
EPEEM  = EP(2)+EP(B)*EP(8)/2. 0+EP (9)*EP(9)/2.0 
EPSEM=EP(3)+EP(7)*EP(8) 

DO  100  11=1,2 
FCT= 1 ODO 

I F ( 1 1 . EQ  2 ) F CT  = -1  ODO 
G1 1=EPSSM+FCT*THALF*EP(4 ) 

G22  = EP  EEM+F  C T*THALF*EP(5) 

G12=EPSEfHFCT»THALF‘EP(6) 

CALL  PSTRN(G11 , G22 , G1 2 , S I , DIRI ) 

r>n  r>  r\  T . 4 <■» 

THET=ED1R(I , KK )«. 1 745329 25 1 994 330D-0 1 
CT  = DCOS(THET  ) 

ST  = DSIN(THET  ) 

ELONG( I )=G1 1 *CT*CT+G22»ST+ST+G12*CT*ST 
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90 

EL0NG(  I )=DSQRT(1 .0+2  0*EL0NG(I  ) )-1 .0 

PRNT021 3 

I F ( I X . EQ,1)WRIT£(MWRITE,700)KK ,G1 1 , G22 . Gl 2 , EL0NG( 1 ) , EL0NG(2) , S l ,DI PRNT02 1 4 

+ RI 

r nwT Oc i 5 

IF(  II . EQ.2)WRITE(MWRITE, 710) KK ,G1 1 , G22 ,G1 2 , EL0NG( 1 ) , EL0NG{2) , SI , DI PRNT0216 

+ RI 

PRNT0217 

ICO 

CONTINUE 

PRNT0218 

110 

continue 

PRNT02 1 9 

C 

calculation  and  printout  of  gauss  station  strains 

ON  STIFFENERS.  PRNT0220 

IF(IOP6.EQ  0 ) GO  TO  190 

PRNT0221 

NA  = 3 

PRNT0222 

CALL  GAUSS(NA. AGAUS. AGAUW) 

PRNT0223 

C 

FOR  X-DIRECTION  STIFFENERS 

PRNT0224 

I F ( NXS  S . EQ  0 ) GO  TO  150 

PRNT0225 

WRITE(MWRITE,730) 

PRNT0226 

WRITE(  WRITE  ,785) 

PRNT0227 

WRITE( MWRITE .790) 

PRNT0228 

DO  140  NX=1 , NXSS 

PRNT0229 

MST  = 1 .1 XSS  ( NX  ) 

PRNT0230 

LNUM=LNXS(NST) 

PRNT0231 

NNN1 =N  P ( 1 , LN UM ) 

PRNT0232 

HNN2=NP(2,LNUM) 

PRNT0233 

NNN4=NP(4, LN  UM ) 

PRNT0234 

XL-XCI  (NNN2)  -XCI'MNNI ) 

nnu’Aooc 

YL=VGI (NNN4) -YCI (NNN1 ) 

PRNT0236 

E L = XSP  HOP ( C , NST ) 

PRNT0237 

DO  130  NG  = 1 , NA 

PRNT0238 

S L=  ( 1 0+AGAUS(NG) )/2  0 

PRNT0239 

CALL  SFDM(SL , E L , XL , Y L . GB I , STDE P ) 

PRNT0240 

EP( 1 )=0.0 

PRNT024 1 

EP  ( 4 ) = 0 . 0 

PRNT0242 

EP ( 7 ) = 0 0 

PRNT0243 

H 

10 

DO  120  K= 1 ,24 

PRNT0244 

O 

NNN= ( LNUM-1 ) +24tK 

PRNT0245 

NN=NODE(NNN) 

PRNT0246 

EP( 1 )=fcP(l J + STDEP ( 1 ,K)*DI5P(NN  ) 

PRNT0247 

EP(4)=tEP(4)tSTD£P(4.K)*DISP(NN  ) 

PRNT0248 

120 

£P(7)=EP(7)+STDEP(7,K)*DlSP(NN ) 

PRNT0249 

NN=(NG-1 ) *2+ 1 

PRNT0250 

STO0 ( NN ) =EP( 1 )+EP(7)+EP(7)/2.0  + (0.5*XSPROP(1 , NST ) +XSPR OP ( 7 ,NST ) ) PRNT0251 

2 * EP ( 4 ) 

PRNT0252 

STOR ( N N+1 ) = E P ( 1 )+£P(7)*EP(7)/2 . 0+( XSPROP  ( 7 , NST ) ■ 

-0 . 5*XS  PR0P( 1 , NST ) ) PRNT0253 

2*£P(4  ) 

PRNT0254 

130 

CONTINUE 

1 

140 

WRI1 E( WWRITE ,800) NST, (STOR(J)  , J = 1 ,6) 

PRNT0256 

150 

CONTINUE 

PRNT0257 

C 

FOR  Y-DIRECTION  STIFFENERS. 

PRNT0258 

I F ( NYS  S . EQ  0 )G0  TO  190 

PRNT0259 

WRITE  ([.’WRITE  ,810) 

PRNT0260 

WRITE( MWRITE ,785) 

PRNT0261 

WRITE( MWRITE  ,790) 

PRNT0262 

DO  180  NY  = 1 , NYSS 

PRNT0263 

NST= IN TSS(NY  ) 

PRNT0264 

LNUM=  L NYS ( NS  T ) 

PRNT0265 

MN1  =NP(  1 , LNUM) 

PRNT0266 

NNN2=NPl2,LNUM) 

PRNT0257 

NNN4  = N P ( 4 , LN  ULi ) 

PRNT0268 

aI.  = XGI  (NNN2)  -XGI  ( NNN1  ) 

PRNT0269 

Y L = YG I ( NNN4 ) -YGI (NNN 1 ) 

PRNT0270 

SL=YSPR0P(6, NST) 

PRNT0271 

I 


191 


i 


DO  1 70  NG= 1 , NA 

EL= ( 1 0+AGAU  S ( NG ) ) /2 . 0 

CALL  S FDI"(SL  ,EL,XL,YL,CS1,  STD£°) 

EP(2)=0.0 

EP ( 5 ) = 0 . 0 

EP ( 8 ) = 0 . 0 

DO  160  K = 1 ,24 

NNN=( LNUM-1 ) *24+K 

NN=NODE(NNN) 

EP(2)=EP(2)+STDEP(2,K)*DISP(NN  ) 
EP(S)=EP(5)+STDEP(S.K)*DISP(NN  ) 
160  EP(8)=EP(B)+STDEP(8,K)*DISP(NN) 
NN- ( NG - 1 ) *2+  1 

ST0R(NN)=EP< 2)+EP(8)*EP(3)/2.0+(0 
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ODMTn'174 

PRNT0275 
PRNT0276 
PRNT0277 
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5» YSPROP ( 1 , NST)+YSPRQP(7, NST ) ) PRNT0285 


j 

STOR(NN+1 )=EP(2)+EP(8)*EP(8)/2 .0+(YSPROP(7 , NST ) -0 . 5+ YS 
2 * £P ( 5 ) 

170  CONTINUE 

180  WRITE(  MWRITE  ,800)HST , (STOR(d)  , d=1  ,6) 

190  CONTINUE 

C CALCULATION  AND  PRINTOUT  OF  SYSTEM  ENERGIES. 

I F ( IOP  7 . EQ . 0 ) GO  TO  440 

C ELASlIC  STRAIN  ENERuY  STORED  IN  STRUCTURE. 

C FOR  PLATE  ELEMENTS. 


PRNT0286 

PR0P(1,NST))PRNT0287 

PRNT0288 

PRNT0289 

PRNT0290 

PRNT0291 

PRNT0292 

PRNT0293 

r m* 

PRNT0295 


NA  = 3 
NZ=4 

NSUBL=  NMSUB ( 1 ) 

CALL  GAUSS(NA, AGAUS , AGAU W ) 

CALL  G AUSS ( N Z , ZGAUS , ZGAU W ) 

ELAST  = 0 0 

5 1 = 1 0/EPAN 

52  = -AN  UP»  S 1 

53  = 2.0*(1  0 + ANUP ) / EPAN 
DO  240  LNUM= 1 .NET 
NNN1=NPl 1 , LNUM) 

NNN2=NP(2,LNUM) 

NNN4  = N P ( 4 , l N UM) 

HXL=(XGI  (NIIN2  ) -XGI  ( NNN1  ) )/2.0 
HYL=( YGI ( NNN  4 ) -YGI ( NNN1 ) )/2.0 
DO  240  KS= 1 , NA 
SW  = HX  L * AGAUW ( KS ) 

DO  240  KE=1 , NA 
EW=H1  L * AGAU  { HE ) 

UA=KE+ (KS-1 ) *NA 
STOR1  = 0 0 
DO  230  LZ  = 1 , NZ 
ST  1 =0  0 
ST2=0 . 0 
ST3=0  0 

DO  220  LS=  1 , NSUBL 
UZ=LZ+ (LS-1 ) *NZ 

ST  1 =ST  1 +SUBW  ( 1 ,LS)*TAUSS(  LNUM , dZ.dA) 

ST2=ST2+SUBto ( 1 , LS ) * T AUEE ( LNUM, UZ.dA) 

220  ST3  = ST  3+SUBW ( 1 , LS) *TAUS£( LNUM, UZ.dA) 

DDQD-S  1 * ( 5 T 1 *ST1-*-ST2*ST2  ) i 2 0*  S2*ST1  *ST2+S3*ST3*ST3 
230  STOR1  =STOR1+PROD*0.5+TH+  ZGAUW(  LZ) 

240  ELAST=ELASTi STORIES W*EW/2.0 
C ELASTIC  ENERGY  IN  X-DIRECTION  STIFFENERS. 

I F ( NXS  T . EQ  0 ) GO  TO  280 
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DO  270  NST  = 1 , NXST 
LNUM=LNXS(NST) 

NNN 1 =N  P ( 1 , LNUM) 

NNN2=NP(2,LNUM) 

HXL=(XG1 (NNN2)-XGI (NNN1 ) )/2.0 
MAT=MATXS(NST) 

NSUBL=NMSUB( MAT) 

S 1 = 1 0 /XSPRO  P ( 3 , NST ) 

EW=XSP  ROP ( 2 , NST) 

DO  270  KE  = 1 , NA 
SW=HXL*AGAUW (KE) 

STOR1  = 0 0 
DO  260  LZ=  1 , NZ 
ST  1 =0 . 0 

DO  250  LS=  1 , NSIJBL 
JZ  = LZ+ ( LS-1 ) * NZ 

250  ST1=ST1-rSUBW(MAT,LS)*TAGSS(NST  , JZ  , KE ) 

PROD=  S 1 * ST  1 * ST  1 

260  STOR1=STOR1+PROD*0.5*XSPROP(1 , NST ) *ZGAUW( LZ ) 

270  ELAST=ELASl+ST0R1*EW*SW/2.0 
280  CONTINUE 

C ELASTIC  ENERGY  STORED  IN  Y-DIRECTION  STIFFENERS. 

I F ( NYS T . EQ  0 )G0  TO  320 
DO  310  NST= 1 , NYST 
LNUM  = L N Y S ( N S T ) 

NNN1 =NP( 1 , LNUM) 

NNN4=NP(4, LNUM) 

HYL=(YGI(NNN4)-YGI( NNN1 ) )/2.0 

MAT=MATYS(NSTl 

NSUBL=NMSUB( MAI) 

S 1 = 1 0/YSPR0P(3,NST) 

SW=YSPR0P(2, NST) 

DO  310  KS= 1 , NA 
EW=HYL * AGAUW ( KS ) 

ST0R1  = 0 0 
DO  300  LZ= 1 , NZ 
ST  1 =0  0 

DO  290  LS=  1 , NSUBL 
JZ=LZ+ ( LS-1 ) *NZ 

290  ST1=ST 1+SU6W (MAT, LS ) *TSG EE ( NST , JZ.KS) 

PPOD  = S 1 + ST  1 * ST  1 

300  ST0R1  = STOR 1 + PROD  + C . 5 + YSP ROP ( 1 , NST ) *ZGAUW ( LZ ) 

310  ELAST=ELAST+ST0R1 *EW*SW/2.0 
320  CONTINUE 

C CALCULATION  OF  ENERGY  STORED  IN  ELASTIC  RESTORING  SPRINGS. 
SPREN=  0 . 0 

IF(NELES  EQ. 0)GO  TO  380 
DO  370  NS  = 1 , NELES 
LNUM- L NRS ( NS  ) 

I S I DE  = ISRS(NS) 

NNN1  =N  P ( 1 .LNUM) 

NNN2=NP(2, LNUM) 

NNN4=NP(4,LNUM) 

XL=XGI  ( NNN2 ) -XGI ( NNN1  ) 

V'.  = Y«I  (NNH4)  -*GI  (NNN1  ) 

DO  330  1=1,5 
330  SS  ( I ) = SC  ( I , N S ) 

CALL  SPRING ( EK.SS, ISIDE, XL.YL) 

L= ( LNUM-1 ) *24 
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DO  340  1=1,24 
LL=NODE( L+I ) 

340  EO(I)=DXSP(LL) 

DO  350  1=1 ,24 
STOR ( 1 ) = 0 0 
DO  350  K=1 ,24 

350  STOR(I  )=ST0R(I)+EK(I.K)*EQ(K) 

STOR 1=0.0 
DO  360  1=1,24 

360  STOR1=STOR1+EO(I)*STOR(I ) 

370  SPREN=SPREN+STOR1/2.0 
380  CONTINUE 

C CALCULATE  KINETIC  ENERGY  OF  THE  STRUCTURE. 

C I NET  = 0 0 

GO  TO ( 390,41  0)  , IMASS 
390  CONTINUE 

DO  400  1=1 ,NDT 

400  CINET=CINET  + AMASS ( I ) * VE L ( I ) * VE L( I )/2 . 0 
GO  TO  430 

410  CALL  OMULT (AMASS , V E L , FLVM , I COL , KROW , NDEX) 

DO  420  1 = 1 , N DT 

420  CINET=CINET+VEL(I )*FLVM(  I )/2.0 
C CALCULATE  WORK  INPUT  TO  STRUCTURE  AS  SUM  OF  CURRENT  WORK 
C NAL  FORCES  PLUS  KINETIC  ENERGY  OF  INITIAL  VELOCITY  OISTR 
430  EWORK  = WFOROE  +C INET I 
C CALCULATE  PLASTIC  WORK  BY  SUBTRACTION. 

PLASTW=EWORK-ELAST-SPREN-CINET 
C PRINTOUT  ENERGIES 

WR I TE ( KW'RI TE ,720) 

WRITE(MWRITE ,730)  EWORK 
WRITE(MWRIT£  ,740)  CINET 
WRITE( MWRITE ,750)  ELAST 
WRITE( MWRITE ,760)  PLASTW 
W'RITE(  MWRITE  ,770)  SPREN 

T TUIIC 

CONTINUE 

FORMAT ( “O' , 1 REACTION  FORCES  AT  CONSTRAINED  NODES') 

FORMAT ( 'O' ,2X, 'NODE' , 4X , ' RX ( LB S ) ' , 8X . ' RY ( LBS ) • , 8X , ' RZ ( LBS) • ,7X, 
2 ' MX ( LBS-IN) • ,5X, 'MY (LBS- IN) ' , 5 X . ‘ MX Y ( LBS- 1 N- IN ) * ) 


OF  EXTER- 
IBUTION. 


* 40 

500 

550 

560 

570 

600 

610 

620 

630 

640 

644 

645 
650 
660 

670 

690 

695 


, 2X , ' TIME= ' .012. 4, IX, 

, 12X.  'W , 1 IX, ' PSIX' ,9X 

?x , 'z-pos. • ; 


FORMAT ( ' ' , I6.6D15  5) 

FORMAT ( ‘O' , ‘ *****  INCR.  NO  =‘,I5 
FORMAT ( '0'  , ' NODE'  , 6X,  ' U ' , 12X, ' V' 

2 ‘TWIST  ' ,7X, ' X-POS  ' ,7X,  ' Y-POS.  ‘ , 

FORMAT ( ' ' , I4.9D13  5) 

FORMAT ( 'O'  ,' STRAIN  COMPONENTS,  PRINC I PAL( TENSI LE ) STRA 
2TI0N  AT  CENTROID  OF  EACH  ELEMENT') 

FORMAT( 'O'  ,14X, 'EPS-X  STRAIN* , 12X, '£PS-Y  STRAIN ', t2X,  ' 
2 ' , 1 2X  , 'PRINC  . STRAIN(T) ' , 10X,  ' D I RECT I ON ( DEG . ) ' ) 

FORMAT ( ' ' , ' ELEM. ' ,5(7X,  ' INNER  ' ,7X,  ‘OUTER1  ) ) 

FORMAT ('  ','STA.  ' ,5(7X,  ' INNER  • ,7X,  'OUTER'  ) ) 

FORMAT ( * ' , I4.1X.10D12  4) 

FORMAT ( '0'  ,' STRAIN  COMPONENTS,  PR  INC  I PAL ( T ENSI LE ) STRA 
2 T I ON  AT  GAUSS  STATIONS  FOR  SELECTED  ELEMENTS') 

FORMAT ( ‘O' ,' RESULTS  FOR  ELEMENT  NUMBER' ,15) 

FORMAT( '0'  ,' STRAIN  COMPONENTS,  PR  INC I P AL ( T ENS I LE ) STRA 
2TI0N,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS') 
FORMAT ( 'O' , ' POINT  NO. ' ,2X, 'SURFACE' ,2X, 'EPS-X  STRAIN', 
2RAIN ' , 2X.  'SHEAR  STRAIN' , IX,  ' EL ONG . ( 0 1 R . 1 ) ' , IX, 'ELONG. ( 
3 'PRINC  . STRN(T) ‘,1X, 'DIRECTION (DEG. ) ' ) 
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PRNT0407 
PRNT0408 
PRNT0409 
PRNT04 1 0 
PRNT041 1 
PRNT04 1 2 
PRNT04 1 3 
PRNT04 1 4 
PRNT0415 
PRNT0416 
PRNT04 1 7 
PRNT0418 
PRNT0419 
PRNT0420 
PRNT0421 
PRNT0422 
PRNT0423 
PRNT0424 
PRNT0425 
PRNT0426 
PRNT0427 
PRNT0428 
PRNT0429 
PRNT0430 
PRNT0431 

POMTA/1  QO 


PRNT0433 
IN  AND  DIRECPRNT0434 
PRNT0435 
SHEAR  STRAINPRNT0436 
PRNT0437 
PRNT0438 
PRNT0439 
PRNT0440 
IN  ANO  DIRECPRNT0441 
PRNT0442 
PRNT0443 
IN  AND  DIRECPRNT0444 
PRNT0445 
2X , 'EPS-Y  ST PRNT0446 
DIR. 2)*. IX,  PRNT0447 
PRNT0448 
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PAGE  0017 


700 

710 

720 

730 

740 

750 

760 

770 

780 

785 

790 

800 

810 

900 

920 


FORMAT  ( 
FORMAT ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
FORMAT  ( 
2RECT ION 
FORMAT  ( 
2' ST AT  I ON 


■ I 7 ■ 5X , ' INNER'  , 1X.7014.5) 

, I 7 . 5X , 'OUTER'  , 1X.7D14.5) 

, ' SYSTEM  ENERGIESCH-L3)  ' ) 

, 5 X , ‘ WORK  INPUT  TO  STRUCTURE 

,5X, 'STRUCTURE  KINETIC  ENERGY 

,5X, 'STRUCTURE  ELASTIC  ENERGY 

,5X, ‘STRUCTURE  PLASTIC  ENERGY 

,5X, ‘ENERGY  STORED  IN  ELASTIC  RESTRAINTS 


O'.'STRAIN,  f 
STIF  FENERS  ' ) 
O' , ' ST  I FFENEF 
3') 


FORMAT  ( ' 

FORMAT  ( ' ' , I 
FORMAT ( * 0 ■ , ' 

2RECTI0N  STIFFENERS') 
FORMAT ( ‘O' , ' 

2CTI0N  AT  USE 
FORMAT  ('  ',' 

RETURN 
END 


NUMBER'  ,5X, 3(7X,  ' INNER'  ,7X  , 'OUTER*  ) ) 
5.7X.6D12.4) 


R-SPEC I FI  ED  NOOES'  ) 

NODE  ' ,5(7X,  ' INNER  1 ,7X, 'OUTER*  ) ) 


PRNT0449 

PRNT0450 

nnMTA A r 4 

' ,D15.7) 

PRNT0452 

1 ,015  7) 

PRNT0453 

‘ ,015.7) 

PRNT0454 

1 .D15.7) 

PRNT0455 

1 ,015.7) 

PRNT0456 

1 SPECIFIED 

X-DI PRNT0457 
PRNT0458 

1 2' . 15X, 

PRNT0459 

PRNT0460 

PRNT0461 

PRNT0462 

1 SPECIFIED 

Y-DI PRNT0463 
PRNT0464 

STRAIN  AND 

DIREPRNT0465 

PRNT0466 

PRNT0467 

PRNT0468 

PRNT0469 

i 


l 


6 . 3 Subprograms  Unique  to  the  CIVM-PLATE  Code 

The  following  9 subprograms  (or  subroutines)  are  unique  to  the 
CIVM-PLATE  program: 

COLLSN  IMAINP  IMPSS 

IFRAG  IMPACT  INTRAC 

IMAIN  IMPDS  IPRINT 

This  version  of  IMAIN  is  provided  principally  for  illustration,  but  also  is 
appropriate  for  the  illustrative  example  given  in  Subsection  8.2.1  for  the 
complete  plate.  The  user  must  write  his  own  version  consistent  with  his 
particular  problem  data  if  he  wishes  to  analyze  any  other  example  problem. 

A FORTRAN  IV  listing  of  these  9 subprograms  follows . 
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SUBROUTINE  C0LLSN( IOPT , XG , YG , Z G , PEN , RF , THA LF , NNSR , XF , Y F , ZF , XN , YN , 
2ZN.T.NN1 , NN2 ,NN3) 

IMPLICIT  PEAL*e(A-U,0-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

DIMENSION  XG(1 ) ,YG(1 ) ,ZG(1 ).PEN(1) ,XN(1 ) ,YN(1 ),ZN(1) ,T(3,3) 

THIS  ROUTINE  PERFORMS  DETAILED  COLLISION  INSPECTION  OVER  A 
TRIANGULAR  SUBREGION  OF  THE  PLATE,  CALCULATING  THE  PENETRATION 
DISTANCE,  PEN(I),  AND  LOCATION,  XN(I),  YN(I),  ZN(I),  OF  THE 
CONTACT  POINi,  ON  THE  SURFACE,  IF  COLLISION  OCCURS  WITHIN  THE 
TRIANGULAR  SUBREGION 

IF  IOPT  = 1 , THE  ENTIRE  CHECK  IS  FOLLOWED. 

IF  IOPT  = 2 , THE  PROCESS  IS  TERMINATED  AFTER  CALCULATION  OF  THE 
COORDINATE  TRANSFORMATION  MATRIX  FOR  THE  TRIANGULAR 
SUBREGION. 

FOR  PRESENT,  UNIFORM  THICKNESS  IS  ASSUMED  IN  THE  TRIANGULAR  REGION. 

DEFINE  COMPONENTS  O'-'  A,B,C  OF  VECTOR  IN  Z-BAR  DIRECTION 
X21 =XG (NN2 )— XG(NN1 ) 

Y21 =YG (NN2 ) - YG( NN 1 ) 

Z2 1 =ZG (NN2 ) - ZG( NN1 ) 

X31=XG(NN3)-XG(NN1 ) 

Y31=YG(NN3)-YG(NN1 ) 
yj  Z31=ZG(NN3)-ZG(NN1 ) 

01  A=Y21*Z31-Y31«Z21 

B-X3 1 * Z2I-X2  1 »Z3 1 
C-X21 * Y31-X3 1 *Y21 
AL3  = 0SQRT(A'-A  + B*BtC*C) 

C CALCULATE  DISTANCE  BETWEEN  FRAGMENT  CENTROID  AND  PLATE  MIDSURFACE. 

C IF  DFP  IS  NEGATIVE  FRAGMENT  CENTROID  IS  BELOW  MIDSURFACE. 

DFP=(A*(XF~XG(NN1 ) ) rB* ( Y F— YG( N N 1 ) )+C* (ZF-ZG(NN1 ) ) )/AL3 
C CALC.  PENETRATION  DISTANCE  (ASSUMING  UNIFORM  THICKNESS  AND 
C PENETRATION  IN  DIRECTION  OF  NORMAL  FROM  FRAGMENT  CENTROID  TO 
C REFERENCE  SURFACE) 

PEN(NNSR)=RF+THALF+DFP 

C IF  PENETRATION  DIST.  IS  LESS  THAN  OR  EQUAL  TO  ZERO,  RETURN  TO 
C CALLING  ROUTINE 

I F ( PEN ( NNSR ) LE  0 OJRETURN 

C FIND  COORDS  OF  INTERSECTION  OF  NORMAL  (FROM  FRAG  TO  SURFACE)  WITH 
C THE  SURFACE. 

XN(NNSR)=XF-A-DFP/AL3 
YN(NNSR)  = YF-C  'DFP/AL3 
ZN(NNSR)=ZF-C*DFP/AL3 

C ESTABLISH  TRANSFORMATION  MATRIX  ; ( BAR ) =T* ( GLOBAL ) . 

C Z-BAR  IS  NORMAL  TO  THE  PLANE  AND  DIRECTED  TOWARD  THE  OUTER  SURFACE 
C OF  THE  PLATE  X-SAR  IS  IN  IHE  DIRECTION  FROM  TRIANGLE  NODE  1 TO 
C TRIANGLE  NODE  2 

AL1 =D3  QRT ( X2 1 *X2 1 + Y2 1 * Y2 1 +Z21 * Z21 ) 

T ( 1 ,1 ) =X21/AL1 
T ( 1 ,2) =Y21/AL1 
T ( 1 ,3) =Z2 1 / A L 1 

T ( 2 , 1 ) - ( B *Z2  1 -C* Y2 1 )/(AL1*AL3) 

T ( 2 , 2 ) =(C*X21-A*Z21 )/(AL1*AL3) 


CLSNOOOO 

CLSN0001 

r>  t pha  An<i 

CLSN0003 
CLSN0004 
CLSN0005 
CLSN0006 
CLSN0007 
CLSN0008 
CLSN0009 
CLSN0010 
CLSN001 1 
CLSN001 2 
CLSN0013 
CLSN0014 
CLSN0015 
CLSNOO 1 6 
CLSN0017 
CLSNOO 1 8 
CLSNOO 1 9 
CLSN0020 
CLSN0021 

CLSN0023 
CLSN0024 
CLSNOO 25 
CLSN0026 
CLSN0027 
CLSN0028 
CLSN0029 
CLSN0030 
CLSN0031 
CLSN0032 
CLSN0033 
CLSN0034 
CLSN0035 
CLSN0036 
CLSN0037 
CLSN0038 
CLSN0039 
CLSN0040 
CLSN004 1 
C LSiiuum^ 
CLSN0043 
CLSN0044 
CLSN0045 
CLSN0046 
CLSN0047 
CLSN0048 
CLSN0049 
CLSN0050 
CLSN0051 
CLSN0052 
CLSN0053 
CLSN0054 
CLSN0055 
CLSN0056 
CLSN0057 
CLSN0058 


I 


I 


o o oooooo 


T ( 2 , 3 ) =( A+Y2 1-B*X21 )/(AL1 *AL3) 

T ( 3 . 1 ) = A/AL3 
T ( 3 , 2 ) =B/AL3 
T ( 3 , 3 ) -C/ AL3 

C IF  THIS  ROUTINE  HAS  BEEN  CALLED  ONLY  TO  CALCULATE  T,  RETURN 
I F ( IOP  T EQ . 2 ) RETURN 

C FIND  X-Y  COORDS  OF  NODES  AND  INTERSECTION  POINT  IN  BARRED  SYSTEM 
XB1 =XG ( NN1 ) * T ( 1 , t )+YG(NN1 )*T( t ,2)+ZG(NN1 ) *T( 1 .3) 

Y61 =XG ( MN1 ) » T ( 2 , 1 ) +YG( NN 1 )*T(2 ,2)+ZG(NN1 )*T(2,3) 

XB2  = XG(NN2)»T(  1 , 1 )+YG(NN2)*T(1  , 2 ) +ZG ( NN2 ) * T ( 1 ,3) 

Y B2  = XG ( NN2 ) * T ( 2 , t ) +YG( NN 2 ) » T ( 2 , 2 ) +ZG ( NN2 ) * T ( 2 . 3 ) 

X83=XG(NN3)*T(1  ,1 ) +YG(NN3 ) *T ( 1 , 2 ) +ZG ( NN3 ) » T ( 1 ,3) 

YB3=XG(NN3)*T(2,1 ) +YG( NN3 ) *T( 2 ,2)+ZG(NN3)*T (2,3) 

XBN  = XN ( NNSR ) *T(1 , 1 )+YN(NNSR)*T ( 1 , 2 ) +ZN(NNSR ) * T ( 1 ,3) 

YBN  = XN ( NNSR ) *T(2, 1 )+'  N(NNSR)»T ( 2 . 2 ) +ZN ( NNSR ) *T ( 2 , 3 ) 

C DEFINE  TRIANGULAR  (AREA)  COORDINATE  PARAMETERS  FOR  THIS  SUBREGION. 
AREA2=XB2*1  3 3+-A31 f YB2+XB3» YB1  - XB2* YB1 -XB3* YB2-XB 1 * YB3 
A1=XB2+YS3-XB3+YB2 
A2  = XB3  *YB1 — X B1 *YB3 
A3  = XB  1 +YB2-XB2+YB1 
B1=YB2~YB3 
B2=YB3-YB1 
B3= YB1  -> B2 
Cl  =XB3~XB2 
C2=XB1 -XB3 
C3=XB2-XB1 

C EVALUATE  TRIANGULAR  COORDS  (LI,  L2,  L3)  AT  FRAGMENT/NORMAL 

C INTERSECTION  POINT  (POINT  OF  CONTACT) 

CL1=(A1+B1*XBN+C1*YBN)/AREA2 
CL2=(  A2+E2*XBN+C2*YBN)/AREA2 
CL3=(  A3  + B3*XbN+C3t YBN)/AREA2 

C FOR  CONTACT  POINT  TO  LIE  IN  TRIANGULAR  SUBREGION,  CL1 , C L2 , AND  CL3 

C MUST  ALL  BE  BETWEEN  0 AND  1 (INCLUSIVE).  IF  NOT,  SET  PENETRATION 

C DISTANCE  TO  A LARGE  NEGATIVE  NUMBER. 

C USE  A NECATIVE  EPSILON  AND  1 - EPSILON  INSTEAD  OF  AN  EXACT  0.  AND  1. 

C TO  AVOID  INACCURACIES  WITH  COMPUTER  ROUNDOFF. 

ZIP  = -1  .D-10 
ONE- 1 DO-ZIP 

I F ( CL 1 . LT.ZI P.OR  CL2. LT. ZIP. OR .CL3  LT . Z I P . OR . CL1 . GT .ON E . OR . CL2 . 
2GT . ONE . OR . CL 3 GT  ONE ) PEN ( NNSR ) =-1 . 00 1 0 
RETURN 
END 

SUBROUTINE  I FR AG( PMASS . AMASS ) 

IMPLICIT  REAL*8(A-H,0-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

DIMENSION  PMASS(I) .AMASS (1  ) 

COMMON/FRAG/ XF.YF.ZF, DEL F(3) , V F ( 3) .DTHETF ( 3) ,0MEGF(3) , RF.FMASS, 
2FM0I , FKEO, FKEC 

COMMON  /PROP C/  COEFR, FRNC.USEF ,NSYM, IPSS, IUSEF 
CO""C*J/PL,*  TE/XD , YD , THP.HXL.H” L , NEAD  , NECD,  OENSP , EPAN  , ANUP  , THALF 
COMMON/EAS/NDT ,NET ,MN,NB , N I RRE  G , MNC 
COMMON  /INOUT/  MRE AD , MWR I TE , MP UNCH 

IN  THIS  SUBROUTINE  THE  INITIAL  FRAGMENT  POSITION  AND  VELOCITY, 


CLSN0059 

CLSN0060 

£1  CklrvAC  1 

CLSN0062 
CLSN0063 
CLSNQ064 
CLSN0065 
C LSN0066 
CLSN0067 
CLSN0068 
CLSN0069 
CLSN0070 
CLSN0071 
CLSN0072 
CLSN0073 
CLSN0074 
CLSN0075 
CLSN0076 
CLSN0077 
CLSN0078 
CLSN0079 
CLSN0080 
n SNooni 
CLSN00S2 
CLSN0083 
CLSN0084 
CLSN0085 
CLSN0086 
CLSN0087 
CLSN0088 
CLSN0089 
CLSN0090 
CLSN0091 
CLSN0092 
CLSN0093 
CLSN0094 
CLSN0095 
CLSN0096 
CLSN0097 
CLSN0098 
CLSN0099 
CLSN0100 
I FRGOOOO 
I FRGOO0 1 
IFRG0002 
I FRG0003 
I FRG0004 
IFRGC005 
I FRG0006 
I FRG0007 
I FRG0008 
I FRG0009 
IFRG0010 
IFRGOOl 1 
IFRC0012 
IFRG0013 
IFRGOOl 4 
IFRGOOl 5 
IFRG0016 
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C FRAGMENT  GEOMETRIC  PROPERTIES,  CONTACT  SURFACE  PROPERTIES 
C AND  ANY  SUMMETRY  OPTIONS  ARE  INPUT  AND  PRINTED  FOR  VERIFICATION. 

C THE  FRAGMENT  INITIAL  KINETIC  ENERGY  IS  CALCULATED  AMD  THE  ••ASS  MATRIX 
C USED  IN  IMPACT  INTERACTION  CALCULATION  IS  FORMED. 

C 

NNT=NDT/6 

C READ  IN  FRAGMENT  INITIAL  LOCATION,  VELOCITIES,  AND  PROPERTIES 
READ(MREAD,50R)XF,YF,ZF 
READ(MREAD,500)(VF( I ) , 1= 1 ,3) 

READ (M RE AD, 5 00)  (OMEGF( I ) ,1  = 1,3) 

R£AD(MREAD,500)RF,  Fr/ASS,  FMOI 
C READ  IN  CONTACT  SURFACE  PROPERTIES 
READ ( M READ, 5 CO)  COE FR, FRNC 
READ (MREAD, 510) NSYM, IPSS , ICUT,  IUSEF 
I F I NS  Y M EQ  2 ) FMASS = FMASS /4  ODO 
I F ( NS Y M . EQ . 1 ) FMASS  = FMAS  S/2.00  0 
I F ( NS Y M EQ. 1 ) FMOI =FM0I/2. ODO 
CUTR=D .ODO 

I F ( ICUT  EQ. 1 ) READ ( MREAD , 500)CUTR 
IF(IUSEF. EQ . 1 ) READ(MREAD,500)  USEF 
C FRAGMENT  INITIAL  KINETIC  ENERGY 
FK  E0=  0 .0 
DO  15  1=1,3 

15  FKEO=  F KEO+O  5*  ( FMASS* VF ( I ) * VF ( I ) +FMO I *OMEGF ( I ) *OMEGF ( I ) ) 

FKEC=FKEO*CUTR 

C PRINT  OUT  THIS  INFORMATION 
WR I T E ( MWR I T E ,600) 

WR I T E ( MWR I T E ,601 ) XF 
WRITE( MWRI TE ,602)  YF 
WR1TC(M."RITE  ,603)  ZF 
WRITE(  MWRITE ,604)  VF(1) 

WRITE(MWRITE ,605)  VF(2) 

WRITE(  MWRITE  ,606)  VF(3) 

WRITE( MWRI TE ,607)  OMEGF( 1 ) 
n.  A I TE  \ t,i ,,  R I T E , 60S ) OuiEGF(2) 

WRITE( MWRITE ,609)  OMEGF ( 3 ) 

URITE(  MWRITE  ,610)  RF 
WRITE(  MWRITE ,61 1 ) FMASS 
WRITE(  MWRI  TE  ,612)  FMOI 
WRITE( MWRI TE  ,630)  FKEO 
WRITE( MWRI TE  ,613) 

WRITE(  MWRITE  ,614)  COEFR 
WRITE(MwRITE ,615)  FRNC 
WRITE(MWRITE ,616)  NSYM 

I F ( N S Y M EQ. 1 AND  IPSS  EQ  1)  WR I TE (MWR I TE , 6 1 7 ) 

I F ( NSYM  EQ . 1 AND. IPSS  EQ.4)  WR I TE (MWRI TE , 6 1 8 ) 

IF(NSYM.EQ  1)  WR I T E ( MWRI T E , 61 9 ) 

I F (NSYM  EQ  2)  WR I T E (MWR I TE . 620  ) 

I F ( ICUT  EQ  0 ) GO  TO  18 
WRITE(  MWRI TE ,640) 

WR I TE( MWRITE ,650)  CUTR 
WRI TE ( MWRI TE ,660)  FKEC 
WRITE(  MWRITE  ,670) 

18  CONTINUE 

I F( IUS  EF  EQ.O)  WR I T E ( MWR I T E , 70  0 ) 

I F( IUS  EF . EQ  1)  WRIT  E (MWR I T E , 7 1 0 ) USEF 
500  FORMAT (5D1 6 7) 

510  FORMAT (2014) 


IFRG0017 
IFRG0018 
I FPCC  0 1 n 
1 FRGC020 
I FRG0021 
I FRG0022 
I FRG0023 
I FRG0024 
I FRG0025 
I FRG0026 
I FRG0027 
I FRG0028 
I FRG0029 
I FRG0030 
I FRG0031 
I FRG0032 
I FRG0033 
I FRG0034 
I FRG0035 
I FRG0036 
I FRG0037 
I FRG0038 
1 FR6004Q 
I FRGC040 
I FRG0041 
I FRG0042 
I FRG0043 
I FRG0044 
I FRG0045 
I FRG0046 
I FRG0047 
I FRG0048 
I FRG0049 
I FRG0050 
I FRG0051 
I FRG0052 
I FRG0053 
I FRG0054 
I FRG0055 
I FRG0056 
I FRG0057 
I FRG0058 

I FRG0060 
I FRG0061 
I FRG0062 
I FRG0063 
I FRG0064 
I FRG0065 
I FRG0066 
I FRG0067 
I FRG0068 
I FRG0069 
I FRG0070 
I FRG0071 
I FRG0072 
I FRG0073 
I FRG0074 


600  FORMAT ( ‘ 0 * , ' FRACMENT  LOCATION.  VELOCITY,  AND  PROPERTIES  AT  TIME  = 0. IFRG0075 


I 


] 


} 


i 
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20  SEC.  ' ) 

IFRG0076 

601 

FORMAT ( ' 

, 5 X , 

' X-LOCAT ION ( IN) 

a 1 

, C 1 5 . 7 ) 

I FRG0077 

602 

FORMAT ( 1 

FORMAT  ( ' 

, 5 X , 

Y-L  TAT  I ON  { IN' 

S ♦ 

ms  71 

t pprnr»7R 

603 

, 5 X , 

Z— LOCAT I ON ( IN) 

X 1 

,015.7) 

I FRG0079 

604 

FORT.. AT  ( ' 

, 5 X , 

X-VELOCITY( IN/SEC) 

a * 

, D15.7) 

I FRG0080 

6C5 

FORMAT ( ‘ 

,5X, 

Y-VELUCIT Y( IN/SEC) 

= * 

, D1 5 . 7 ) 

I FRG0081 

606 

FORMAT  ( ' 

, 5 X , 

Z~ VELOCITY! IN/SEC) 

3 * 

, D 1 5 . 7 ) 

I FRG0082 

607 

FORMAT  ( ' 

, 5 X , 

OMECA-X(  RAD/SEC ) 

S * 

,015.7) 

I FRG0083 

608 

FORMAT  ( ' 

, 5 X , 

‘GMEGA-Y ( RAD/SEC ) 

= 1 

,015.7) 

I FRG0084 

609 

FORMAT  ( ‘ 

,5X, 

OMEGA-Z(  RAD/SEC ) 

s • 

,015.7) 

I FRG0085 

610 

FORMAT  ( ' 

> 5 X , 

•FRAGMENT  RADIUS (IN) 

s * 

, D1 5 . 7 ) 

I FRG0OB6 

611 

FORMAT ( ' 

■ 5 X , 

FRAGMENT  MASS ( L B-SEC* SEC/IN ) 

3 1 

,015.7) 

I FRG0087 

612 

FORMAT ( ' 

, 5 X , 

FRAG.  MOM  INERT (IN-LB-SEC*SEC) 

= ' , D15 . 7) 

I FRG0088 

613 

FORMAT  ( ' 0 

.'CONTACT  SURFACE  PROPERTIES') 

I FRG0089 

ot*( 

rumvirtT  l ' 

,5a. 

COcF.  OF  RESTITUTION  ‘ .D15.7) 

I FRGOOSO 

615 

FORMAT  ( 1 

. 5 X , 

FRICTION  COEFFI CIENT= 1 ,D15.7) 

I FRG0091 

616 

FORMAT  ( ' 

• 5 X , 

NO.  OF  SYMMETRIES  = 1 , 14) 

I FRGC092 

617 

FORMAT  ( ' 

. 5 X, 

'THE  GLOBAL  X AXIS  IS  THE  LINE 

OF 

SYMMETRY  1 ) 

I FRG0093 

618 

FORMAT  ( ' 

, 5 X , 

THE  GLOBAL  Y AXIS  IS  THE  LINE 

OF 

SYMMETRY* ) 

I FRG0094 

619  FORMAT ('  1 , 5 X , 1 ( FRAGMENT  MASS,  MASS  MOMENT  OF  INERTIA  AND  KINETIC  IFRG0095 

1 ENERGY  ARE  ONE-HALF  THEIR  ACTUAL  VALUES  BECAUSE  OF  SINGLE  SYMMETRY  I FRG0096 
1 )'_)  _ IFRG0O97 

620  Fun  MAT  ( ,oX,  ( FR  i MAS  j Ahu  niliE  i i u c.  > i c R u { nnu  i cn  u i i uuwuso 

IF  THEIR  ACTUAL  VALUES  BECAUSE  OF  DOUBLE  SYMMETRY)1)  IFRG0099 

630  FORMAT ( 1 1 , 5 X , 1 K IN ET IC  ENERGY( IN-LB)  =',Dl5.7)  IFRG0100 

640  FORMAT ( 'O' , 1 IMPACT  I NSPE CT ION/ CORRECT  ION  WILL  BE  TERMINATED  WHEN' ) I FRG01 01 
650  FORMAT (‘  1 , 5 X , 1 THE  CURRENT  FRAGMENT  KINETIC  ENERGY  IS  LESS  THAN',  IFRG0102 
2016. 7, 2X, 'TIMES  THE  INITIAL  FRAGMENT  KINETIC  ENERGY.')  IFRG0103 

660  FORMATC  ' , 5 X , ' THI S CUT-OFF  POINT  CORRESPONDS  TO  A FRAGMENT  KINETI I FRG01 04 
2C  ENERGY  OF'.DIo  7 ,2X, ' IN-LB.  ' ) IFRG0105 

ID  670  FORMATC  ',5X.'NOTE  THAT  STRUCTURAL  RESPONSE  CALCULATIONS  WILL  CONIFRG0106 
T)  2TINUE  BEYOND  TERMINATION  OF  IMPACT  INSPECTION/CORRECTION.')  IFRG0107 

700  FORMAT ( 'O' , 1 EFFECT IVL  LENGTH  WILL  BE  CALCULATED  INTERNALLY')  IFRG0108 

710  FORMAT ( ‘O' ,' USER  SPECIFIED  EFFECTIVE  LENGTH= ' ,015.7)  IFRG0109 

C CALCULATE  NODAL  POINT  MASSES  FOR  IMPACT/INTERACTION  USE.  THIS  IFRG0110 

C EXTRACTED  FROM  SYSTEM  LUMPED  MASS  VECTOR  BY  NEGLECTING  ROTARY  IFRG0111 

C INERTIA  CONTRIBUTIONS.  EFFECTS  OF  POSSIBLE  NONUNIFORM  MESH  IFRG0112 

C AND  STIFFENERS  INCLUDED  AUTOMATICALLY.  FOR  PLATE  ANALYSIS  ONLY  IFRG0113 


NDPN=6  IFRG0114 

DO  20  1=1 ,NNT  IFRG01 15 

20  Pf  ASST  I 1=0  0 IFRG0116 

DO  30  1=1 ,NNT  IFRG0117 

Inc- ( i — i CNDPNri  irrconc 

jO  PMASS ( I ) = AMA  SS ( INC ) 1FRG0119 

RETURN  IFRG0120 

END  1FRG0121 
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SUBROUTINE  I MPACT ( XG, YG , ZG.DEL D , VEL  , NP , VN , VNB, PM ASS , N BC , SI ,NEFF , 
2ALPHA, IMPCT1 , NIAN) 

IMPLICIT  REA  L*8( A-H.O-Z ) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

DIMENSION  XG( 1 ) ,YG( 1 ) ,ZG( 1 ) , DE LD( 1 ) , VEL( 1 ) ,NP(4 , 1 ) , LNC(4) , PEN( 8) , 
2XN(8), YN(B).ZN(8),T(3,3)  ,SI(1)  , NEFF ( 1 ), ALPHA ( 1 ). VN( 3 . 1 ),VNB<3, 1), 
30MEGFB ( 3 ) , V F B ( 3 ) , PMASS ( 1 ) . PT I L DA ( 3 ) . NBC ( 1 ) , LRP ( 8 ) 

COMMON /PLAT E/XD, YD , THP , H XL , HYL  , NEAD , NECD , DENSP , E PAN , AN UP , THALF 
COMMON /BAS/N DT.NET , MN , NB , N I RRE G , MNC 

COMMON /TIM/DELTAT.TIMEF. TIME, I TIMEF, INCRT, IOUT, I TIME 
COMMON  /PROPC/  COEFR.FRNC.USEF  ,NSYM, 1PSS, IUSEF 
COMMON /FRAG/ XF , YF , ZF , DEL F (3) , V F ( 3 ) , DTHETF( 3 ) ,OMEGF( 3) , RF.FMASS, 
2FM0I , FKEO.FKEC 

COMMON  /INOUT/  MRE AD , MWR I TE ,MP UNCH 

CONTROLLING  ROUTINE  FOR  COLLISION  INSPECT  ION/ IMPAC T INTERACTION 
ANALYSIS  INCLUDING  FRICTION.  IF  IMPACT  HAS  OCCURED,  THE  NODAL 
VELOCITIES,  VEL,  AND  FRAGMENT  VELOCITIES,  VF  AND  OMEGF , ARE  UPDATED 
TO  THEIR  POST- IMPACT  VALUE.  NODAL  AND  FRAGMENT  DISPLACEMENTS  AND 
LOCATIONS  ARE  NOT  MODIFIED  IN  THIS  SUBROUTINE. 

PRESENT  ANALYSIS  ASSUMES  UNIFORM  THICKNESS  PLATE,  AND  SINGLE 
FRAGMENT.  EFFECTS  OF  MAXIMUM  PENETRATION  ONLY  ARE  INCLUDED. 

UPDATE  GLOBAL  COORDINATES  TO  TRIAL  VALUES 
IMPCT1 =0 
NDPN=6 
NNT=NDT/6 
DO  1 1=1  , NNT 
NNI  = ( I -1 ) *ND  PN 
XG( I ) = XG(I)+DELD(NNI+1) 

YG ( I ) = YG(I)+DELD(NNI+2) 

1 ZG ( I ) = ZG( I ) +DELD( NNl+3) 

: UPDATE  FRAGMENT  POSITION  ASSUMING  SAME  INCREMENTAL  QUANT.  AS  PREV. 

XF  = XF+VF(1 ) * DELTAT 
YF=YF+VF(2)*DELTAT 
ZF=ZF+VF(3)«DELTAT 
DO  7 1=1,3 

DTHETF ( I )=DE  LTAT*OMEGF ( I ) 

7 DELF(I )=DELTAT*VF( I) 

: FIND  MINIMUM  DISTANCE  SQUARED  FROM  FRAGMENT  TO  NODE 

9 DMI N= 1 . 0D1 0 
DO  10  1=1 ,NNT 

DIST=(XF-XG( I))**2+(YF-YG(I))**2+(ZF-ZG(I))**2 
IF(DIST. LT.DMIN)NC=I 
IF(DIST.LT.DMIN)DMIN=DIST 

10  CONTINUE 

: SEARCH  NODAL  CONNECTIONS  FOR  ELEMENTS  CONNECTED  TO  NODE  NC 

NEC  = 0 

DO  20  1 = 1 .NET 
00  20  U= 1 ,4 

I F ( NP ( J,I).EQ.NC)NEC*NEC+1 
IF(NP(J,I).EQ. NC ) LNC (NEC ) = I 
I F (NEC . EQ.4 ) GO  TO  30 
20  CONTINUE 
30  CONTINUE 

: CHECK  FOR  PENETRATION  IN  EACH  TRIANGULAR  SUBREGION  OF  THE  NEC  ELEMS. 

NRP  = 0 


IMPTOOOO 
IMPT0001 
IMPT0002 
IMPT0003 
IMPT0004 
1MPT0005 
IMPT0006 
IMPT0007 
IMPT0008 
IMPT0009 
IMPTOO 1 0 
IMPT001 1 
IMPT001 2 
IMPTOO 1 3 
IMPT001  4 
IMPTO0 1 5 
IMPTO0 1 6 
IMPTO0 1 7 
IMPT001 8 
I MP  TO0 1 9 
IMPT0020 
IMPT0021 
IMPT0022 
IMPT0023 
IMPT0024 
IMP  T0025 
IMPT0026 
IMPT0027 
IMPT0028 
IMPT0029 
IMPT0030 
IMPT0031 
IMPT0032 
IMPT0033 
IMPT0034 
IMPT0035 
IMPT0036 
1MPT0037 
1MPT0038 
IMPT0039 
1MPT0040 
IMPT0041 
IMPT0042 
1MPT0043 
IMPT0044 
IMPT0045 
1MPT0046 
IMPT0047 
IMPT0048 
IMPT0049 
IMPT0050 
IMPT0051 
IMPT0052 
IMPT0053 
IMPT0054 
IMPT0055 
IMPT0056 
IMPT0057 
IMPT0058 
IMPT0059 
IMPT0060 
IMPT0061 


201 


l 


I 


I 


) 


A*. 0.0 
BA* 0 0 
CA*0.0 
XA.0.0 
YA=0.0 
ZA=0. 0 

DO  SO  l*t .NEC 
LNUM*LNC(I) 

DO  50  NSR-1 . 2 
NNSR  = ( 1-1 )*2*NSR 
NN1*NP(1,LNUM) 

NN2*NP(NSRf1  . LNUM) 

NN3*NP ( NSR+2 , LNUM ) 

49  CALL  C0LLSN(1 . XG. YG. ZG. PEN, RF , THALF .NNSR.XF , YF ,ZF ,XN, YN ,ZN, T. 
2NN1 .NN2.NN3) 

I F ( PEN ( NNSR ) LE.O.O)  GO  TO  50 

NRP*NRP*1 

LRP(NRP)*NNSR 

LSP*NNSR 

PENM=PEN(NNSR) 

LNMP*LNUM 

AA* AA+ T ( 3 , 1 ) 

BA*8A*  T (3 ,2 ) 

CA  = CAf  T 1 3 ,3 ) 

XA*XA+ XN(NNSR) 

YA*YA+YN(NNSR) 

ZA=ZA»ZN(NNSR) 

50  CONTINUE 

C SKIP  OUT  IF  NO  PENETRATION 
I F ( NRP  EO  0)  GO  TO  300 

C CALC  RADIUS  OF  REGION  OF  INFLUENCE,  EFLN 
C FOR  PRESENT  ASSUME  OELTAT-STAR*DELTAT 

EFLN=0SQRT(EPAN/0ENSP/(1 ,00-ANUP**2))»DELTAT 
1F(IUSEF.EQ. t ) EFLNsUSEF 

C CALCULATION  OF  TRANS.  AND  EFFECTIVE  POINT  OF  IMPACT  WHEN  MORE  THAN 
C ONE  OVERLAP  IS  FOUND. 

IF (NRP  EO  1 ) GO  TO  65 
AL3=DS0RT(AA*AAFBA*BA+CA*CA) 

DA* ( AA  +BA )/C  A 
AL1*DSQRT(2.0D0fDA*DA) 

AL2=AL I *AL3 
T ( 1 , 1 ) * I 0/ A L 1 
T ( 1 , 2 ) - 1 0/A  L 1 
1(1.3) =-DA/AL1 
T ( 2 . 1 ) *-(BA*DAfCA)/AL2 
T ( 2 , 2 ) *(CA+AA*DA)/AL2 
T(2,3) *(AA-BA)/AL2 
T ( 3 , 1 ) =AA/AL3 
T (3 , 2 ) *BA/AL3 
T ( 3 ,3 ) *CA/AL3 
LSR*LRP( 1 ) 

XN(  LSP ) = XA/D  F LOAT (NRP) 

YN(LSP )*YA/DF  LOAT (NRP) 

ZN(LSP )*ZA/0 FLOAT (NRP) 

65  CONTINUE 

C DETERMINE  WHICH  NODES  FALL  IN  THIS  CIRCULAR  REGION 

NK*0 

DO  70  1*1, NNT 

DlST=DSQRT((XN(LSP)-XG(I))»«2+(YN(LSP)-YG(I))«»2+<ZN(LSP)-ZG(l)) 

2**2) 

IF(DIST.GT.EFLN)GQ  TO  70 
NK*NK+  1 
Sl(NK) *DIST 
NEFF(NK)*I 

ALPHA(NK)*1 . 000-01 ST/EFLN 
70  CONTINUE 


1MPT0062 
IMP  T0063 
IMPT0064 
1MPT0065 
IMPT0066 
IMPT0067 
1MPT0068 
1MPT0069 
I MP 1 0070 
IMP  1007 1 
IMPT0072 
IMPT0073 
IMP TOO 74 
IMPT0075 
IMPI0076 
IMPT0077 
I MPT  0078 
IMP! 0079 
IMPT0080 
IMPI0081 
1MPT00B2 
IMPT0083 
IMPT0084 
IMPT0085 
IMPT00G6 
IMPT0087 
IMPT0088 
IMPT0089 
IMP  10090 
I MP 10091 
IMP  1 0092 
IMPT0093 
IMPI0094 
1MPI0095 
IMP  T0096 
IMPT0097 
IMPT0098 
IMPT0099 
1 MP 1 0 1 00 
IMPI010I 
IMPI0I02 
IMPT0I03 
IMPT0I04 
I MP 1 0 1 05 
IMP  TO  106 
IMP  TO  1 07 
IMPI0I08 
IMP  10109 
IMPtOI 10 
Imp  to i 1 1 

IMPTOI 12 
IMPTOI 13 
IMPTOI 14 
IMPTOI 15 
IMPTO1 16 
IMPTOI  17 
IMPTO1 18 
IMPTOI  19 
IMPI0120 
IMPTOI 21 
IMPT0122 
IMP  TO  123 
1 MP  T0 1 24 
IMPT0125 
I MP  TO  1 26 
IMPT0127 


C IF  USER  ESTIMATE  OF  NK  IS  TOO  SMALL,  TERMINATE  RUN. 

IFINIAN  .GE.  NK)  GO  TO  73 
WRITE! MWRI TE , 640 ) ITIME 
WRITE! MWRI TE ,650)  NIAN 
WRITE(MWRITE ,660)  NK 
WRITE(MWRITE ,670) 

CALL  EXIT 
73  CONTINUE 

C TEMPORARY  UPDATE  OF  EFLN  IF  NK*0 . 

I F l NK  GT  0)  GO  TO  74 
NN3*NP ! LNMP  ,3) 

NNUNPILNMP,  1 ) 

EFLN=OSQRT< ( XG(NN3)-XG(NN1))»»2+(YQ(NN3)-YG!NN1))»»2 
2*<ZG(NN3)-ZG<NN1 ) )**2) 

WR1TE(MWRITE .730)  ITIME 
WNITE(M*'RITE  ,740)  EFLN 
GO  tO  65 
74  CONTINUE 

C CALC  CONSTANT,  CONST,  ASSUMING  TOTAL  IMPULSE  APPLIEO  TO  NODES 
C EQUAL  TO  TOTAL  IMPARTED  IMPULSE. 

C FOR  PRESENT.  ASSUME  IMPULSE  IS  ZERO  AT  EFLN. 

CONST  *0.0 
DO  60  1=1 , NK 

80  CONST  = CONST ♦ ALPHA ( I ) 

CONST  = 1 O/CONST 

C CALC  AL  PHAt I ) *CONST  *ALPHA ( I ) 

00  90  1*1, NK 

90  ALPHA! 1)*ALPHA(I)*C0NST 

C ESTABLISH  TRANSFORMATION  MATRIX,  T .CORRESPONDING  TO  TRIANGULAR 
C SUBREGION  WHERE  IMPACT  HAS  OCCURED. 

C note  THAT  TRANS  IS  IN  THE  FORM  XYZ-BAR.T»XYZ 

C IF  MORE  THAN  ONE  OVERLAP,  SKIP  (USE  T ABOVE). 

IF! NRP  GT  1 ) GO  TO  95 
NN=(LSP>1 )/2 
LNMPcLNC(NN) 

NSR=LSP-2*(NN-I ) 

NN1  =NP  ! 1 , LNMP ) 

O NN2=NP(NSR*1 .LNMP) 

10  NN3  = NP  (NSR  + 2 , LNMP) 

CALL  COLLSN!  2,XG,YG.ZG,PEN,RF, THALF , LSP.XF , YF,ZF,XN,YN ,ZN.T , 
2NN1 , NN  2 , NN3 ) 

95  CONTINUE 

C EXTRACT  NODAL  VELOCITIES  IN  IMPACT  AFFECTED  REGION. 

00  100  1*1, NK 
NNI=(NEFF(I)-1).N0PN 
DO  100  J*t,3 
K.NNI  + d 

100  VN( J.  I )=VEL|  K) 

C TRANSFORM  NODAL  VELOCITIES  INTO  BAR  SYSTEM 
DO  110  I * 1 , N K 
DO  110  J=  1 , 3 
VNB(J,  I )=0.0 
DO  110  K*1,3 

110  VNB(J.  1)*VNB!J,I)tT(J,K) * VN(K . I) 

C CALC.  ASSUMED  PRE-IMPACT  VELOCITIES  OF  FRAGMENT 
C TRANSFORM  THESE  QUANTITIES  INTO  BAR  SYSTEM 
DO  130  1*1,3 
OMEGF  3 t I ) = 0 0 
VFBt  I ) *0  0 
DO  130  K*1,3 

0.1EGFB!I)*0MEGFB(I)+T(I,K)»0MEGF(K) 

130  VFB(1)*VFB(I )+T(l,K)«VF(K) 

C CALC.  IMPULSE  INTERACTION  CONSTANTS,  SI ,S2,A0,B1 ,83 
S1*VFB( 1 ) + RF  *0MEGFB(2) 

S2*VFB(2)-RF*OMEGFB!1) 

ao*vfb!3) 


I 


IMPT0I28 
1 MP  TO  1 29 
IMPT0I30 
IMPT013I 
IMPT0I32 
IMPTO I 33 
IMPT0I34 
IMPTO 135 
IMPTO 1 36 
IMPTO I 37 
IMP  TO  1 3B 
1MPT0139 
I MP  TO  1 4 0 
IMPTO 141 
IMPTO 1 42 
IMPTO 1 43 
IMPTO 1 44 
IMPTO 1 45 
IMPI0146 
IMPI0147 
I MP  TO  1 48 
IMP  T 0 1 49 
IMPTO 1 50 
IMPT0I51 
IMPTO 1 52 
IMPT0153 
1 MP  TO  1 54 
IMPT0I55 
1MPT0156 
I MP  TO  I 57 
IMPT0158 
IMPTO 1 59 
IMPTO 1 60 
IMPTO 1 61 
IMPTO 1 62 
IMPT0 1 63 
IMPTO 1 64 
IMPI0I65 
IMPTO 1 66 
IMPT0167 
I MP  T 0 1 68 
IMPTO 1 69 
IMP 1 0 1 70 
1 MPT  0171 
IMP10I 72 
IMPT  0173 
I MPT  01 74 
IMPTO 175 
IMP  TO  1 76 
IMPT  0 I 7 7 
IMP! 0178 
IMPI01 79 
IMP  1 0 I 00 
iMPioiai 
IMPT0102 
IMPT0IB3 
IMPT0104 
IMPTO 1 05 
IMPTO 1 86 
IMP  TO  I 87 
IMPTO 1 68 
IMPT01B9 
IMPT  0 1 90 
IMPTO I 9 1 
IMPTO 1 92 
IMPT0193 


203 


1 


B1-1.0/FMASSfRF-RF/FMOI 

B3-1.0/FMASS 

00  140  1-1. NK 

5 1 - SI- ALPHA ( I ) -VN8 (1.1) 

52- S2- ALPHA ( I)*VN8(2,I) 

A0- AO- ALPHA ( 1 )-VNB(3,l) 

AM=PMASS(N£FF(I)) 

B1=Bl  + ALPHA(l) -ALPHA( I )/ AM 
140  B3-B3 -ALPHA  ( I ) - ALPHA  ( 1 ) / AM 

C IF  AO  LE  0 0.  NO  COLLISION  CAN  OCCUR 

1 F ( AO  LE  0 0 00  ) GO  TO  300 

C SET  IMPACT  INDEX  TO  INDICATE  IMPACT  HAS  OCCUREO. 

IMPCTI -1 

C CALC  POST-IMPACT  momentum  COORDINATES  IN  BAR  SYSTEM 
CALL  INTRAC(St .S2.A0.B1 . B3 .COE FR , FRNC . PT I LOA) 

C CALC  POST-IMPACT  VELOCITY  DIFFERENCES  OF  NODES  IN  BAR  SYSTEM 
C (I  E.  V-PRIME  MINUS  V) 

DO  180  1-1, NK 
K-NEFF ( 1 ) 

AM-PMASS(K) 

DO  180  J-1,3 

180  VNB(J. 1)-ALPHA(I)*PT1LDA(J)/AM 
C CALC.  POST-IMPACT  VELOCITY  DIFFERENCES  OF  FRAGMENT  IN  BAR  SYSTEM 
DO  190  1-1.3 

190  VFB( I ) --PT1LDA(1 J/FMASS 

0MEGFB1 1 )»PT I LDA ( 2 ) -RF/FMOI 
0MEGF0(2)»-PTILDA( 1 ) -RF/FMOI 
OMEGFB(3)-0  DO 

C TRANSFORM  post-impact  NODAL  VELOCITY  DIFFERENCES  BACK  TO  XYZ  SYSTEM 
00  200  1-1 .NK 
DO  200  J»1 .3 
VN( J. I )-0  0 
DO  200  K-1.3 

200  VN(U.I )-VN(J,I)+T(K.J)*VNB(K,I ) 

C TRANS.  POST-IMPACT  VELOCITY  DIFFERENCES  OF  FRAGMENT  TO  GLOBAL 
C SYSTEM  AND  ADD  TO  PRE-IMPACT  VELOCITIES  TO  GET  POST-IMPACT  FRAO. 

C VELOCITIES 

DO  210  1-1,3 
DO  210  K-l .3 

OMEGF( I )-OMEGF( I ) + T(K, I ) -OMEGF  B{K) 

210  VF<I)-VF(I)fT(K,1)-VFB(K) 

C UPDATE  NODAL  VELOCITIES  TO  POST-IMPACT  VALUES. 

DO  230  I-l ,NK 
NN1»(NEFF( 1 ) -1 J-NDPN 
DO  230  J-l ,3 
K-NNI  + J 

230  VEL(K) -VEL(K)+VN(d,I) 

C CONSTRAIN  VEL 

CALL  RCON(VEL  ,NBC( 

IFINRP  E0.1)  GO  TO  250 

WRITE(MWRITE .700)  ITIME 

WRITE (MWRITE ,710)  ( LRP( I ) , 1-1 . NRP) 

WRITE! MWRITE .720)  XN( LSP ) . YN( L SP ) , ZN( LSP) 

GO  TO  300 

250  WRITE (MWRITE .600 ) I T 1ME . LNMP.NSR 

WRITE (MWRITE ,610)XN(LSP) .YN(LSP) .ZN(LSP) 

WRITE! MWRITE . 620 ) P EN( LSP ) 

300  CONTINUE 

C REDUCE  FRAGMENT  POSITION  TO  PRE-IMPACT  VALUE 
XF-  XF-  DELF  ( 1 ) 

YF-YF-DELFI2 ) 

ZF«ZF-0E(F(3) 

C REDUCE  NODAL  COOROS.  TO  PRE-IMPACT  VALUES 
DO  220  1-1. NNT 
NN I * ( I - 1 ) -NO  PN 
XG(I)-XG(I)-DEL0(NN1+1) 


IMPT0194 
IMPT0I95 
IMPT0196 
IMPT0197 
IMPT  0 1 98 
IMPT0I99 
IMPT  0200 
IMP  TO 201 
1MPT0202 
IMP  TO 203 
I MPT  0204 
1MPT0205 
IMPT0206 
IMPF0207 
IMPT0208 
IMPT0209 
IMPT0210 
IMPT021 1 
IMPT0212 
IMPT021 3 
IMPT02 1 4 
IMPT02t5 
IMPT0216 
1MPT02 1 7 
IMPT0218 
IMPT021 9 
IMPT0220 
IMPI0221 
IMPI0222 
IMPT0223 
1MPT0224 
IMPT0225 
IMPI0226 
1MPT0227 
1MPT0228 
IMPT0229 
IMPT0230 
IMPT023I 
IMPI0232 
IMPI0233 
IMPT0234 
I MP 1 0235 
IMPT0236 
IMPI0237 
I MPT  0233 
IMPT0239 
IMPT0240 
IMPT024 1 
IMPT0242 
1MPT0243 
Imp  10244 
1MPI0245 
1MPT0246 
IMPT0247 
IMP  10243 
IMPI0249 
IMP10250 
IMPT0251 
IMPT0252 
1MPI0253 
IMPI0254 
IMPT0255 
IMPT0256 
1MPI0257 
IMPT0253 
IMPT0259 


/ 


I 


204 


220 

600 

610 

620 

640 

650 

660 

670 

700 

710 

720 

730 

740 


YG(I)=YG(I)-DELD(NNt+2)  IMPT02G0 

ZG(I)=ZG(I)-DELD(NNI+3)  1MPT0261 

FORMAT ( 'O' , 1 OX, ' IMPACT  CYCLE* 1 , I10.2X, 'ELEMENT*' , I5,2X , 'SUBREGION  IMPT0262 
2='. 13)  IMPT0263 

FORMAT ( ' '. 1 OX,  'GLOBAL  IMPACT  LOCATION  ( XN , YN , ZN ) = ' , 30 1 5 . 7 ) IMPT0264 

FORMAT ('  ',1  OX, 'PENETRATION  01  STANCE ( IN.)*', 015. 7)  IMPT0265 

FORMAT ( 'O' ,' *****  USER  ESTIMATE  OF  NUMBER  OF  IMPACT-AFFECTED  NODES IMPT0266 
1 TOO  SMALL  AT  CYCLE  NUMBER', 17)  IMPT0267 


FORMAT ('  ‘ , 5 X , ' USER  ESTIMATE  (PARAMETER  NIAN  IN  DUMMY  MAIN  PROGRAM IMPT0268 


1 ) * ' , 1 5 ) IMPT0269 

FORMAT ( ' ',5X, 'ACTUAL  NUMBER  OF  IMPACT  AFFECTED  NODES* ',17)  IMPT0270 

FORMAT ('  ' , 5 X, ' RUN  HAS  BEEN  TERMINATED')  1MPT0271 

FORMAT ( 'O' , 1 OX, ' IMPACT  CYCLE=',I10)  IMPT0272 

FORMAT ( '0' , 1 OX, ‘SUBREGIONS  PEN ETRATED : ‘ , B 1 4 ) IMPT0273 

FORMAT ( 'O' , 1 OX. 'POINT  OF  EFFECTIVE  IMPACT ( XA , YA , ZA ) = ' , 3D1 5 . 7 ) IMPT0274 

FORMAT ( 'O' ,' ♦*  TEMPORARY  UPDATE  OF  EFFECTIVE  LENGTH  AT  CYCLE'  IMPT0275 

2,15)  IMPT0276 

FORMAT ('  ',' EFFECTIVE  LENGTH.' ,D15. 7)  IMPT0277 

RETURN  IMPT0278 

END  IMPT0279 


I 


soz 
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SUBROUTINE  I MPDS(XG, YG, ZG.DELD , VEL.NP. VN, VN8, PMASS.NBC , SI .NEFF, 
1ALPHA.1MPCT1.NIAN) 

IMPLICIT  REA  L*8( A-H.O-Z) 

ASRL  TR  1 54-1 4 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OP  TECHNOLOGY  19B0 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

DIMENSION  XG(1).YG(1).ZG(1),0ELD(1).VEL(1)  ,NP(4 . 1 ) . LNC ( 4 ) , PEN ( 8 ) 
2XN(B). YN(8). ZN(a).T(3,3) . SI { I ) ,NEFF( I ) , ALPHA! 1 ) , VN(3, 1 ).VN8(3.1), 
30MEGFB ( 3 ) .VFB13) ,PMASS(1  ) . PT I L DA ( 3 ) , NBC ( 1 ) 

COMMON /PL AIE /XO , YD , THP ,HXL ,HYL , NEAO, NECD . DENSP « E PAN , AN UP . THALF 
COHMON/BAS/NDT .NET ,MN . NB . N 1 RRE G ,MNC 

COMMON/ TIM/D  ELTAT,  THIEF,  TIME.  I TIMEF,  1NCRT  , I OUT  , I T IME 
COMMON  /PROPC/  COEFR.FRNC.USEF ,NSYM. IPSS, IUSEF 

COMMON/FRAG/ XF,YF,ZF,OELF( 3). VF (3), DTHETFf 3 ),0MEGF(3) .RF.FMASS, 

2 F MO l . FKEO.FKEC 

COMMON  / 1N0U  T / MREAO , MWR 1 TE  .MPUNCH 

CONTROLLING  ROUTINE  FOR  COL  LI S ION / IMPACT  INTERACTIONS 
ANALYSIS  INCLUDING  FRICTION.  ASSUMING  DOUBLE-SYMMETRY 
OPTION  IS  EXERCISED. 

IMPACT  CAN  OCCUR  ONLY  WITH  ELEMENT  NUMBER  ONE  (IMPACT  IS 
ASSUMED  TO  BE  CENTEREO  AT  GLOBAL  NODE  NUMBER  1). 

UPDATE  NODAL  GLOBAL  COORDINATES  TO  TRIAL  VALUES. 

IMPCT 1 «0 

N0PN*6 

NNT  = N0T/6 

DO  1 I * T , NNT 

NN I — ( I — l ) *ND  PN 

XG(I)-XG(1)4-DELD(NNI  + 1) 

YG(l)=YG(I)+0ELD(NNI+2) 

1 ZG( 1 ) * ZG( I)  + DELD(NNI+3) 

UPDATE  FRAGEMENT  POSITIONS  IN  Z-OIRECTION. 

DELF(3 )<=VF(3 )*D£LTAT 
ZF=ZF+DELF(3 ) 

CHECK  FOR  PENETRATION  IN  EACH  TRIANGULAR  SUBREGION  OF  ELEM.  #1. 

DO  50  NSR*1 , 2 
NNSR=N  SR 
NN1*NP (1.1) 

NN2=NP ( NSRF 1 .1) 

NN3=NP (NSRF2 . 1 ) 

50  CALL  COLLSN( 1 .XG.YG.ZG. PEN, RF, THALF. NNSR.XF,YF,?F,XN,YN, 

1ZN.T.NNI . NN2 , NN3) 

SEARCH  FOR  MAXIMUM  PENETRATION 

PENM=  0 . OEO 

IF  (PEN(t).GT.O  0)  LSP-1 

IF  ( PE N( 1 ) GT.O.O)  PENM.PEN(I) 

IF  (PEN(2).GT.PENM)  LSP-2 
IF  (P£N(2) * GT . PENM)  PENM»PEN(2) 

SKIP  OUT  IF  NO  PENETRATION. 


IF(PENM.EO. 0.000)  GO  TO  300 
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CALCULATE  RADIUS  OF  REGION  OF  INFLUENCE,  EFLN. 

EFLN*DSQRT(£  PAN/DENSP)*DELTAT 
IF(IUSEF.EO. 1)  EFLN-USEF 

IMPACT  IS  ASSUMED  CENTERED  AT  X-0 , Y-0. 

DETERMINE  WHICH  NODES  FALL  IN  THIS  REGION. 

65  CONTINUE 
NK  = 0 

00  70  1=1 .NNT 

DIST  = DSQRT ( XG( I ) ♦ XG( I ) +Y  G( I ) * Y G(  I ) + ( ZG( 1 }"ZQ( I) ) **3) 

IF  (DI  ST. GT.  EFLN)  GO  TO  70 
NK=NK+  1 
SI ( NK ) =01  ST 
NEFF(NK)«I 

ALPHA ( NK ) = 1 . ODO-OI ST/EFLN 
70  CONTINUE 

IF  USER  ESTIMATES  OF  NK  IS  TOO  SMALL,  TERMINATE  PROGRAM. 

IF  (NIAN.GE.NK)  GO  TO  73 
WR1TE(MWRITE,G40)  ITIME 
WRITE! MwRI T£ .650)  NIAN 
WR 1 TE  ( MWR I T E .660)  NK 
WR!TC(MWRITE,670) 

CALL  EXIT 
73  CONTINUE 

TEMPORARY  UPDATE  OF  EFLN  IF  NK-0  . 

I F I NK  GT  0)  GO  TO  74 
NN3=NP ( LNMP, 3) 

NN 1 =NP  ( LNMP  , 1) 

EFLN=DSORT( ( XG(NN3)-XG(NNI))**2+(YG(NN3)-YG(NN1) )*»2 
2+(ZG(NN3)-ZG(NN1))**2) 

WRITE(MWRITE ,730)  ITIME 
WRITE(MWRITE,740)  EFLN 
GO  TO  65 
4 CONTINUE 

CALCULATE  ALPHAS  FOR  WHOLE  PLATE. 

NEAD1  * NEAO-M 
NECD1  = NECD+ 1 
DO  75  1=1 ,NK 
NN  = NEF  F ( I ) 

IF  (NN  EO  1 ) GO  TO  75 
NROW=(  NN-1 I/NEAD1 

IF  (NROW  EO. 0)  ALPHA( I)»2.000* ALPHA( 1 ) 

NC0LM=NN-NR0W«NEAD1-1 

IF  (NCOLM  EO  0)  ALPHA! I ) >2 .000 'ALPHA ( 1 ) 

IF  (NROW  GT. 0. AND. NCOLM. GT.O)  ALPHA( I ) -4 . ODO- ALPHA! I ) 

75  CONTINUE 
CONST  * 0 000 
DO  eo  1=1 ,NK 
80  C0NST*CQNST+ALPHA(I) 

CONST- 1 ODO/CONST 
DO  90  1=1 ,NK 

90  ALPHA! I )=ALPHA( I J-CONST 

EXTRACT  NODAL  Z “DIRECTION  VELOCITES  IN  IMPACT-AFFECTED  REGION. 

DO  100  I-T.NK 
NNI=(NEFF(I)-1)*N0PN 
100  VN(3, 1 )»VEL(  NNI  + 3) 

C 
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CALCULATE  INTERACTION  CONSTANTS  AO  ANO  B3. 

A0*VF(  3) 

B3*1 .ODO/FMaSS 
DO  140  1*1. NK 
A0*A0-ALPHA( I )-VN(3,I) 

J*NEFF(1) 

140  B3*B3+ALPHA( I ) -ALP HA ( 1 ) / PMASS ( J ) 

IF  (AO.LE.O  0D0)  NO  COLLISION  CAN  OCCUR. 

IF  (AO  LE  0.0D0)  GO  TO  300 

SET  IMPACT  INDEX  TO  INDICATE  IMPACT  HAS  OCCUREO. 

IMPCT  1*1 

CALCULATE  Z-DIRECTION  IMPULSE. 

PT I LDA (3) * ( 1 .ODO+COEFRJ-AO/B3 

CALCULATE  POST- IMPACT  Z-OIRECTION  VELOCITIES  AT  IMPACT 
AFFECTED  NODES. 

DO  150  1*1 . N K 
U*NEFF(I) 

NNI«( J-t )*N0PN 

150  VEL(NNI+3)*VEL(NNI+3)+ALPHA(l) •PTIL0A(3)/PMASS( J ) 
CALCULATE  POST- IMPACT  Z-DIRECTION  VELOCITY  OF  FRAGMENT. 

VF(3)*VF(3)-PTILDA(3)/FMASS 

PRINT  MESSAGE. 

WRITE  (MWRITE.600)  ITIME.NSR 
WR1TE(MWRITE.610)XN(1 ),YN(1),ZN(t) 

WRITE  (MWRIT  E .620 ) PENM 
WRITE  (MWRIT  E .630) 

300  CONTINUE 

REDUCE  FRAGMENT  Z-POSITION  TO  PRE-IMPACT  VALUE. 
ZF=ZF-DELF(3  J 

REOUCE  NODAL  COORDINATES  TO  PRE-IMPACT  VALUES. 
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0 1*1,  NNT 
1-1 ) *ND  PN 
*XG(I)-DELD(NNI+1) 
»YG(  I)-DEL0(NNI+2) 
«ZG(I)-0£LD(NN!+3) 

T ( ‘O'  , 10X, ' IMPACT 

EGION*'  ,13) 

r ( * ',iox, 'global  i 

T(*  1 ,1  OX, 'PENETRAT 

1 (‘  1 , 10X, 'DOUBLE 

r ( 'O' , USER 

S TOO  SMALL  AT  CYCL 
T ('  *,  5X, 'USER  ES 
. IS) 

T ( ' ' , 5X,  'ACTUAL  N 
T ( * 1 . 5X, ‘RUN  HAS 
( ( 'O' , • TEMPORARY 


IT*' , I 10, 2X, 'ELEMENT-1, 

MPACT  LOCATION  ( XN , YN , ZN ) - ' . 30 1 5. 7 ) 

ION  DI STANCE ( IN. )* ' ,D15. 7) 

SYMMETRY  OPTION  IN  EFFECT') 

ESTIMATE  OF  NUMBER  OF  IMPACT-AFFECTEO  *, 

E NUMBER  ' ,17) 

TIMATE (PARAMETER  NIAN  IN  DUMMY  MAIN  PROGRA 

UMOER  OF  IMPACT  AFFECTED  NODES  • ',17) 

OEEN  TERMINATED') 

UPOATE  OF  EFFECTIVE  LENGTH  AT  CYCLE* 


‘EFFECTIVE  LENGTH* • ,D1 5 .7 ) 
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SUBROUTINE  I f 'PSS ( XG , YG , ZG , DELD , VEL , NP ,VN , VNB , PMASS , NBC , SI , NEFF, 

1 ALPHA,  IMPCT  1 , N I AM ) 

IMPLICIT  REAL»8(A-H, 0-Z ) 

C 

C ASRL  TR  154-1  A.  ...  ORIGINAL  REPORT  VERSION  OF  PROGRAM 
C COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 
C 

C THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

C 

DIMENS  ION  XG( 1 ] , YG( 1 ) ,ZG( 1 ) ,DE LD( 1 ) , VEl(1 ) ,NP(4, 1 ) , LNC(4) , PEN(8) 

2 XN ( 8 ) , YN(o) , ZN(BJ ,T(3,3)  ,SI(1 ) , NEFF( 1 ) , ALPHA( 1 ) , VN(3, 1 ) . VNB(3.1 ) , 
30MEGFB (3) , VFB(3) , PMASS  (1  ) ,PTILDA(3) ,NBC(  1 ) 

COMMON / P LATE /XD, YD, THP.HXL.HYL , NEAD , NECD , DENSP , EPAN , AN UP , THALF 


IMSSOOOO 
IMSSOOO 1 
IMSS0002 
IMSS0003 
IMSS0004 
IMSS0005 
IMSS0006 
IMSS0007 
IMSS0008 
IMSS0009 
IMSS0010 
I MS SO 01 1 
IMSS0012 


common /bas/ndt, net ,mn,nb .nirreg.mnc 

COMMON /TIM/DELTAT , TIMEF .TIME, I TIMEF, INCRT , IOUT, I TIME 
COMMON  /pt>o°C  ' CO  C F ° FRNC.USEF  IPSS  TIJCEF 

COMMON /FRAG/ XF. YF , ZF ! DE L F ( 3 ) , VF(3) , DTHETF<3) ,OMEGF(3) . RF.FMASS. 
2FM0I , F KEO , FK  EC 

COMMON  /INCUT/  MRE  AO  , MWR  I TE  , MP  UNCH 
C 

C CONTROLLING  ROUTINE  FOR  COLLISION  INSPECT  ION/ IMPACT  INTERACTION 
C ANALYSIS  INCLUDING  FRICTION,  ASSUMING  SINGLE-SYMMETRY  OPTION  IS 
C EXERCISED.  IMPACT  CAN  OCCUR  ONLY  ALONG  PLATE  SIDE  NUMBER  1 IF 
C IPSS=1,  OR  PLATE  SIDE  NUMBER  4 IF  IPSS=4 
C 

C UPDATE  NODAL  GLOBAL  COORDINATES  TO  TRIAL  VALUES. 

C 

lMPcn  =o 

NEADl  = NEAD+ 1 

NECDl = NECD  t- 1 

NDPN=6 

NNT  = ND  T/6 

DO  1 1=1  , NNT 

NNI  = ( I -1  ) *NDPN 

XG( I ) = XG( I ) + DEED  (NN 1+1  ) 

YG( 1)=YG(I )+UELD(NNl+2) 

1 ZG(I)=ZG(I)+DELD(NNI+3) 

c 

C UPDATE  FRACMENT  POSITION. 

C 

DO  7 1=1,3 

DTHETF ( I ) = OM  EGF ( I ) *DELTAT 
m 7 DELF(I  ) = VF( I ) *D£LT  AT 
§ XF=XF+DELF( 1 ) 

YF=YF+D£LF(2 ) 

ZF=ZF+DELF(3 ) 

C 

C DETERMINE  WHICH  ELEMENTS  ARE  TO  BE  CHECKED  FOR  POSSIBLE  IMPACT. 

C 

IF  (IPSS.EO  4)  GO  TO  14 
C 

C FOR  CASE  WHERE  SIDE  1 (X-AXIS)  IS  LINE  OF  SYMMETRY, 

C FIND  MINIMUM  01  STANCE  SQUARED  FROM  FRAGMENT  TO  NODE. 

C 

DMIN= 1 0D1 0 
DO  10  1=1, NEADl 

DIST=(XF-XG( I))*t2+(YF— YG(I))* *2+ ( ZF-ZG( I ) )»*2 
IF  ( DI ST . LT . DM IN)  NC=I 
IF  (DIST  LT  DM IN)  DMIN=D 1ST 
10  CONTINUE 
C 

c determine  element  numbers  connected  to  node  nc. 
c 

NEC  = 0 

IF  (NC  E0. 1 ) GO  TO  12 
N£C=NEC+1 
LNC (NEC) =NC-  1 
10  C0MTIN*JC 

IF  (NC  E0  NEADl)  GO  TO  20 
NEC  = NE  C+ 1 
LNC ( f I C ) =NC 
GO  TO  20 


II)!]} 


PAGE  0013 

IMSSOO 1 3 
IMSSOO 1 4 

1 mcc  n A 1 = 

IMSS0016 
I MS SO 01 7 
IMSSOO 1 8 
IMSSOO 1 9 
IMSS0020 
IMSS0021 
IMSS0022 
IMSS0023 
IMSS0024 
IMSS0025 
IMSS0026 
I MSS0027 
IMSS0028 
IMSS0029 
IMSS0030 
IMSS0031 
IMSS0032 
IMSS0033 
IMSS0034 
IiviSauuos 

IMSS0036 

IMSS0037 

IMSS0038 

IMSS0039 

IMSS0040 

IMSS0041 

IMSS0042 

IMSS0043 

IMSS0044 

1MSS0045 

IMSS0046 

IMSS0047 

IMSS0048 

IMSS0049 

IMSS0050 

IMSS0051 

IMSS0052 

IMSS0053 

I MSS0054  , 

XuiSSOOSS 

IMSS0056 

IMSS0057 

IMSS0058 

IMSS0059 

IMSS0060 

IMSS0061 

IMS50062 

IMSS0063 

IMSS0064 

IMSS0065 

IMSS0066 

IMSS0067 

IMSS00S8 

IM5S0069 

IMSS0070 

IMSS0071 


012 

oor»  oooooo  ooo  oooo  ooo  non 


PAGE  0014 


FOR  CASE  WHERE  SIDE  4 (Y-AXIS)  IS  LINE  OF  SYMMETRY. 


IMSS0072 

IMSS0073 


14  CONTINUE 
DMI  N= 1 0D1 0 
DO  16  1 = 1 , NN  T , NEAD 1 

DIST=( XF-XG( I))**2+(YF-YG(I))* »2+( ZF-2G( I ) )*+2 
IF  (DI  ST. LT. DMIN)  NC  = I 
IF  (DIST.LT. DMIN)  DM] N = D I ST 
16  CONTINUE 

DETERMINE  ELEMENT  NUMBERS  CONNECTED  TO  NODE  NC. 

NEC  = 0 

NR0W=( NC-1 ) / NEAD1 + 1 
IF  ( NR OW  EQ.  1 ) GO  TO  18 
NEC  = NE  C + 1 

LNC(NEC)  = (NROW-2 ) » NEAD+ 1 
18  CONTINUE 

IF  ( NR  C'W . EQ  NECD1  ) GO  TO  20 
NEC  = NE  C+1 

LNC(NEC)=(NROW-1 )*NEAD+1 
20  CONTINUE 

CHECK  FOR  PENETRATION  IN  EACH  TRIANGULAR  SUBREGION  OF 
THE  NEC  ELEMENTS. 

DO  50  1=1 .NEC 
LNUM=  L NC ( I ) 

DO  50  NSR= 1 , 2 
NNSR=(  1-1  ) * 2 +NSP 
NN1 =NP  ( 1 , LNUM) 

NN2=NP (NSR+1 , LNUM) 

NN3=NP (NSR+2 , LNUM) 

50  CALL  COLLSN(  1 .XG.YG.ZG.PEN.RF,  THALF , NNSR , X F , YF , Z F , XN , YN . 2N , T , NN1 , 
1NN2.NN3) 

SEARCH  FOR  MAXIMUM  PENETRATION. 

N£C2  = N EC  + 2 

PENM=0 . ODO 

DO  60  1=1 ,NEC2 

IF  (PFN(I)  GT.PENMl  LSP=  I 

IF  (PEN(I).GT.PENM)  P£NM=PEN(I) 

60  CONTINUE 

SKIP  OUT  IF  NO  PENETRATION 

IF  (PE NM  EQ. 0 0)  GO  TO  300 

CALCULATE  RADIUS  OT  REGION  OF  INFLUENCE,  EFLN 

EFLN=DSQRT(EPAN/DENSP)*DELTAT 
I F ( IUS  EF . EQ . 1 ) EFLN  = USEF 

POINT  OF  CONTACT  MUST  FALL  ON  LINE  OF  SYMMETRY. 

IF  (IPSS.EQ.1)  YN( LSP) =0  ODO 
IF  (IPSS.EQ. 4)  XN( LSP) -0 . ODO 
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DETERMINE  WHICH  nodes  fall  in  this  region  of  influence. 

65  CONTINUE 
NK  = 0 

DO  70  1=1 ,NNT 

DIST=DSQRT( ( XN(LSP )-XG( 1 ) ) * *2+ ( YN ( LSP )-YG ( I ) ) **2 
1+lZN(LSP)-ZG(I))**2) 

IF  (DIST  GT.EFLN)  GO  TO  70 
NK=NK+ 1 
SI (NK) =CIST 
NEFF(NK)=I 

ALPHA ( NK ) = 1 . ODO-DIST/EFLN 
70  CONTINUE 

IF  USER  ESTIMATES  OF  NK  IS  TOO  SMALL,  TERMINATE  PROGRAM. 

IF  (NIAN.GE.NK)  GO  TO  73 
WRITE( MWRI TE ,650)  ITIME 
WRITE( MWRITE ,660)  NIAN 
WR I TE ( MWR I TE , 670 ) NK 
WRITE( MWRITE ,680) 

CALL  EXIT 
73  CONTINUE 

T EM°ORAR Y UPDATE  OF  EFLN  IF  NK  = 0 . 

I F ( NK  GT  0)  GO  TO  74 
NN3=NP ( LNMP , 3) 

NN1 =NP (LNMP, 1 ) 

EFLN  = DSORT( ( XG(NN3)-XG(NN1 ) )**  2+( YG( NN3 ) -YG( NN1  ) )**2 
2+(ZG(NN3)-ZG(NN1 ) ) »»2) 

WRITE(MWRITE ,730)  ITIME 
WRITE(MWRITE ,740)  EFLN 
GO  TO  65 
74  CONTINUE 

CALCULATE  AND  SCALE  ALPHAS  FOR  PRESENT  SINGLE  SYMMETRY  ANALYSIS. 

DO  75  1=1 , NK 
NN  = NCF  F ( I ) 

NRO'W=  ( NN-1  ) / NEADl 
NCOLM=  NN-NR0W  + NEAD1  -1 

IF  (IPSS  EQ.1  AND.NROW.EO.O)  GO  TO  75 
IF  (IPSS  EC}.  4 ANC.NCOLM.  £0.0)  CO  TO  75 
At  PHA ( I ) = 2 . 0 DOO* A LPHA ( I ) 

75  CONTINUE 
CONST  = 0 ODO 
CO  80  1=1 ,NK 
80  CONST  = CONST+  ALPhA( I ) 

CONST  = 1 .ODO/CONST 
DO  90  1 = 1 , NK 

90  ALPHA( I / =ALPHA( I ) *CONST 

ESTABLISH  COORDINATE  TRANSFORMATION  MATRIX,  T,  IN 
FORM  (XYZ~BAR)= T*(XYZ) . 

DO  92  1=1,3 
DO  92  0=1,3 
92  T ( I , J ) =0 . ODO 
NN= ( LS  P+1 )/2 
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LNMP=LNC(NN) 

NSR=LSP-2*(NN-1 ) 

IF  ( IPSS  EC)  4)  GO  TO  94 

TRANSFORMATION  WHEN  X-AXIS  IS  LINE  OF  SYMMETRY. 

NN1 = NP ( 1 , LNMP) 

NN2=NP ( 2 , LNMP ) 

ESL=DSQRT( ( XG(NN2 ) -XG(NN1 ) )»*2  + (ZG(NN2)-ZG(NN1  ) ) *»2) 
S I NB= ( ZG ( NN2  )-ZG(NNl ) )/ESL 
COSB=(  XG ( NN2 )-XG(NN1 ) )/ESL 
T ( 1 , 1 ) =C0SB 
T(1 ,3) =SINB 
T(2,2) =1 .000 
T(3t  I ) = -5  IimB 
T ( 3 , 3 ) = C0S8 
CO  TO  96 
34  CONTINUE 

TRANSFORMATION  WHEN  Y-AXIS  IS  LINE  OF  SYMMETRY. 

NN1  = NP ( 1 .LNMP) 

NN2=NF  (4  , Li.MP) 

ESL=DSQRT( (YG(NN2)-YG(NN 1 ) ) **2  + ( ZG( NN2 )-ZG ( NN1 ) ) **2) 
S1NB= ( ZG(NN2  )-ZG(NN1 ) )/ESL 
C0SB= ( YG ( NN2 )-YG(NN1 ) )/ESL 
T(1«1)=1 -000 
T ( 2 , 2 ) = COSB 
T ( 2 . 3 ) =SINB 
T ( 3 , 2 ) --SINB 
T ( 3 , 3 ) -COSB 
96  CONTINUE 

EXTRACT  NODAL  VELOCITIES  IN  IMPACT-AFFECTED  REGION. 

DO  100  1=1 ,NK 

NNI  = ( N EFF ( I ) -1 )*NDPN 

CO  100  J=1 ,3 

K = NN I + J 

100  VN ( J . I ) = V EL ( K) 

TRANSFORM  NODAL  VELOCITIES  INTO  BAR  SYSTEM. 

00  110  I = 1 , H K 
DO  110  d=1 ,3 
VNB ( J , I ) =0 . 0 DO 
DO  110  K=1 ,3 

110  VNE ( J , I)=VNB(J,I)+T(J,K)*VN(K,I) 

TRANSFORM  FRACMENT  VELOCITIES  INTO  BAR  SYSTEM 

DO  130  1=1,3 
GMEGFB ( I ) =0  000 
VFB( I ) =0  0D0 
DO  130  K= 1 .3 

0MpGFB ( I ) =OMEGF3( T )+T(I , K)*0MEGF{K) 

130  VFB(I) =VFB(I )+T(I ,K)*VF(K) 

CALCULATE  IMPULSE  INTERACTION  CONSTANTS. 


IMSS0190 

IMSS0191 

Iri4sm  qp 

IMSS0193 

IMSS01 94 

IMSS01 95 

IMSS0196 

IMSS0197 

IMSS0198 

1MSS01 99 

IMSS0200 

IMSS0201 

IMSS0202 

IMSS0203 

IMSS0204 

IMSS0205 

IMSS0206 

IMSS0207 

IMSS0208 

IMSS0209 

IMSS02 1 0 

IMSS021 1 

I*i^CC2 

IMSS02 1 3 

IMSS0214 

IMSS02 1 5 

IMSS021 6 

IMSS021 7 

IMSS021 8 

IMSS021 9 

IMSS0220 

IMSS022 1 

IMSS0222 

IMSS0223 

IMSS0224 

IMSS0225 

IMSS0226 

IMSS0227 

IMSS0228 

IMSS0229 

IMSS0230 

IMSS023 1 

IMSS0233 

IMSS0234 

IMSS0235 

IM3S0236 

IMSS0237 

IMSSC238 

IMSS0239 

IMSS0240 

IMSS0241 

IMSS0242 

IMSS0243 

IMSS0244 

IMSS0245 

IMSS0246 

IMSS0247 

IMSS0248 


ei  z 

no  oooon  oo  oooono  ooooooooo 


) i i i i 


SI = VFB ( 1 ) +RF  * OMEGF  B( 2 ) 

S2=VFB(2)-RF  * OMEGF  6(1) 

AO=VFB (3) 

B3=  1 .ODO/FMASS 

DO  140  1=1 ,NK 

SI =S1- ALPHA ( I ) * VNB ( 1 ,1) 

S2=S2- ALPHA ( I)*VNB(2,I) 

A0  = A0—  ALPHA ( I)*VNB(3,I) 
d = NEF  F ( I ) 

140  B3  = B3+  ALPHA ( I ) * ALPHA ( I ) / PMASS ( d ) 

B1=B3+RF*RF/ FMOl 

IF  AO  IS  NON-POSITIVE,  THEN  NO  COLLISIONS  CAN  OCCUR. 

IF  (AO . LE.O. 0)  GO  TO  300 

SET  IMPACT  INDEX  TO  INDICATE  THAT  IMPACT  HAS  OCCURED. 

IMPCT1 =1 

MODIFY  SI  OR  S2  FOR  SINGLE  SYMMETRY  IMPACT. 

IF  (IPSS.EQ.  1 ) S2  = 0 . 0D0 
IF  (IPSS.EQ. 4)  SI =0. 0D0 

CALCULATE  POST- IMPACT  MOMENTUM  COORDINATES  IN  BAR  SYSTEM. 

CALL  INTRAC( SI .52, AO, B1  , B3 , COE FR , FRNC , PT I LDA) 

CALCULATE  POST- IMPACT  VELOCITY  DIFFERENCE  OF  NODES  AND  FRAGMENT 
IN  BAR  SYSTEM  (I.E.  V-PR1ME  MINUS  V). 

DO  180  1=1 ,NK 
K = NEFF ( I ) 

AM=PMASS(K) 

DO  180  d=1 ,3 

160  VNB( d , I )=ALPHA(I ) * PT I LDA ( d )/AM 
DO  190  1=1.3 

190  VFB(I)=-PTIL DA ( I ) / FMASS 

OMEGFB ( 1 ) =PT I LDA( 2 ) *RF/FMOI 
OMEGF  B(2)=-PTI LDA ( 1 )«RF/FMOI 
OMEGFB ( 3 ) =0 . DO 

TRANSFORM  POST- IMPACT  NODAL  VELOCITY  DIFFERENCE  BACK  TO  XYZ  SYSTEM. 

DO  200  1=1 ,NK 
DO  200  d = 1 ,3 
VN( d , I ) =0 . OD  0 
DO  200  K= 1 , 3 

200  VN( d , I )=VN(d , I)  + T(K.d)*VNB(K,  I ) 

TRANSFORM  POST- IMPACT  VELOCITY  DIFFERENCE  OF  FRAGMENT  TO  GLOBAL 
SYSTEM  AND  ADD  TO  PRE-IMPACT  VELOCITIES  TO  GET  POST-IMPACT 
FRAGMENT  VELOCITIES. 

DO  210  1=1,3 
DO  210  K= 1 ,3 

OMEGF ( I )=OMEGF(I )+T(K, I ) * OMEGF  B(K) 

210  VF(I)=VF(I)+T(K,I)*VFB(K) 

UPOATE  NODAL  VELOCITIES  TO  POST-IMPACT  VALUES. 


IMSS0249 
IMSS0250 
IMSS0251 
IMSS0252 
IMSS0253 
I MSS0254 
IMSS0255 
IMSS0256 
IMSS0257 
IMSS0258 
IMSS0259 
IMSS0260 
IMSS0261 
IMSS0262 
IMSS0263 
1MSS0264 
IMSS0265 
IMSS0266 
IMSS0267 
IMSS0268 
IMSS0269 
IMSS0270 
IMSS027 1 
IMSS0272 
IMSS0273 
IMSS0274 
IMSS0275 
IMSS0276 
IMSS0277 
1MSS0278 
IMSS0279 
IMSS0280 
IMSS0281 
IMSS0282 
IMSS0283 
IMSS0284 
IMSS0285 
IMSS0286 
IMSS0287 
1MSS0288 
IMSS0289 
IMSS0290 
IMSS0291 
1MSS0292 
IMSS0293 
1MSS0294 
IMSS0295 
IMSS0296 
IMSS0297 
IMSS0298 
IMSS0299 
IMSS0300 
1MSS0301 
IMSS0302 
IMSS0303 
IMSS0304 
IMSS0305 
IMSS0306 
IMSS0307 


onnooo  ooo  non  n r>  o no 


DO  230  1=1 ,NK 
NNI=(NEFF(I ) -1 )*NDPN 
DO  230  J=1 ,3 
K=NN  I + J 

230  VEL(K) =VEL(K  )+VN(d , I ) 

CONSTRAIN  VELOCITY 

CALL  R CON ( VE  L , NBC ) 

PRINT  MESSAGES. 

WR I TE ( r.'WR  I T E , 600  ) I T IME  , LNMP  , NS  R 

WR  I TE ( MWR I TE  , 61 0 UN(  L5P  ) . YN(  LS  P ) , ZN(  LSP) 

WRITE(  MWPUE  ,620jfpEN(  LSP  ) 

IF  (IPSS  EQ.1)  WR1 TE(MWR ITE , 63 0 ) 

IF  (IPSS.EQ.4)  WR'lTE(MWRITE,640) 

300  CONTINUE 

REDUCE  FRAGMENT  POSITION  TO  PRE-IMPACT  VALUE. 

XF  = XF- OE  LF ( 1 ) 

YF  = YF-DELF(2  ) 

ZF=ZF-DELF(3  ) 

REDUCE  NODAL  COORDINATES  TO  PRE-IMPACT  VALUES. 


220 

600 

C i c 
620 
630 
640 
650 

660 

67C 

660 

730 

740 


DO  220 
NNI = ( I 
XG(I)  = 
YG(  I ) = 
2G(I)  = 
FORMAT 
13) 

FCRMmT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
‘MODES 
FORMAT 
M)=  ‘ , 
FORMAT 
FORMAT 
FORMAT 
.15) 
FORMAT 
RETURN 
END 
SUBRQU 
IMPLIC 


1 = 1 , NNT 
-1 )-NDPN 

XG( I ) — DE  LD( NNI +1 ) 

YG( I )-DELD(NNI+2) 

ZG( I )-DELD(NNI+3) 

('OMOX,1  IMPACT  IT=*  , II  0.2X,  1 ELEMENT  = 1 . IS.2X,  ' SUBREGION**  . 

('  1 , i CX,  1 GuOBAL  IMPACT  LOCAT I ON ( XN , YN , ZN ) = * , 3D1 5 . 7 ) 

(‘  * , 1 OX, ‘PENETRAT ION  D I ST ANCE ( IN . ) = 1 . D1 5 . 7 ) 

(‘  ' .1  OX, 'SINGLE  SYMMETRY  OPTION  IN  EFFECT  ALONG  X-AXIS') 

(‘  1 , 1 OX, ‘SINGLE  SYMMETRY  OPTION  IN  EFFECT  ALONG  Y-AXIS') 

( ‘O' , '«****  USER  ESTIMATE  OF  NUMBER  OF  IMPACT-AFFECTED 
TOO  SMALL  AT  CYCLE  NUMBER  *,I7) 

('  *,  5X , 'USER  ESTIMATE (PARAMETER  NIAN  IN  OUMMY  MAIN  PROGRA 
15) 

('  ',  OX, 'ACTUAL  NUMBER  Or  I ".'FACT  AT  FCCTEC  f.OCCC  . ' ,17) 

(‘  ' , 5X , ' RUN  HAS  BEEN  TERMINATED') 

( ■ 0 ‘ ‘ * TEMPORARY  UPDATE  OF  EFFECTIVE  LENGTH  AT  CYCLE* 


( ' 


'EFFECTIVE  LE NGTH= ' , D1 5 . 7) 


TINE  I NTR AC (SI ,S2, A0.61 . B3 , COEFR , FRNC , PT I LDA ) 
IT  REAL*8(A-H,0-Z) 


ASRL  TR  154-14  . . ..ORIGINAL  REPORT  VERSION  OF  PROGRAM 
COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

DIMENSION  PT  I LDA( 3 ) 


IMSS0308 

IMSS0309 

T MCPPO  4 

IMSS031 1 
IMSS0312 
IMSS03 1 3 
IMSS03 1 4 
IMSS0315 
IMSSC316 
IMSS031 7 
IMSS0318 
IMSS031 9 
IMSS0320 
IMSS0321 
IMS50322 
IMSS0323 
IMSS0324 
IMSS0325 
IMSS0326 
IMSS0327 
IMSS0328 
IMSS0329 
IMA  An  no 
IMSS0331 
IMSS0332 
IMSS0333 
IMSS0334 
IMSS0335 
IMSS0336 
IMSS0337 
IMSS0338 
IMSS0339 
IMSS0340 
IMSS0341 
IMSS0342 
IMSS0343 
IMSS0344 
IMSS0345 
IMSS0346 
IMSS0347 
IMSS0348 
IMSS0349 

IMSS0351 

1MSS0352 

IMS50353 

IMSS0354 

IMSS0355 

IMSS0356 

INTCCOOO 

INTC0001 

INTC0002 

INTC0003 

INTC0004 

INTC0005 

INTC0006 

INTC0007 

INTC0008 

INTC0009 


215 


] 


] 


I 


] 


] 


C THIS  SUBROUTINE  CALCULATES  THE  POST-IMPACT  MOMENTUM  COORDINATES 
C IN  3-D  MOMENTUM  SPACE  A GRAPHICAL  SOLUTION  TECHNIQUE  WAS  USED  TO 
C DETERMINE  THE  ANALYTIC  EXPRESSIONS  USED  II'  THIS  PO'JT!ME . T‘*S 

C PARAMETERS  SI,  S2,  AND  B1  DEFINE  THE  LINE  OF  NO  SLIDING,  ANd"aO 

C AND  B3  DEFINC  THE  PLANE  OF  MAXIMUM  APPROACH.  COE FR  IS  THE 
C COEFFICIENT  OF  RESTITUTION  AND  FRNC  IS  THE  COEFFICIENT  OF  FRICTION 
C BETWEEN  THE  CONTACTING  SURFACES.  PTILDA(I)  IS  THE  VECTOR  OF 
C POST-IMPACT  MOMENTUM  COORDINATES  (OUTPUT)  IN  THE  X-BAR,  Y-BAR, 

C AND  Z-BAR  (NORMAL)  DIRECTIONS  RESPECTIVELY. 

C 

C CALC.  TANL=TANGENT( LAMBDA) 

CONST  1 =DSQRT ( S 1 * S 1 +S2*  52  ) 

TANL=B3»CONST1/(AO*B1 ) 

C CONSIDER  PERFECTLY  SMOOTH  CONTACT  SURFACES 
IF(FRNC.G1  0 . 0 )GO  TO  10 
PT I LDA ( 1 ) =0 . 000 
“ PTILDA(2)=0. ODO 

PT I LDA ( 3 ) = ( 1 . ODO+COEFR ) * AO/ 83 
RETURN 

10  CONTINUE 

IF(FRNC-GE.T  ANL )GQ  TO  20 
C CASE  WHERE  FRNC  LESS  THAN  T ANL 
CQSTB  = S 1 /CON  ST  1 
S I NTB=  S 2 /CON  ST  1 
PN1 -AO /B3 

PTILDA ( 1 ) =C0 STB* FRNC*  (1 . ODO+CO EFR ) *PN1 
PTILDA (2)=SINTB*FRNC*(1 . ODO+CO EFR ) *PN1 
PT I LDA ( 3 ) = ( 1 .ODO+COEFR)* PN1 
RETURN 

20  CONTINUE 

C CASE  WHERE  FRNC  GREATER  THAN  OR  EQUAL  TO  TANL 
C ALSO  CASE  OF  PERFECTLY  ROUGH  CONTACT  SURFACES 
PT I LDA ( 3 ) = ( 1 .ODO+COEFR ) + AO/ 63 
PT I LDA ( 1 ) — S 1 /B1 
PTILDA(2)=S2/B1 
RETURN 
END 


I NT  CO0 1 0 
INTC001 1 
t mt  r'rxn  « o 

INTCO0 1 3 
INTCO0 1 4 
INTC0015 
INTC001 6 
INTC0017 
INTC001 8 
I NTC001 9 
INTC0020 
INTC0021 
INTC0022 
INTC0023 
INTC0024 
INTC0025 
INTC0026 
INTC0027 
INTC0028 
INTC0029 
INTC0030 
INTC0031 

1 N I 

INTC0033 
INTC0034 
INTC0035 
INTC0036 
INTC0037 
INTC0038 
INTC0039 
INTC0040 
INTC004 1 
INTC0042 
INTC0043 
INTC0044 
INTC0045 
1NTC0046 


PAGE  0019 
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SUBROUTINE  I MA  INP(  OELD,  D I S , DI S P . DISM1 , DISM2, FLN , FLVA, FLVM, FLVP, 
2VEL.ICOL. INUM.KROW.NDEX.  S TF. AMASS. NP , NODE, TAUSS, TAUSE. TAUES, 

3EPSSI , EPSSO. EPEE! , EPEEO, EPSEI . EPSEO.NBC. BC , RFM, I LAST.UCF1 ,UCF2, 
4XG, YG, 2G.XGI ,YGI . T AGSS . LNXS , XS PROP . MATXS , T SGEE. LNYS , YS PROP ,MATYS , 
5LNRS, I SRS.SC ,MAXE L , MNSL , MNSLT4 . NBE , MBWE . MNXST ,MN YST , NV SA , NCON , 
6PMASS, VN.VNB  ,Sl .NEFF .ALPHA #N I AN) 

IMPLICIT  REA  L+8( A-H.O-Z ) 

ASRL  TR  154-14  ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USEO  EXCLUSIVELY  BY  THE  CIVM  PLATE  PROGRAM. 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 

DIMENSION  D£LD(1),D]S(1)  , 0 1 SP(  1 ) , Dl SMI ( 1 ) , 01 SM2( 1 ) , FLN ( | ) , FLVA( 1 ) * 
2FLVM(1  ) , FLVP ( 1 ) t VEL(1).  ICOL ( 1 ) , INUM( 1 ) ,KROW( 1 ) , ND£X( 1 ) , 

3 ST F ( 1 ). AMASS (1).NP( 4.1  ) . NODE( 1 ) , TAU$S(MAXEL ,MN SLT4 , 9 ) . 
4TAUSE(MAXEL,MNSLT4  , 9) , T AUEE(M AXEL .MNSLT4 , 9) , &PSSI (9, 1 ) .6PSSO(9*1 ) 
5. EPEE  I (9.1 ) . EPEE0(9. 1 ) .EPSEI (9 , 1 ) ,EPSE0(9, 1 ) .NBC ( 1 ) ,BC ( | ) , RFM(NBE . 
6MBWE) . I LAST ( l).UCFI(l) ,UCF2(1 ) , XG( 1 ) , YG( 1 ) , 2G( I ) , XGI ( I ) , YGI ( 1 ) , 

7T AGSS ( MNXST, MNSLT4. 3 ).LNXS(1) , XSPR0P(7, 1 ) .MATXS ( 1 ) , TSGEE (MNYST , 

0 J1NSLT4  , 3)  , LN  YS(  1 ) , YSPROP  (7,1  ) . MATYS(  1 ) . LNRS(  1 ) . 1 SRS(  1 ) , SC(5, 1 ) 
9.NVSA(  1 ) ,NCON( 4,1) ,PMASS( 1) ,VN(3,1 ) ,VNB(3, 1 ) , SI ( 1 ) ,NEF  F ( 1 ) , 
t ALPHA ( 1 ) 

the  following  dimension  statements  are  fixed  FOR  ALL  COMPUTER  RUNS. 

DIMENSION  SIG(5).EP$(5).DSR(5) , PSR ( 5 ) . £S( 6 ) , SUBW ( 5 . 5 ) . $N0(5,5) , 
2NMSUB( 5)«EK( 24,24) ,GBI (24,24) , EML( 24 ) , STDE (9,24) ,SS(5) 

DATA  GBI/1  0.-1  0,-1  0,1  0,24*0.0, 1 .0.-1  0.-1  0,1  0 . 24 • 0 . 0 , 1 . 0 . 
23*0.0, -3  0.-3. 0,2*0  0,9  0,2  0.2  0,2*0  0 , -6 . 0 . -6 . 0 , 4 0,9*0  0.1  0. 
b\  32*0  0,-2  0.2*0  0,-3  0,6  0,1  0,2*0  0,2  0,-3  0,-4  0,2  0,10*0.0.1.0, 

42*0.0, -2  0,-3  0,0  0,6  0,0  0.1  0.2  0.0  0 . -4 . 0 , -3 . 0 , 2 . 0 . 1 1 *0 . 0 , 1 . 0, 
52*0  0,-2  0,-2  0,4  0,2+0  0,2+1  0,-2  0,-2. 0,1  0.0. 0.1  0,0  O.-I.O, 
C25*0  0 . 1 0,0 .0,-1  0. 

620*0  0,3  0.3*0  0,-9  0,-2  0 . 3+0 . 0 , 6 . 0 . 6 0,-4. 0,12*0  0,-1  0.3*0  0. 

73  0,1  0,3*0. 0,-3. 0,-2  0,2  0,14+0.0,3  0,0  0,-6  0, 2*0.0, -2  0,0.0, 

84  0.3. 0,-2  0,14*0  0,-1  0.0  0.2. 0,2*0  0,1  0,0  0,-2  0,-1. 0,1  0, 3*0.0 
9.1  0,27*0  0.  1 .0,32*0.0,9 .0,4*0  .0,-G  0,-6  0,4  0,16*0.0, -3  0, 4*0.0. 
A3  0,2  0,-2  0,16*0  0,-3. 0.4*0  0,2. 0,3  0,-2  0,16*0  0,1  0,4*0  0,-t.O. 
8-1  0.1  0.2*0  0,1  0,-1  0,26*0  0,1  0,-1  0,29*0  0,3  0,2+0 .0,-9. 0,0.0. 
C-2  0,2*0  0.6. 0,6  0,-4  0,15*0  0,3  0,-6  0,3+0  0 ,-2.0, 3.0, 

04  0,-2  0,13+0  0,-1. 0.2*0  0,3  0 , 0 . 0 , 1 . 0 , 2 + 0 . 0 , -2  0 , -3. 0 , 2 . 0 , 1 5+ 0 . 0 . 
E-1  0,2  0,3*0  0.1  0,-1  0,-2  0,1  0/ 

COMMON/PLATE /XOI ST ,YDI ST , TH  . H XL , HY L , NE AD , NECD, OENSP , E PAN. ANUP, 
2THALF 

COMMON /BAS/NDT .NET ,MN,N8 .NIRREG.MNC 

COMMON /TIM/DELTAT.TIMEF, TIME, I TIMEF, INCRT, I OUT, I TIME 
COMMON /PRNI/ IOP I . I0P2, I0P3. IOP 4 , 10P5 . I0P6 , I0P7, I0P8 
COMMON /FRAG/ XF,YF.ZF,OELF(3),VF(3),DTHETF(3),OMEGF(3) , RF , FMASS , 
2FM0I .FKEO.FKEC 

COMMON  /PROPC/  COEFR.FRNC.USEF ,NSYM, IPSS, I USEF 
COMMON  /INOUT/  MRE AD , MWR I TE ,MP UNCH 
COMMON  /MASSM/  IMASS 
C CIVM-PLATE  1 COMPUTER  CODE 

C CONTROLLING  ROUTINE  FOR  EL AST IC- PlAST IC , LARGE  DEFLECTION  TRANSIENT 
C ANALYSIS  OF  STIFFENED  ANO/OR  UNSTIFFENED  FLAT  PLATES  SUBJECTED  TO 
C IMPACT  BY  A S'NGLE  FRAGMENT. 

C 

I PASS  * 1 
s IMASS=  1 
NDPE  = 2 4 

READ (M READ, 500 ) I MESH. IMCONT , I PUNCH 


MNPOOOO 
MNP0001 
MNP0002 
MNP0003 
MNP0004 
MNP0005 
MNP0006 
;MNP0007 
MNP0006 
MNP0009 
MNP0010 
MNPOOI 1 
MNP0012 
MNP0013 
MNPOOI 4 
MNPOOI 5 
MNPOOI 6 
MNP0017 
MNPOOI 8 
MNPQ019 
MNP0020 
MNP0021 
MNP0022 
MNP0023 
;MNP0024 
MNP0025 
MNP0026 
;MNP0027 

;mnpoo20 

;mnP0029 
MNP0030 
;mnpoo3i 
MNP0032 
! MNP0033 
MNP0034 
;MNP0035 
MNP0036 
MNP0037 
MNPQ038 
MNP0039 
1MNP0040 
I MNP004 1 
[MNP0042 
IMNP0043 
IMNP0044 
1MNP0045 
IMNP0046 
:MNP0047 
;MNP004B 
IMNP0049 
1MNP0050 
MNP0051 
I MNP0052 
MNP0053 
i MNP0Q54 
MNP0055 
I MNP0056 
IMNP0057 
IMNP0058 
;mnpoo59 
iMNP0060 
IMNP0061 
IMNP0062 


) 


on  no 


MESH  GENERATION 

IF(IMESH  EQ  0. OR. IMESH.EO. 1 JCALL  M£SHPA|NP , NODE . XG . YG . ZG. NBC . BC. 
2LNXS.LNYS.XGI.YGI , XSPROP . YSPRO P ,NXST , NYST . IMESH.MATXS , MATYS ) 

I F( IMESH.EO  2 (CALL  MESHPM( NP . NODE , XG . YG. ZG , NBC , BC . LNXS . LNYS . XGI , 
2YGl.XSPROP.YSPROP.NXST. NYST. IMESH.MATXS. MATYS) 

SETUP  OF  STORAGE 

CALL  ARRT1STF.AMASS.FLVA.IC0L,  INUM.KROW.NOEX, NODE. NOPE) 

C 

C STRESS-STRAIN  INFORMATION  FOR  EACH  MATERIAL. 

C NOTE—  PLATE  MATERIAL  IS  ASSUMED  TO  CORRESPOND  TQ  FIRST  MATERIAL. 
NA  = 3 
NZ  = 4 

READ(MREAD.S00)NMAT 
WRITE!  MWRI  TE  . GOO ) 

CON t = 2 00»(I  00*anup)/3.  DO 

C0N2*2 .DO* (0  SDO-ANUP )/3 . DO 

DO  60  l»1  .NNIAT 

RE AD (M RE AO, 5 00 )NSUB 

READ! MREAD.5 10)1 SIG(d) ,d»1 ,NSU8) 

READ(MREAO,S 1 0 ) ( EPS ( U ) ,d»t ,NSUB) 

READ(MREAD,S10)DSR(I),PSR( I) 

ES(1)*SIG(t)/EPS(l) 

C DEFINE  VALUE  OF  youngs  MODULUS  BASED  ON  EPS(l)  AND  SIG(I)  . 

1 F ( I EO  I)  EPAN.ESd) 

IF(NSUQ-I 130 , 30, 10 
10  DO  20  LS*2.N$UB 

20  ES(LS)«(S1G(LS)-SIG(LS-1 ) )/(EPS( LS)-EPS( LS-1 ) ) 

30  ES(NSUBTI ) *0 .0 

C0N3=  ESI  1 ) * ( 0 . 500-ANUP)/ ( 1 .000  +ANUP) 

AI*0  ODO 
ASUMsO  .000 
EI*0  000 

. ESUM=0  ODO 

1 DO  40  LSs1 .NSUB 

ASUMsASUMfAI 

A I = 1 DO-CONI .ES(LS  + 1)/(ES(1)-C0N2*£S(LS+t) )-ASUM 
SU0W(1 , LS) sA 1 
ESUMs  E SUM+E I 

1 F ( LS  NE.  NSUB)  E 1 - ( t .D0-ES|LS+1 )/ES( 1 ) ) • ( EPS( LS+1 J-EPS(LS)) 
SNO( I . LSJsES ! 1 )*EPS(LS)+C0N3*ESUM 
40  CONTINUE 

NMSUB! 1 )«NSUB 
WRITEIMWRITE .610)  I 
WRITE(MWRlt£ ,615) 

DO  50  d* 1 , NSUB 

50  WRITE! MwR l TE . 620 ) J , S1G( J ) . EPS! J) . SNO( I . J) . SUBW( I . d) 

WRITEIMWRITE ,630)DSR( I), PSR( I) 

60  CONTINUE 
500  FORMAT (2014) 

510  FORMAT (5016  7) 

600  FORMAT ( ‘O' PROPERTIES  FOR  USER-SPECIFIED  MATERIALS*) 

610  FORMAT ( *0* , 1 PROPERTIES  FOR  MATERIAL  NUMBER',13) 

615  FORMAT!1  1 .* SUBLAYER1 ,5X, "STRESS  POINT 1 . 5X . 1 STR A IN  POINT1. 5X. 

Z'YIEID  STRESS* ,2X, ‘WEIGHTING  FACTOR1) 

620  FORMAT!1  1 . 1 5 . 4X . D 1 6 7 . 1 X . 01 6 . 7 . 1 X. D 1 6. 7 . 1 X, 01 6. 7 ) 

630  FORMAT!1  *, ‘STRAIN  RATE  PARAMETERS:  0- 1 , 01 6. 7 . 2X , 1 P« ' , D16.7) 

c time-step  information 

REAO!MREA0.500)1TIMEF,INCRT.10UT 
READ! MREAD.5 10)0£LTAT,TIMEF 
WRITE! MwRITE .640) 

WRITE(MWRITE .650)  DELTAT 
WRITE!  MwRITE  ,660)  THIEF.  1TIMEF 
WR1TE(MWR1TE. 670)  INCRT 

640  FORMAT  CO*,' TIMEWISE  SOLUTION  PARAMETERS') 


I 


I 


) 


I 


I 


1MNP0063 
IMNP0064 
IMNP0065 
IMNP0066 
IMNP0067 
1MNP006B 
IMNP00G9 
IMMP0070 
1MNP007I 
IMNP0072 
IMNP0073 
IT1NP0074 
IMNP0075 
IMNP0076 
1MNP0077 
IMNP0078 
H1NP0079 
1MNPOOUO 
IMNP00B1 
IMNP00Q2 
1MNP00B3 
1MNP00Q4 
IMNP0005 
IMNP0006 
IMNP0087 
IMNP0088 
IMNP0009 
IMNP0090 
IMNP009I 
IMNP0092 
IMNP0093 
IMNP0094 
IMNP0095 
1MNP0096 
IMNP0097 
IMNP0098 
1MNP0099 
IMNPOIOO 
IMNPOIOI 
IMNP0T02 
1MNP0103 
1MNP0104 
lMNPOIOS 
1MNP0IO6 
IMNP0I07 
1MNP0108 
IMNPO I 09 
1MNP01 10 
1MNP0I 1 I 
1MNP0I 12 
1MNP0I 13 
1MNP0I 14 
1MNP01 IS 
IMNPO 1 16 
IMNPO I 17 
IMNPO I IB 
IMNPO I 19 
IMNPO 120 
IMNPO 121 
IMNPO I 22 
IMNPO I 23 
IMNPO I 24 
IMNP0125 
IMNPO 126 
IMNPO 1 27 
IMNPO 1 28 


on  o o 


/ 


to 

M 

CD 


650  FORMAT ( * *. ‘TIME-STEP  Si ZE- 1 . D 1 6.7, 2X . • SEC . • ) 

660  FORMAT  ( * • , • RUN  WIU  TERMINATE  AT  TIME  «‘.D16.7,2X 
2LE  NUMBER  * ,18) 

670  FORMAT (*  * , 1 REGULAR  PRINTOUT  WILL  BE  GIVEN  EVERY* 

ESTABLISH  PRINT  OPTIONS 

CALL  PRTOP(NNSA.NVSA.NCON.NP) 

IF(MN  .GT.  MNC)  WRITE(MWRITE.675)  MN.MNC 
» FORMAT (1H0.10(1H*), ‘ASSEMBLED  K REQU I RES ‘ , 1 7 # 

•MENS I ONED  FOR  ONLY* ,17.*.  CALL  EXIT.*) 

I F ( MN  GT  MNC) CALL  EXIT 


INITIALIZATION 
NZSUQL=NZ*MNSL 

nasq=na*na 

DO  200  1-1.9 
DO  200  d*1 .NET 
EPSSI ( I ,d)=0 .0 
EPSSO(  I , J)*0  .0 
EPEEK  l,J)=0.0 
EPEEO( I ,d)*0  0 
EPSEI ( 1 ,d)*0  .0 

200  EP5EO( I , J ) -0  0 
DO  201  1-1 .NET 

DO  201  JZ-1 , NZSUBL 
DO  201  JA-1 , NASO 
TAUSS( I ,JZ. JA)*0.0 
T AUEE ( l , JZ. JA)*Q.O 

201  TAUSE( 1,JZ,JA)*0  0 

c 

DO  301  I-1.MNYST 
DO  301  JZ-1. NZSUBL 
DO  30)  JA  = 1 # NA 
301  TSGEE ( I , JZ.d A)-0.0 
C 

DO  303  1-1 .MNXST 
DO  303  JZ-1 , NZSUBL 
DO  303  JA*t . NA 
303  TAGSS( l.JZ.JA)>0.0 
C 

PLASTW-0.0 
T I M b = 0 .0 
ITIME-0 

c 


1MNP0129 
•SEC.  OR  AT  CYCIMNPQ130 
1MNP01 31 

» 15, 2X, ‘CYCLES* ) 1MNP0132 
IMNP0133 
IMNP0134 
IMNP0135 
IMNP01 36 
* ENTRIES. USER  HAS  OIIMNP0137 
IMNP0I38 
1MNP0139 
IMNPO 140 
IMNPO 141 
IMNPO 142 
IMNPO 143 
IMNPO 144 
IMNPO 145 
IMNP0I46 
IMNP0147 
1MNP0148 
1MNP0149 
1MMP0150 
IMNP0151 
IMNPO 1 52 
IMNP0153 
IMNPO l 54 
IMNPO 155 
IMNPO 156 
IMNPO 157 
IMNPO 158 
IMNPO 159 
IMNPO 160 
IMNPO 161 
IMNPO 1 62 
IMNPO 163 
IMNPO 164 
IMNPO 165 
IMNPO 166 
IMNPO 167 
IMNPO 168 
IMNPO 169 
IMNPO 170 
IMNPO 171 
IMNPO 172 
IMNPO 1 7 3 
IMNPO 1 74 
IMNPO 1 75 
1MNP0176 
IMNPO 177 
IMNPO I 78 
IMNPO 179 
IMNPO 100 
IMNPO 181 
1MNP01Q2 
IMNPO I 03 
IMNPO I 84 
IMNP0185 
IMNPO 186 
IMNPO 187 
IMNPO 108 
IMNPO 189 
IMNPO 1 90 
IMNPO 191 
IMNPO 192 
IMNPO 193 
IMNPO 194 


C FORMATION  and  ASSEM8LY  OF  STIFFNESS  AND  MASS  MATRICES 
C FOR  PLATE  ELEMENTS 
304  NTYPE-1 

DO  220  LNUM- 1 .NET 
NN 1 =NP ( 1 . LNUM) 

NN2=NP (2, LNUM) 

NN4=NP (4. LNUM) 

Xt-XG! ( NN2 )- XGI ( NN 1 ) 

YL= YG1 (NNl)-YGt(NNI ) 

CALL  RPLATE(NTYPE,ANUP.XL,YL.TH,0  DO , 0 . DO . 0 . DO, 0 . DO , EK , GBI ♦ EPAN) 
CALL  ASSEMK( EK.STF.INUM, NOPE. NODE, LNUM) 

CALL  LMASSP(NTYPE.XL,YL,TH,SL, CSA , SMOI , EML » DENSP ) 

L L*  ( LNUM- 1 ) • NDPE 
DO  2 1 0 1-1,24 
NN  = NOD E ( l L+  I ) 

210  AMASS ( NN) - AMASS(NN ) +EML( I ) 

220  CONTINUE 

C FOR  X-DIRECIION  STIFFENERS 
I F ( NXS T EQ  0 )G0  TO  250 
NTYPE-2 

DO  240  NN* 1 , NXST 
SL-XSP  R0P(6 , NN) 


l 


219 


I 


i 


I 


I 


XXF*XSPR0P(7.NN) 

ANUS-XSPR0P(4,NN) 

RW»XSPR0P(2,NN) 

lnum.lnxs(nn) 

RH*XSPROP( I ,NN) 

YM*XSPR0P(3,NN) 

DEN=XSPR0P(5 ,NN) 

CSA*RW*RH 

SMOI =RH»RW*XXF*XXF+RW*RH*+3/t2  , o 
NNI*NP{! , LNUM ) 

NN2=NP ( 2 , LNUM ) 

NN4*NP 14 . LNUM) 

XL-XG1 (NN2)-XGI(NN1 ) 

YL=YG1 (NN4)-YG1(NN1 ) 

CALL  RPLATE(NIYPE.ANUS.XL,YL,RH  .SL.CSA.XXF  .SMOI.EK.GBl.YM) 
CALL  ASSEtlK(EK.SIF.  INUM . NDPE . NODE . LNUM) 

CALL  LMASSP(NTYPE,XL.YL.RH  , SL . CSA. SMOI . EML ,OEN) 

LL= ( LNUM-I ) • NDPE 
DO  230  l*!. 24 
J*  LL+ I 
NNN=NODE (d) 

230  AMASS ( NNN)*AMASS(NNN)+EML(l) 

240  CONTINUE 
250  CONTINUE 

C FOR  Y-DIRECTION  STIFFENERS 
I F ( NY  S T EQ . 0 )G0  TO  280 
NTYPE*  3 

00  270  NN*  1 , NYST 
RH*YSPROP( 1 , NN) 

RW*YSPR0P(2,NN) 

YM*YSPR0P(3,  NN) 

ANUS* Y 5PR0P( 4 , NN) 

0EN=YSPR0P(5 , NN ) 

SL  = YSPR0P(6,  NN) 

XXF*YSPR0P(7 ,NN) 

CSA*RW‘RH 

SMOI *RH*RW*XXF»XXF+RW«RH«*3/t2 .000 
LNUM* L NYS ( NN ) 

NNNI  *NP(  t , LNUM) 

NNN2*NP(2,LNUM) 

NNN4*NP(4,LNUM) 

XL=XGI (NNN2) -XGI (NNNI ) 

YL*YGI  (NN'44)-YGI(NNNI) 

CALL  RPIATE(NTYPE.ANUS.XL.YL.RH  .SL.CSA.XXF  .SMOI.EK.GBl.YM) 
CALL  ASSEMK(  EK.STF, INUM, NOPE. NODE, LNUM) 

CALL  LMASSP(NTYPE,XL.YL.RH  ,SL, CSA, SMOI, EML, OEN) 

LL*(LNUM-1 ) • NDPE 
00  260  1*1,24 
J*  LL+ I 
NNN*N0UE( J) 

260  AMASS(  NNN) *AMASS(NNN)+EML( 1 ) 

270  CONTINUE 
280  CONTINUE 

I F ( I PA  SS  .EQ.  3 AND.  NELES  .EQ.  0)  GO  TO  290 
I F ( I PA  SS  EQ.  2)  GO  TO  741 

C FORMATION  AND  assembly  OF  EQUIVALENT  STIFFNESS  MATRIX  FOR  LINE 
C TRANSLATIONAL  AND  TORSIONAL  LINEAR  RESTORING  SPRINGS  APPLIEO  TO 
C SIDES  OF  ELEMENTS 

READ! M READ, SOO) NELES 
IF1NELES  EQ  0)G0  TO  289 
WRI  TE(  MwRITE  ,720) 

WRITE(MWRITE ,730) 

00  2QB  I*t  .NELES 

RE AD! M RE AD , 5 00 ) LNUM, ISIDE 

READ(MREAD,S!0)(SS(J),J*I,5) 

LNRS( 1 ) « LNUM 


IMNPO ( 95 
IMNP019C 
IMNPO t 97 
IMNPO 1 98 
IMNPO 1 99 
IMNP0200 
IMNP0201 
I MNP02  02 
IMNP0203 
IMNP0204 
IMNP0205 
IMNP0206 
IMNP0207 
1MNP0208 
IMNP0209 
IMNPO 2 1 0 
IMNP021 I 
IMNP0212 
IMNP02I3 
1 MNP02  1 4 
IMMP02IS 
IMNP0216 
IMNP02I7 
I MNP02  t 8 
IMNP02I 9 
IMNP0220 
1MNP022I 
IMNP0222 
IMNP0223 
1MNP0224 
IMNP0225 
IMNP0226 
1MNP0227 
1MNP0228 
IMNP0229 
IMNP0230 
IMNP023I 
IMNP0232 
IMNP0233 
IMNP0234 
IMNP0235 
1MNP0236 
IMNP0237 
IMNP0238 
IMNP0239 
IMNP0240 
IMNP024 I 
1MNP0242 
IMNP0243 
IMNP0244 
IMNPO 24 5 
IMNP0246 
I MNP0247 
IMNP0248 
IMNP0249 
1MNP0250 
IMNP025I 
IMNP0252 
IMNP0253 
IMNP0254 
IMNP0255 
IMNP0256 
IMNP0257 
IMNPQ258 
IMNP0259 
IMNP0260 


I 
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265 


288 

720 


730 


740 


741 


742 


743 


289 


1SRS(I  )*ISI0£  IMNP02G1 

DO  285  K*  1 .5  1MNP0262 

SC(K.I )-SS(K ) IMNP0263 

WRITE!  MWR1TE .740)LNUM.ISI0E,(SS(d),J*t .5)  IMNP0264 

NNN1 >NP( 1 , LNUM)  IMNP0265 

NNN2*N  P( 2 . LNUM ) IMNP0266 

NNN4=NP(4,LNUM)  1MNP02G7 

XL=XGI  (NHN2) -XGHNNN1  ) IMNPQ268 

VL-YGl ( NNN4 ) -YGI (NNN1 ) IMNP0269 

CALL  SPRING! EK.SS. IS1DE. XL. YL)  IMNP0270 

CALL  ASSEMK1EK.STF, INUM , NOPE, NODE, LNUM)  IMNP0271 

FORMAT ( 'O' LOCATION  AND  PROPERTIES  OF  LINE  TRANSLATIONAL  AND  R0TAIMNP0272 

2TI0NAL  LINEAR  RESTORING  SPRINGS1)  IMNP0273 

FORMAT l '0‘ ELEM.  NO  ‘,2X.  'EL EM.  S IOE 1 . 8X . 1 KX( LB/ IN/ 1 N) 1 ,8X,  IMNP0274 

2 -KY( LB/ IN/IN)1 .OX. • KZ ! LB/ IN/IN ) 1 ,2X , 1 K-THETA( IN-LB/RAO/IN) 1 , 2X,  IMNP0275 

3 ' K-PSI ( IN-LD/RAD/IN) 1 ) IMNP0276 

FORMAT  ( 1 '.IS.GX.IS.SX.SDZO.T)  IMNP0277 

GO  TO  289  IMNP027B 

DO  743  1 = 1 . N E LES  IMNP0279 

LNUM=  L NRS ( I ) IMNP0280 

ISIDE.ISRS(I)  IMNP020! 

00  742  KAY= 1 ,5  IMNP0202 

SS(KAY  )=SC(KAY,I)  IMNP0283 

NNN1 =NP( 1 , LNUM)  IMNP0284 

NNN2  = N P ( 2 , LNUM)  1MNP0285 

NNH4=NP(4 . LNUM)  IMNP0286 

XL  = XGI  (NNN2)  -XGHNNN1  ) IMNP0207 

YL=YGI (NNN4)-YGI(NNN1)  IMNP02B8 

CALL  SPRING! EK.SS. ISIDE. XL. YL)  IMNP0289 

CALL  ASSEMK! EK.STF.INUM. NOPE, NODE, LNUM)  IMNP0290 

GO  TO  290  IMNP029I 

CONTINUE  IMNP0292 

C CALCULATE  TIME  STEP  BOUND  {FOR  REFERENCE  ONLY).  IMNP0293 

CALL  TSTEPISTF.AMASS.NSC.BC.ICOL.INUM.KROW.NDEX.DISP.OELD)  IMNP0294 

IF( IOP  5 EQ  0 .OR.  NB  . EQ.  0)  GO  TO  290  IMNP0295 

I PASS=  2 IMNP0296 

2891  00  2892  1*1, MNC  IMNP0297 

2892  STF(i)=0  ODO  IMNP0298 

DO  2894  1=1. NOT  1MNP0299 

2894  AMASS! 1)=0  ODO  1MNP0300 

GO  TO  304  IMNP0301 

290  CONTINUE  IMNP0302 

C GENERATE  INITIAL  CONDITIONS  ON  FRAGMENT.  IMNP0303 

CALL  I FRAGIPMASS, AMASS)  1MNP0304 

N IMPC 1*0  1MNP0J0S 

I T T =0  1MNP0306 

DO  291  1*1. NOT  IMNP0307 

0IS(I)=0.0  IMNP0308 

01SP( I ) =0  0 IMMP0309 

FLVA( I ) *0.0  1MNP0310 

291  VEL( 1 ) =0  0 IMNP03I 1 

C FORM  LI1S  1MNP03I2 

DO  307  1 1 « 1 , NOT  IMNP03I3 

L=II+1NUM(II ) IMNP03I4 

307  STF(L) =STF(L ) +2 . ODO • AMASS!  1 1 )/( OELTAT* DELTA! ) 1MNP03I5 

1 F ( I OP  5 EQ  1 (CALL  EAROWf STF , N8C , ICOL ■ INUM , RFM, I LAST .NBE.U8WE)  IMNP0316 

C CONSTRAIN  LHS  IMNP03I7 

CALL  BCONMK! STF. BC, ICOL, INUM. NBC)  IMNP031B 

C FACTOR  LHS  IMNP0319 

CALL  FACT(STF, ICOL, KROW , NOEX, I DET .MWRITE , INUM)  IMNP0320 

1 F ( IMCONT  EQ  1 )GQ  TO  335  IMNP032I 

C PRINTOUT  FOR  INITIAL  VALUES  IMNP0322 

I F ( IOP 5 EQ  0 .OR.NB.EQ.OJGO  TO  320  1MNP0323 

00  319  1*1, NB  IMNP0324 

319  UCF1 (I ) =0.0  IMNP032S 

320  CONTINUE  1MNP0326 


221 


J 


NOCHK.O 
GO  TO  340 

C INPUT  FOR  CONTINUATION  RUN 

335  R£AD(MREAD.800)ITT,NIMPCT 

READ  (MREAD. 8l0)(01S(l), 1-1, NOT) 

READ  (MREAO, 810)< 01 SP(I ) ,I*1.NDT) 

READ  (MREAD, 8tO)(VEl( I ) , I«t ,NOT ) 

READ  (MREAD,0IO)(FLVA(I ) .1*1 .NOT) 

I F ( IOP 5 £Q  I AND  NB  GT  0 ) READ  (MREAO. 8 1 0)  ( UCF2( I ) . I ■ I . NB ) 

READ  (MREAO.OtO)(t(TAUSS(I,U,K),I«l.NET),J*1,MN$LT4),K*1,9) 

READ  < MREAO, 8IO)(((TAUEE(I,d,Kj,I»1  .NET ) , J* 1 .MNSLT4) .K. 1 ,9) 

READ  (MREAO, 810) (( ( TAUSE ( 1 , J.K ) . 1*1 . NET ) , J- 1 . MNS LT4 ) . K • 1 . 9) 
1F(NXST  EU  0 ) GO  TO  336 

READ  ( (1READ,  81  0 ) ( ( ( TAGSS  ( I , J , K ) , 1*1  ,NXST)  , J*  1 , MNSLT4 ) , K*1  ,3) 

336  CONTINUE 

I F ( NT  5 T EO  0 ) GO  TO  337 

READ  ( MREAD, 810 )( ( ( TSGEE ( 1 . J, K ) , I*t , NYST) , J*1 .MNSLT4) , K*1 ,3) 

337  RE AD( M RE AD. 810)XF,YF,ZF,  ( V F ( J ) , J* 1 , 3) , (OMEGF( 1 1 ) , 1 1 • t , 3) 

NNT  *N0  T/6 

00  338  1*1 ,NNT 
NN=( I-  1 )*6 

XG(I)*XGI(I)+0ISP(NN+1) 

YG(l)*YGI(I)+0ISPlNN+2) 

338  ZG(1)=ZG(I)+DISP(NNf3) 

NOCHK*  0 

FKE*0  0 
DO  339  1*1,3 

339  FKE=FKE+O.5D0*( FMaSS*VF( I )»VF( I J+FMOI *OMEGF ( I ) *OMEGF( I ) ) 

I F ( FKE  LT.FKEC)N0CHK*1 

C BEGIN  LOOP  OVER  TIME  STEPS 

340  ITT=ITT+1 
NS  1 NC*  0 
DO  350  0=1 , NOT 
DELD(J)*01S(d)-0ISP(O) 

D 1 SMI ( d)*OISP( J) 

DISP(J)=DIS(d) 

FLN(J) *FLVA(  J) 

FLVM( J )*0  0 

350  FLVA( J )*0  0 
NNI =ND  T/6 

DO  351  J*1 .NNT 
NN* ( J-  1 ) *6 

XG(d)=XC(J)+DEL0(NN+1) 

YG(J)«YG(d)+D£LD(NN+2) 

351  ZG( J)*ZG( J)+DEL0(NN+3) 

I F (NOCHK  EO  1 .OR.  ITT  . £Q.  1)  GO  TO  343 
XF*XFf  VF( 1 )• DELTA! 

YF*YF«-VF(2)»DELTAT 
ZF  *ZF  + VF (3)*  DELTAT 
343  CONTINUE 

I F ( IOP 5 EO  0 . OR  NB.EQ.O)GO  TO  353 
DO  352  1*1  .NB 

352  UCF1(I )*UCF2(I) 

353  CONTINUE 

C CALCULATE  EQUIVALENT  LOADS 

C FOR  PLATE  ELEMENT 

CALL  STRESP(  D1SP.0EL0.FLVA.ITT .NODE .MAXEL, TAUSS. TAUEE. TAUSE, 
2EPS5I , EPSSO, EPEEI . EPEEO. EPSEI . EPSEO . PLASTW . XGI . YGI .NP.STDE.GBI, 
3NMSUB, dsr.psr.subw .SNO  , NZSUBL  ) 

C FOR  X-OIRECTION  STIFFENERS 
I F (NXS T EO  0 )G0  TO  360 

CALL  STRESA(  DI SP . OELO . F L VA , I TT . NODE. MAXEL .MNXST, TAGSS , PLASTW. XGJ , 
2 YGI ,NP .STDE.GQI .NMSUB , OS R .PSR, SUBW , SNO  ,NXST , XSPROP, LNXS .MATAS , 
3NZSUBL  ) 

360  CONTINUE 

C FOR  Y-DIRECTION  STIFFENERS 


1MNP0327 
1MNP0328 
IMNP0329 
1MNP0330 
1MNP033I 
1MNP0332 
IMNP0333 
IMNP0334 
IMNP0335 
IMNP0336 
IMNP0337 
1MNP033B 
IMNP0339 
IMNP0340 
1MNP034  1 
IMNP0342 
IMNP0343 
IMNP0344 
IMNP0345 
1MNP0346 
IMNP0347 
IMNP0348 
1 MNP0349 
IMNP0J50 
IMNP0351 
IMNP0352 
IMNP0353 
IMNP0354 
IMNP0355 
1MNP0356 
1MNP0357 
IMNP0358 
IMNP0359 
IMNP0360 
1MNP03GI 
1MNP0362 
IMNP0363 
1 MNP0364 
1MNP0365 
IMNP0366 
IMNP0367 
1MNP0368 
IMNP03G9 
1MNP0370 
IMNP0371 
IMNP0372 
IMNP0373 
IMNP0374 
IMNP0375 
IMNP0376 
IMNP0377 
IMNPQ378 
IMNP0379 
1MNP0380 
IMNP03B1 
IMNP0382 
IMNP0383 
IMNP0304 
IMNP0385 
IMNP0386 
IMNP0387 
1MNP03S8 
IMNP0309 
IMNP0390 
1MNP0391 
1MNP0392 


222 


IF(NYST.EQ  0 
CALL  STRESC( 
2YGI.NP.SIDE, 
3NZSUBL ) 

370  CONTINUE 
C PRINT  OUTPUT 
1 T I ME  * I TT— I 
T IfjlE=  I T IM£*D 
CALL  1 PR  I NT ( 
2YGI , NP .GBI .S 
3TAUSS. TAUEE. 
4NYST.LNYS.MA 
5AMASS.VEL.NN 
C FORM  RMS 
372  CONTINUE 

NS  I NC  = NS 1NC+ 
IFfNSINC  GT 
IF (NS  INC  GT 
900  FORMAT ('O'. 

2 SOLUI  ION— R 
DO  300  1 = 1. N 
380  F LVM( I ) =“ ( 2 . 
2/DELTAT  j/del 
I F ( IOP  5 EO  0 
DO  388  1 = 1 ,N 
1 1 =NBC ( I ) 

388  UCF 2 ( I ) = FLVM 
C CONSTRAIN  RHS 

389  CALL  R CON ( F L 
C SOLVE  FOR  DISP 

CALL  SOLV(ST 
DO  390  I = 1 , N 

390  DELO(I)-DIS( 
C CHECK  FOR  SKIP 

IMPCT1 =0 
I F (NOCHK  EO 
C CHECK  FOR  IMPA 
IF(NSYM  £0  0 
1 NtFF. ALPHA 


)G0  TO  370 

DISP, DELD.FLVA, ITT  , NODE .MAXEL , MNYST , TSGEE,  PLASTW.XGI, 
GBl.NMSUB.DSR.PSR.SUBW.SNO  ,NYST . YSPROP, LN YS .MATYS . 


ELTAT 

DISP.XG.YG.ZG.EPSSI .EPSSO.EPEEI . EPEEO, EPSE 1 .EPSEO.XGI . 
TOE  . NOOE.RFM.NBE, M8WE. I LAST , UCF 1 . NBC . I COL , NMSUB, SUBW, 
T AUSE, MAXEL, NZSUBL . NXSI . LNXS , MATXS.XSPROP . TAGSS.MNXSI. 
TYS. YSPROP. TSGEE. MNYST. NELES, LNRS.ISRS.SC. EK. 
SA.NVSA.NCON) 


20)WRITE(MWRITE,900) 

20 ) RE  TURN 

MORE  THAN  20  ITERATIONS  REQUIRED  TO  CONVERGE  AN  IMPACT 
UN  HAS  BEEN  TERMINATED') 

DT 

ODO*FLVA(l)-FLN(I) ) +2. ODO* AMASS(  l ) ♦ (VEL ( I )+DISP( 1 ) 

TAT 

OR  NB  EQ.O)GO  TO  3B9 
B 

(II) 

VM.NBC) 

LACEMENTS 

F.FLVM.OIS, ICQL.KROM.NDEX) 

DT 

I )-DISP( I ) 

OF  IMPACT  INSPECTION/CORRECTION  ROUTINE. 

1 ) GO  TO  394 
CT 

) CALL  IMPACT ( XG.YG , ZG. DELD , VEL . NP , VN . VNB, PMASS , NBC , SI , 
. IMPCT1.NIAN) 


1MNP0393 
IMNP0394 
IMNP0395 
IMNP0396 
1MNP0397 
IMNP0398 
IMNP0399 
IMNP0400 
1MNP0401 
IMNP0402 
IMNP0403 
1MNP0404 
IMNP0405 
IMNP0406 
1MNP0407 
IMNP0408 
IMNP0409 
IMNP041 0 
1 MNP 04 1 I 
IMNP04 1 2 
IMNP0413 
IMNP0414 
1MNP04I5 
IMNP0416 
IMNP0417 
1MNP0418 
IMNP04 1 9 
IMNP0420 
IMNP0421 
IMNP0422 
IMNP0423 
IMNP0424 
IMNP0125 
1MNP0426 
IMNP0427 
IMNP0428 
IMNP0429 
IMNP0430 
IMNP043I 


I F ( NS Y 14  EQ  1)  CALL  IMPSS  ( XG.  YG  , ZG, DELD , VEL  , NP.  VN  , VN8 , PMASS, NBC . 

1 SI ,N£F  F , ALPHA , IMPCT 1 .NIAN) 

I F ( NS Y M to  2)  CALL  I MPDS  ( XG,  YG  , ZG.OELO,  VEL  , NP , VN , VNB.  PMASS , NBC , 
1S1 .NEF  F, ALPHA. IMPCT 1 .NIAN) 

C IF  IMPCT 1=1,  IMPACT  HAS  OCCURED.  CALCULATE  NEW  TRIAL  DISPLACEMENT. 
C D1S 

I F ( IMPCT 1 EQ  1 )G0  TO  372 

C IF  IMPCT 1=0,  THEN  NO  IMPACTS.  TRIAL  DIS  IS  CORRECT.  PROCEED  TO 
C NEXT  TIME 

I F ( NS  I NC . GT . 1 )N IMPCT  *NIMPCT+1 
I F ( NS  I NC  GT  1 ) WR I T E (MWRI TE,830  )NIMPCT 
I F ( NS  1 NC  EQ.  1 )G0  TO  394 

C SPECIAL  CALCULATION  OF  VELOCITY  IF  IMPACT  HAS  OCCUREO. 

DO  392  1 = 1 .NDT 

392  VEL(I)=2  ODO  *(OIS( 1 )-DI SP( I ) )/OELTAT-VEL( I ) 

GO  TO  39B 
394  CONTINUE 

C NORMAL  UPDATE  OF  VELOCITY. 

DO  396  1=1 .NOT 

396  VEL( I ) = ( 3 ODO*DIS(I)-4.0DO*OISP(I)+OISM1(I))/(2.000«OELTAT) 

398  CONTINUE 
FKE=0 . 0 

DO  399  1*1.3 

399  FKE=FKE+0  500* ( FMASS*VF( I ) «VF( I )+FMOI »OM£GF( I ) »OM£GF( 1 ) ) 

IF(FKE ,LT.FKEC)N0CHK*1 

C CHECK  FOR  CONTINUATION 

IF(1TIME.LT. 1TIMEF. AND. TIME. LT .TIMEF)GO  TO  340 


IMNP0432 
IMNP0433 
IMNP0434 
IMNP0435 
IMNP0436 
IMNP0437 
IMNP0438 
1MNP0439 
IMNP0440 
IMNP0441 
1MNP0442 
IMNP0443 
1 MNP0444 
IMNP0445 
IMNP0446 
IA1NP0447 
1MNP0448 
IMNP0449 
IMNP0450 
IMNP04SI 
1MNP0452 
IMNP0453 
1MNP0454 
IMNP0455 
1MNP0456 
IMNP0157 
IMNP0458 


I 


1 


oooooooo 


I 


IF(IPUNCH.EQ.O) GO  TO  420 

WR1TE(  MPUNCH  ,800)  ITT.NIMPCT 

WR I TE ( MPUNCH ,010) (DIS(I) ,1=1 , NOT) 

WRITE ( MPUNCH  . 81 0)(DISP( I ) . I =1  , NOT ) 

WRITE (MPUNCH, 81 0)( VEL(I) ,1=1 ,NDT) 

WRITE*  MPUNCH ,810) (FLVA( I ) ,1  = 1 , NOT) 

I F ( I0P5.EQ  1 . AND. NB.GT.O ) WRITE (MPUNCH , 81 0 )( UCF2 ( I ) , 1 = 1 ,NB) 

WR I TE( MPUNCH ,810) ( ( ( T AUS  S ( I ,d , K) , 1 = 1 , NET ) , d = 1 .MNSLT4) , K=1 .9) 

WRITE (MPUNCH, 81 0) ( ( ( TAUE E( I , d , K) , 1 = 1 , NET ) , d=1 .MNSLT4) , K.1 , 9) 

WRITE (MPUNCH, 810) ( ( ( TAUS E( I ,d , K) , 1=1 .NET) ,d«1 , MNSLT4 ) , K= 1 , 9) 

I F ( NXS  T . EQ . 0 ) GO  TO  400 

WRITE( MPUNCH ,810) ( ( (TAGS  S(I,d,  K ) , I = 1 , NXST ) ,d=1 , MNSLT4 ) ,K-1.3) 

400  CONTINUE  ' 

I F ( NY  S T . EQ . 0 ) GO  TO  410 

WRITE (MPUNCH, 81 0)( ((TSGEE(I ,d. K) .1=1 , NYST ) , d=1 , MNSLT4 ) ,K=1 ,3) 

410  WRITE* MPUNCH , 81 0 ) X F , YF , 2 F , ( VF ( d ) ,d= 1 , 3 ) , (OMEGF(II), 11=13) 

WR I TE ( MWRITE  , 820 ) I TT 
420  RETURN 
800  FORMAT (2110) 

810  FORMAT (5015. 7) 

820  FORMAT ( 'O' , 1 CONTINUATION  CARDS  HAVE  BEEN  PUNCHED  AT  ITT«'.I7) 

830  FORMAT ( 1 '.lOX.'THIS  IS  IMPACT  NUMBER', 17) 

END 

SUBROUTINE  I PR INT ( DI SP , XG , YG , Z G , EPSS I , EPSSO , EPEE  I , EPEEO , EPSE I , 
2EPSE0, XGI , YGI.NP.GBI . STDEP .NODE , RFM, NBE ,MBWE, ILAST ,UCF 1 ,NBC , I COL, 
3NMSUB , SUBW , T AUSS , T AUEE,  T AUSE , M AXEL, NZS , NXST , LNXS , MATXS , XS PROP 

4TAGSS, MNXST, NYST, LNYS.MATYS.YS PROP, TSGEE.MNYST, NELES.LNRS.ISRS.SC, 

5EK , AMA  SS , VEL  ,’lNSA , NVSA  , NCCN) 

IMPLICIT  REA  L*8 ( A-H, 0— Z ) 

ASRL  TR  154-14  ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  SY  THE  CIVM  PLATE  PROGRAM. 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 

DIMENSION  DI SP( 1 ) , XG( 1 ) , YG( 1 ) , ZG( 1 ) , EPSSI (9,1) , EPSSO (9 ,1), EPEE 1(9 
2,1), EPEEO (9,  1 ),EPSEI(9,  I ) , EPSE0(9, 1 ) .XGI ( 1 ) , YGI ( 1 ) ,NP( 4 . 1 ) , G3I ( 24 


IMNP0459 
IMNP0460 
IMNP0461 
IMNP0462 
IMNP0463 
IMNP0464 
IMNP0465 
IMNP0466 
1MNP0467 
IMNP0468 
IMNP0469 
IMNP0470 
IMNP0471 
IMNP0472 
IMNP0473 
IMNP0474 
IMNP0475 
IMNP0476 
IMNP0477 
IMNP0478 
IMNP0479 
IMNP0480 
IMNP0481 
I PRTOOOO 
IPRT0001 
I PRT0002 
IPRT0003 
IPRT0004 
I PRT0005 
I PRT0006 
IPRTQ007 
IPRT0008 
IPRT0009 
I PRT0010 
IPRT001 1 
I PR  (001 2 
IPRT0013 
I PRT0014 
IPRT0015 


tzz 

on  o o o o o ooooo 


3,24) ,ST0EP(9 ,24) ,NODE( 1 ) ,EP(9)  , EL0NG(2) , RFM ( NBE , MBWE ) , 1LAST( 1 ) , 
4UCF1  (1  ) , NBC  ( 1 ) , ICO L ( 1 ) ,Rr  (6)  ■ NMSUB ( 1 ) , AGAU S ( 6 ) , AGAUW ( 6 ) ,ZGAUS(6) 


5ZCAUW  ( 6)  , S’JB'm'O  , 1 ) , TAUSS (VAXEL  , NZS  ,9)  . TAL'EE  ( MAXS  L ,MZE  , C)  ,T*'JEC 


6 ( MAXE L , NZS , 9 ) , LNXS ( 1 ) ,MATXS( 1 ) ,XSPR0P(7, 1 ) ,TAGSS(MNXST ,NZS, 3) , 


7 LN YS ( 1 ) , MATY  S ( 1 ) , YSPROP( 7, 1 ) , T SGEE( MNYST , NZS , 3 ) , LNRS( 1 ) , ISRS( 1 ) , 
83C(5, 1 ) ,SS(5)  ,EK(24.24) , EQ(24)  , STOR ( 24 ) , AM ASS ( 1 ) ,VEL(t  ) ,NVSA(1), 


9NC0N ( 4 , 1 ) 


COMMON/PLATE/ADIS, YD I S , T H , HX , H Y , NEAD , NECD , DSP , EP AN , ANU P . THALF 
COMMON /BAS/N DT . NET ,MN,NB .NIRREG.MNC 


COMMON /TIM/D ELTAT,  T II, 1EF, TIME, I TIMEF, INCRT, I OUT, ITIME 
COMMON  /ASP/S  LA SP^O)  ,ELASP(50)  , EDIR  ( 2 , 50 ) , NASP , LNASP  ( 5 0 ) 

COMMON /PRNT/I0P1 , I 0P2 , I 0 P3 , I0P4 , IOP5 , I0P6 , I0P7, I0P8 
COMMON /GSOUT/NEGS, LNGS(200) 

COMVION/SSOUT/NXSS.NYSS,  INXSS(2  00) , INYSS(200) 

COMMON /FRAG/ XF , YF , ZF , DEL  F ( 3) , V F ( 3 ) , DTHETF ( 3 ) , 0MEGF(3) , RAOF, FMASS, 
2FM0I , FKEO, FKEC 


COMMON  /INGUT/  MRE AD , MWR I TE , MP UNCH 


THIS  SUBROUTINE  CONTROLS  THE  CALCULATION  AND  OUTPUT  OF  ALL  QUANTITIES 
(DISPLACEMENTS,  STRAINS,  ENERGIES,  ETC.)  AS  REQUESTED  BY  THE  USER  AT 
REGULAR  INTERVALS  DURING  THE  TIMEWISE  SOLUTION. 


IF( ITIME  LE. 1 )G0  TO  10 
1 1 1 = 1 T IME/INCRT*INCRT-IT IME 
I F ( 1 1 1 . NE . 0 ) GO  TO  500 
10  CONTINUE 

WRITE(  MWRITE  ,600) ITIME.T  IME 
NODAL  DISPLACEMENTS  AND  LOCATION. 

I F ( IOP 1 . EQ. 0 ) GO  TO  30 
WRITE(  MWRITE ,610) 

NNT =ND  T/6 
DO  20  NN= 1 , NNT 
JU=(NN-1 ) *6 
J1 =Jd+  1 
J2  = JJ+  6 

20  WR I TE ( MWRITE  , 620 ) NN , ( DI S P ( I ) , I = J 1 ,J2)  , XG( NN ) , YG ( NN ) , Z G( NN) 

30  CONTINUE 

WRITE' MWRITE ,540) 

WRITE( MWRITE .950) 

WR I TE ( MWR I T E , 960 ) X F , YF , Z F , ( VF ( I ) , 1 = 1 . 3 ) , (OMEGF(  J ) ,d  = 1 , 3) 
REACTION  FORCES  AT  CONSTRAINED  NODES. 

I F ( IOP  5 . EQ . 0 OR  NB  . EQ. 0 ) GO  TO  39 
WR I TE ( MWR I T E .5501 
WRITE( MWRITE ,560) 

DETERMINE  NODE  NO.  OF  FIRST  CONSTRAINED  0.0. F-. 

NC-N8C ( 1 ) 

NN  1 = ( N C-1  ) / 6 -r  1 
DO  31  1=1,6 

31  RF(I)=O.ODO 
LOOP  OVER  CONSTRAINED  D.O.F.. 

DO  38  I N B = 1 , NB 

DETERMINE  NODE  NO.  OF  PRESENT  CONSTRAINED  D.O.F.. 

NC=NBC ( INB) 

NN2= ( NC— 1 )/6^1 

:r  f.N2 . N Z . N‘.'1  , CALC.  CF  RF  FOR  NODE  NN1  IS  COMPLETE— PRINT  CUT 
VALUES 

I F ( NN2 . EQ.NN 1 )G0  TO  33 
WR I TE ( MWRITE ,570) NN1 , ( RF ( d ) , J= 1 , 6) 

NN1 =NN  2 
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I PRT001 6 
IPRT0017 

t nnTftn, a 

IPRT0019 
IPRT0020 
I PRT0021 
I PRT0022 
I PRT0023 
IPRT0024 
IPRT0025 
I PRT0026 
I PRT0027 
I PRT0028 
IPRT0029 
I PRT0030 
I PRT0031 
I PRT0032 
I PRT0033 
I PRT0034 
IPRT0035 
I PRT0036 
I PRT0037 

T PRTQQTQ 

I PRT0039 
IPRT0040 
I PRT004 1 
I PRT0042 
I PRT0043 
I PRT0044 
I PRT0045 
IPRT0046 
I PRT0047 
I PRT0048 
I PRT0049 
I PRT0050 
I PRT0051 
I PRT0052 
I PRT0053 
I PRT0054 
I PRT0055 
I PRT0056 
I PRT0057 
IPRT0058 
I PRT0059 
I PRT0060 
I PRT0061 
IPRT0062 
I PRT0063 
1 PRT0064 
I PRT0065 
I PRT0066 
I PRT0067 
I PRT0068 
I PRT0069 
I PRT0070 
I PRT0071 
I PRT0072 
IPRT0073 
IPRT0074 


DO  32  1=1,6 
32  RF ( I ) = 0 . OOO 
"*3  CC=-UC  FI ( I MB  ) 

NN  = 0 

IB=ICOL(NC) 

I E= I LA  ST ( INd  ) 

DO  34  1 = I B, IE 
NN  = NN+  1 

34  CC=CC+RFM(INB.NN)*DISP(I  ) 

NDF  = NC - ( NN1 - 1 ) *6 
RF (NDF )=CC 

38  CONTINUE 

WRITE(MWRITE , 570 ) NN 1 , ( R F ( d ) . J= 1 , 6) 

39  CONTINUE 

C CENTHOIDAL  STRAIN  INFORMATION. 

1 F ( IOP  2 . EQ  0 ) GO  TO  50 
WRITE( MWRITE  ,630) 

WRITE',  MWRITE  .640) 

W R I T E ( MWRITE  ,644) 

DO  40  LNUM=1  .NET 
G1 1=EPSSI(5, LNUM) 

G22=EPLEI (5, LNUM) 

Gl ? = EP  SF I (5 , LNUM) 

CALL  P5TRN(G11 , C22 ,G12, SI , DIRI  ) 

Gl 1 =£P  SSO ( 5 , LNUM) 

G22  = £ P EEO ( 5 , LNUM) 

Gl 2 = EP  SEO( 5 , LNUM) 

CALL  PSTRN(G1!  , G22 , Gl 2 , SO , DI RO  ) 

40  WR I TE( MWRITE  . 650 ) LNUM . EP SS I ( 5 , LNUM) , EPSSO( 5 , LNUM ) , EPEE  I (5,  LNl 
2EPEEC( 5, LNUM  ) . EPSE I ( 5 , LNUM) , EP SEO ( 5 , LNUM) , SI , SO , DI RI , D I RO 

50  CONTINUE 

C NODAL  AVERAGE  STRAINS, 
j I F ( IOP  3 EQ.O ) GO  TO  55 

J WRITE( MWRITE  ,900) 

WR  i TE  i r.u<RI  Tc  , 04C ) 

WRITE( MWRITE .920) 

DO  53  11=1 , N NSA 
G 1 1 U=0  ODO 
G 1 1 1 =0  COO 
G22U=0 .ODO 
C22L=0 .ODO 
Gl 2U=0 .ODO 
Gl 2 L = 0 . CDO 
NNUM=N  VSA ( I I ) 

DENOM=  0 . ODO 
DO  52  dd=1 ,4 

IF(MCON(dd, I I)  EQ  0)GO  TO  52 
DENOM=  DENOM+ 1 .ODO 
LNUM=NCON( Jd  .II) 

NllN1=NP(  1 . LNUM) 

NNN2=NP(2, LNUM) 

NNN4=NP(4, LNUM) 

XL  = XGI  (NNN2)  -XGKNNN1  ) 

YL=YGI (NNN4)-YGI(NNN1) 

SL-0  ODO 
E L = 0 . 0 DO 

I F ( dd  EO  2 OR.dd.EQ  3 ) SL  = 1 . ODO 
I F ( dd  EO  3 . OR . dd  EQ  4 ) EL  = 1 .ODO 
CALL  SFDM(SL , EL , XL . YL ,GB I .STDEP) 


i 


i 


i 


i 


i 
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IPR10075 
I PRT0076 

T ntirn^7 

I PRT0078 
I PRT0079 
IPRT0080 
I PRT0081 
I PRT0082 
I PRT0083 
I PRT00B4 
IPRT0085 
I PRT0086 
I PRT0087 
I PRT0088 
IPRT0089 
IPRT0090 
I PRT0091 
I PRT0092 
. IPRT0093 
I PRTC094 
IPRT0095 
I PRT0096 

I PRT00Q7 

I PRT0098 
IPRT0099 
IPRTOtOO 
IPRT0101 
IPRT0102 
, IPRT0103 
IPRT0104 
IPRT0105 
IPRT0106 
IPRT01 07 
IPRT0108 
IPRT0109 
IPRT01 10 
IPRT01  1 1 
IPRT01 12 
IPRTOI  13 
IPRT01  14 
IPRTO1 15 
IPRTOI 16 

f niST  A < 4 a* 

1 r It  t w I a 4 

IPRTOI  18 
IPRTOI  19 
IPRT0120 
IPRT0121 
IPRTOI 22 
IPRTOI 23 
IPRTOI 24 
IPRTOI 25 
IPRT0126 
IPRT0127 
IPRT0128 
IPRTOI 29 
IPRTOI 30 
IPRTOI 31 
IPRTOI 32 
IPRTOI 33 


PAGE  0011 


DO  51  J = 1 ,9 
£P ( J ) = 0 . 0D0 
DO  51  K=1  ,24 
NNN=( LNUM-1 ) * 24+K 
NN=NODE(HNN) 

51  EP(«J)  = £P(J)  + STDEP(J,K)*DISP(NN ) 

EPSSM* EP( 1 )+EP(7)*£P(7)/2.OD0-t-EP(9)»EP(9)/2.QDQ 
EP£EM=  EP(2)+CP(8)*EP(8j/2.0DO+EP(9)*EP(9)/2.0DO 
E P S EM  = £ P ( 3 ) + E P ( 7 ) * E P ( 8 ) 

G1  1L-G1  1L+EPS5M*-THALF'EP(4) 

G1 1 U=G 1 1U+EPSSM-THALF+EP(4) 

G22L=G22L+EPEEM+THALF*EP (5) 

G22U=G22U+EPEEM-THALF*EP (5) 

G12L=G 12L+EPSEM+THALF»EP (6) 
ul  2u  = G I 2U+EP  SEwi-TH  ALF*EP  ( 6 ) 

52  CONTINUE 

G1 1 L = G 1 1L/DENOM 
G1 1U=G 1 1U/DENOM 
G22L=G22L/DE  NQM 
G22U-G22U/DE  NGM 
G1 2L-G 1 2L/DENCM 
G12U=G 12U/0ENCM 

CALL  PSTRN(G1  1 L , G22  L , G1  2 L , S I ,D  I ft  I) 

CALL  PSTRN(G1 1U,G22U,G12U, SO , D I RO) 

53  WR I TE( MWRITE ,650 )NNUM,G1  1 L , G1 1 U ,G22L . G22U . G1 2L , G 1 2U , S I , SO, DIR  I, 

+ DIRO 

55  CONTINUE 

C GAUSS  STATION  STRAIN  PRINTOUT. 

I F ( IOP  3 EQ.O  ) GO  TO  70 
WRITE ( MWRITE ,860) 

DO  60  NN= 1 , N EGS 
LNUf.l=LNGS(NN  ) 

ro  WRITE  (MWRITE ,670)  LNUM 

^ WRITE (MWRITE  ,640) 

WR  I TE  ( iVWR I T E ,645) 

DO  60  NG= 1 ,9 

Gt 1 = EP SSI (NG  , LNUM) 

G22=£PEEI (NG , LNUM) 

G12=EPSEI (NG , LNUM) 

CALL  PSTRN(G1 1 .G22.G12.SI ,DIRI ) 

Gl 1=CPS50(KG , LNUM) 

C22-EP  EEO(NG  , LNUM) 

Gl  2 = E P SEO ( NG  , Li«U,.1) 

CALL  PSTRN(G 1 1 ,G22 ,G12, SO, DIRO  ) 

80  UR  I TE ( MWRITE  , 650 ) NG , EPSS I ( NG , L NUM) , EPSSO( NG , LNUM ) , EPEE  I (NG, LNUM) , 

2EPEEO( KG. LNUM) .EPS El (NG, LNUM) , EPSEO ( NG . LNUM) , SI , SO , DIR  I , DI RO 

70  CONTINUE 

C ADDITIONAL  STRATN  POINTS. 

I F { IOP4.EQ.O ) GO  TO  110 
WRITE( MWRITE  ,690) 

WRITE( MWRITE  .695) 

DO  100  KK- 1 , NASP 
LNUM= LNASP(KK) 

SL=SLASP(KK) 

E L = E LA SP(KK) 

NNN1 =NP( 1 , LNUM) 

NNN2=NP(2,LNUM) 

NNN4=  '’(4,  LNUM) 

XL=XGI  (NNN2 ) -XGI (NNN1  ) 


IPRT01 34 
IPRT01 35 
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IPRT01 37 
IPRT0138 
IPRT01 39 
IPRT0140 
IPRT0141 
IPRT01 42 
IPRT0143 
IPRT01 44 
IPRT0145 
IPRT0146 
1PRT0147 
IPRT0148 
IPRT0149 
IPRT0150 
IPRT01 51 
IPRT0152 
IPRT0153 
IPRT01 54 
IPRT01 55 
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IPRT0157 
IPRT01 58 
IPRT01 59 
1PRT0160 
IPRT0161 
IPRT0162 
IPRT0163 
IPRT0164 
IPRT0165 
IPRT0166 
IPRT01 67 
IPRT0168 
IPRT0169 
IPRT0170 
IPRT0171 
IPRT01 72 
IPRT01 73 
IPRT01 74 
IPRT01 75 

t nr>TA  4 
A I l\  I ^ I 1 o 

1PRT01 77 
IPRT01 78 
IPRT0179 
IPRT0180 
IPRT0181 
I PR  101 82 
IPRT0183 
IPRT0184 
IPRT0185 
IPRT0186 
IPRT0187 
IPRT01 88 
IPRT0189 
IPRT0190 
IPRT0191 
I PR  T0 1 92 


I 


\ 


I 
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YL  = YGI  (NNN4) -YGI (NNN1  ) 

CALL  SrOM(SL  , EL , XL , Y L , GB I ,STOEP) 

00  eo  d=1  .9 
EP ( U ) = 0 . DO 
DO  80  K=  1 ,24 
NNN=( L NUM-1  ) *24+K 
NN-NOOE(NNN) 

80  EP(d)=EPl d)+STD£P( d,K)»DISP(NN) 

EPSSM= EP( 1 )+£P(7)*EP(7)/2. O+EP ( 9 ) *EP ( S )/2 . 0 
EPEEM=  EP(2)+EP(8)«EP(8)/2.0+EP (9)*£P(9)/2. 0 
EPSEM=  EP(3)tEP(7)*EP(8) 

DO  100  11=1,2 
FCT=1  ODO 

1 F ( 1 1 EO  2 ) F CT  =- 1 000 

Gl  1=EPSSM+FCT*THALF*EP(4  ) 

C22  = EP  ECM+FC  T*THALF*EP(5) 

G12=£PSEM+FCT»THALF*EP(6) 

CALL  PSTRN(G1 1 ,G22 .G12.SI .DIRI ) 

DO  90  1=1,2 

THET  = E 01 R ( I , KK)+0  1 74532 9251 99 40-0 1 
CT  = DCQ S (THE T ) 

ST-DSI N(THET  ) 

E LONG ( I ) =G1 1 +CT»CT+G22*S  T + ST+Gl 2*CT*ST 
-0  ELONG(  I )--DSQRT(1  0 + 2 . 0*  E LONG(  I ) )-l  . 0 

I F ( 1 1 EQ  1 )WRITE(M WRITE,  700)KK ,G1 1 , G22 , Gl 2 , ELONG ( 1 ) , EL0NG(2 ) , SI , 
+ DIRI 

I F ( 1 1 EQ.2)WRITE(MWRITE,  710)KK,G11 , G22 , Gl  2 , ELONG ( 1 ) , EL0NG(2) , SI , 
+ DIRI 

100  CONTINUE 
110  CONTINUE 

C CALCULATION  AND  PRINTOUT  OF  GAUSS  STATION  STRAINS  ON  STIFFENERS. 
IF(IQP6.EQ  0 )G0  TO  1 90 
Eg  NA=3 

'J  CALL  GAUSS(NA, AGAUS, AGAUW) 

C FOR  X-DIRECTION  STIFFENERS. 

IF (NXSS  EQ  0 )G0  TO  ISO 
WRI TE ( MWRI T E ,780) 

'JRITET  MWRI  TE  ,785) 

WRITE! MURITE  ,790) 

DO  140  NX  = 1 , NXSS 
NST=INXSS(NX  ) 

LNUM= LNXS(NST) 

NNN1 =NP( 1 , LNUM) 

Nt.N2  = N P ( 2 , LNUM ) 

NNN4  = N P ( 4 , LNUM) 

XL=XGI (NNN2)-XGI(NNN1) 

YL  = YGI ( NNN4 ) -YGI (NNN1  ) 

EL  = XSP  RGP( 6 , NST) 

DO  130  NC= 1 , NA 

SL=( 1 . ODOO+AGAUS(NG) )/2. ODO 

CALL  S r DM(  S L , E L , XL . Y L , GB I , STDE P ) 

EP( 1 ) = 0 . 0 
EP(4)=0  0 
EP(.7)  = 0.0 
CO  120  - * *"»  s) 

NNN= ( L NUM-1 ) *24+K 
NN  = NOD  E ( NNN ) 

EP(  1 ) = EP ( 1 ) + STDEP( 1 ,K)*D1SP(MN  ) 

CP(4)  = EP(4)  + STDEP(4,K)*0ISP{NN  ) 


I 


I 


) 


I 
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IPRT0193 

IPRT0194 

TOOTfll  QC 

IPRT01 96 
IPRT0197 
IPRT01S8 
I PR  T0 1 99 
IPRT0200 
IPRT0201 
IPRT0202 
1 PRT0203 
I PRT0204 
I PRT0205 
I PRT0206 
I PRT0207 
I PRT02Q8 
I PRT0209 
IPRT0210 
IPRT021 1 
IPRT0212 
IPRT0213 
IPRT0214 
IPPT0215 
I PRT021 6 
1 PRT0217 
1PRT0218 
IPRT0219 
I PRT0220 
I PRT022 1 
IPRT0222 
IPRT0223 
I PRT0224 
I PRT0225 
I PRT0226 
I PRT0227 
I PRT0228 
I PRT0229 
I PRT0230 
IPRT0231 
I PRT0232 
IPRT0233 
I PRT0234 
IPRT0235 
IPRT0236 
I PRT0237 
1 PRT0238 
IPRT0239 
IPRT0240 
IPRT0241 
IPRT0242 
I PRT0243 
IPRT0244 
I PRT0245 
I PRT0246 
I PRT0247 
I PRT0248 
1 PRT0249 
IPRT0250 
IPRT0251 


PAGE  0013 


120 


130 

140 

150 


to 

to 

CD 


EP(7)=£P(7)+ST0EP(7,K)*DISP(NN ) IPRT0252 

NN=(NG-1 )*2+1  I PRT0253 

STOR  (NN)=EP( 1 )t£P( 7)*EP( 7 ) /2 . 0 + ( 0 . 5* XSPR3? ( 1 ,NST ) +XSPR 2? ( 7 . NST ) ) IFRTC2S4 
2»EP(4 ) I PRT0255 

ST0R(NN+1 ) = E P ( 1 )+£P(7)*EP(7)/2 .0+(XSPROP(7 ,NST)-0.5*XSPROP(1 ,NST)) IPRT0256 
2 * EP ( 4 ) IPRT0257 

CONTINUE  IPRT0258 

WRITE! MWRITE , 800 ) NST , ( S TOR ( J ) , J = 1 ,6)  IPRT0259 

CONTINUE  IPRT0260 

FOR  Y-DIRECTION  STIFFENERS.  IPRT0261 

I F ( NYS S EQ . 0 ) GO  TO  190  IPRT0262 

WRITE(M WRITE  ,810)  IPRT0263 

WRITE(MWRITE  ,785)  IPRT0264 

WRITE(MWRITE  ,790)  IPRT0265 

00  180  NY= 1 , NYSS  IPRT0266 

NST  = INYSS(NY  ) IPRT0267 

LNUVI=LNYS(NST)  XPRT0268 

NNN1  - J P ( 1 , LN UNI)  IPRT0269 

NNN2=NP(2, LNUM)  IPRT0270 

NNN4  = N P ( 4 , LN UM)  IPRT0271 

XL=XGI (NNN2)-XGI(NNN1)  IPRT0272 

Y L = YGI (NNN4) -YGI (NNN1 ) IPRT0273 

SL=YSPPOP(6 , WST)  I00T0074 

DO  170  NG=1,NA  IPRT0275 

E L = ( 1 . 0 + AGAU  S(NG) )/2.0  IPRT0276/ 

CALL  SFDM(SL , E L , XL , Y L . GB I , STDE P ) IPRT0277 

EP ( 2 ) = 0 0 IPRT0278 

EP(5 ) = 0 0 IPRT0279 

EP(8)=0  0 I PRT0280 

DO  160  K= 1 ,24  IPRT0281 

NNN=( LNUM-1 ) *24+K  IPRT0282 

NN  = N0D  E ( NNN ) IPRT0283 

EP(2)=EP(2j+STD£P( 2,K)*D ISP(NN ) IPRT0284 

EP(5)=EP(5)+STDEP(5,K)»DISP(NN ) IPRT0285 

tr(a/  = tP(6;-rST0£P(8,K)*DISP(NN ) IPRT0286 

NN= ( NG ” 1 ) *2+ 1 I PRT0287 

STOR  ( NN) =EP ( 2)i-EP(8)»EP(8)/2.0  + (0.5*YSPRQP(1 , NST ) +YSPROP ( 7 , NST ) ) IPRT028Q 
2 » EP( 5 ) I PRT02B9 

STOP(  NN+1 )=EP(2)+EP(8)*EP(8)/2 . 0+( YSPROP ( 7 , NST )-0 . 5* YS PROP ( 1 , NST ) ) IPRT0290 


2 *EP ( 5 ) 

IPRT0291 

170  CONTINUE 

IPRT0292 

180  WR l TE ( MWRI TE  ,800) NST , ( STOR ( J ) , 1 , 6 ) 

I PRT0293 

190  CONTINUE 

irniwA di 

C CALCULATION  AND  PRINTOUT  OF  SYSTEM  ENERGIES. 

I PRT0295 

IF( IOP  7 EQ  0 ) GO  TO  440 

I PRT0296 

C ELASTIC  STRAIN  ENERGY  STORED  IN  STRUCTURE. 

I PRT0297 

C FOR  PLATE  ELEMENTS. 

1 PRT0298 

NA  = 3 

I PRT0299 

NZ  = 4 

1 PRT0300 

NSU3L=NMSUB( 1 ) 

IPRT0301 

CALL  G AUSS ( N A , AGAUS , AGAU W ) 

IPRT0302 

CAlL  GAUSS(NZ, ZGAUS , ZGAU W ) 

IPRT0303 

ELAST  = 0 0 

I PRT0304 

S 1 = 1 . 0 /E PAN 

IPRT0305 

S2  = ~AN  UP  * S 1 

1 PRT0306 

S3-2  0*(1 .0+ANUP)/EPAN 

I PRT0307 

DO  240  LNUM= 1 , NET 

IPRT0308 

NNN1  = N °( 1 , LNUM) 

IPRT0309 

NNN2  = t'  P(2,  LNUM) 

I PRT031 0 

1 


I 


NNN4=NP(4 , LNUM) 

HXL=(XGI(  NNN  2 ) -XG I ( NfJNI  ) )/2.000 
HY  L= ( Y GI ( NNN  4 ) -YGI  (NNNt  ) )/2.CDC 
DO  240  KS= 1 , NA 
SW=HXL  + AGA'JW  ( KS) 

DO  240  KE  = 1 , NA 
EW  = HY  L * AGAUW (KE) 

JA=KE+ (KS-1 ) *NA 
ST0R1  = 0.0 
DO  230  L2=  1 , NZ 
ST  1 =0 . 0 
ST2=0 . 0 
ST3=0  0 

DO  220  LS= 1 , NSU8L 
dZ=LZ+ (LS-1 ) *NZ 

ST  I =ST  1+SUBW  ( 1 , LS ) + T AU'SS  ( LNUM,  dZ.dA) 

ST2=ST  2+SUBW ( 1 , LS)+TAUEE ( LNUM, JZ, JA) 

220  ST3=ST3+SUSW ( 1 , L$ ) »TAUSE ( LNUM, JZ.dA) 

PROOFS l* (ST  1 +ST1+ST2*ST2 )+2.0*S2*ST1 *ST2+S  3*ST3*ST3 
230  ST0R1  = STORl  + PR0Dt0.5«TH*ZGAUW( LZ) 

240  ELAST=  ELAST+ST0R1 *SW*EW/2.0 
C ELASTIC  ENERGY  IN  X-DIRECTION  STIFFENERS. 

IF(NXST  EQ.O )G0  TO  280 
DO  270  hST= 1 , NXST 
LNUM=  LNXS ( NS  T ) 

NNN1 =N  P( 1 , LNUM) 

NNN2=N P ( 2 , LNUM) 

HXL=(XGI(NNN2)-XGI(NNN1 ) )/2.0D0 
MAT  =MA TXS ( NS T ) 

NSUBL=NMSUB( MAT) 

S1=1  0/XSDR0p(3,NST) 

£ £W=XSPR0P(2, NST) 

U)  DO  270  KE  = 1 , NA 

SW=HXL» AGAUW (KE) 

ST  OR 1 = 0 0 
DO  260  LZ  = 1 , NZ 
ST  1 =0  0 

DO  250  LS= 1 , NSUBL 
J2  = L2+  ( LS-1  ) »NZ 

250  ST 1=ST 1+SUBW (MAT, LS ) »TAGSS (NST , JZ.KE) 
PR0D=S1+ST1*ST1 

260  ST0R1  = STOR1  + PRODf0.5*XSPROP(1  , NST ) »2GAUW( LZ ) 

'70  ELAST= ELASl+STORI *EW»SW/2.0 
260  CONTINUE 

C ELASTIC  ENERGY  STORED  IN  Y-DIRECTION  STIFFENERS. 

I F ( NY S 1 . EQ  0 )C0  TO  320 
DO  310  NST  = 1 ,NYST 
LNUM=LNYS(NST' 

NNN4  = N P ( 4 , LNUM) 

HYL= ( YGI ( NNN 4 )-YG I (NNN1  ) )/2.0D0 
MAT=MATYS(NST  ) 

NSUBL=NMSUB( MAT) 

S 1 = 1 ,0/YSPROP(3,NST) 

SW= YSP  ROP ( 2 , NST) 

CO  310  K3  = 1 , NA 
EW=HY  L * AGAUW ( KS ) 

ST0R1  = 0 0 
DO  300  LZ  = 1 , NZ 
ST  1 =0 . 0 


i 


i 
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IPRT031 1 
I PRT031 2 

» o 4 <•» 

IPRT0314 
I PRT031 5 
IPRT0316 
IPRT0317 
IPRT0318 
IPRT0319 
IPRT0320 
IPRT0321 
IPRT0322 
IPRT0323 
I PRT0324 
I PRT0325 
I PRT0326 
I PRT0327 
I PRT0328 
I PRT0329 
I PRT0330 
I PRT0331 
I PRT0332 
i PK I 0333 

I PRT0334 
IPRT0335 
IPRT0336 
I PRT0337 
IPRT0338 
IPRT0339 
I PRT0340 
IPRT0341 
IPRTC342 
I PRT0343 
I PRT0344 
IPRT0345 
IPRT0346 
IPRT0347 
I PRT0348 
IPRT0349 
IPRT0350 
I PRT0351 
IPRT0352 

i r m i 

I PRT0354 
IPRT0355 
I PRT0356 
IPRT0357 
IPRT0358 
IPRT0360 
I PRT0361 
I PRT0362 
IPRT0363 
I PRT0364 
IPRT0365 
IPRT0366 
IPRT0367 
I PRT0368 
I PRT0369 
IPRT0370 


230 


DO  29C  LS  = 1 , NSUBL 
JZ=LZ+ ( LS-1 ) *NZ 

290  ST  1 =ST  1 + SU3W  ( MAT  , LS)+TSGEE(NST  ,JZ,KS) 

PROOFS  1 »ST1 * ST  1 

300  ST0R1  = STORI+  PRCD*0 . 5*YSPR0P( 1 , NST) *ZGAUW( LZ) 

310  E LAST = ELAST+5T0R1 +EU+SW/ 2.0 
220  CONTINUE 

C CALCULATION  OF  ENERGY  STORED  IN  ELASTIC  RESTORING  SPRINGS. 
SPREN=  0 . 0 

IF(NELES.EQ. 0)GO  TO  380 
DO  370  NS=1 , NELES 
LNUM=  L NRS ( NS  ) 

I S I DE= ISRS(NS) 

NNN1 =N  P( 1 , LNUM) 

NNN2  = N P ( 2 , LNUM ) 

NNN4  = N P( 4 , LNUM) 

XL=KGI ( NNN2 ) -XGI ( NNN 1 ) 

Y L = YG I (NNN4)-YGl(NNN1) 

DO  330  1=1,5 
330  SS(  I ) = SC ( I ,NS) 

CALL  SPRING( EK.SS, ISIDE.XL.YL) 

L= ( LNUM— 1 )*24 
DO  3^0  1=1,24 
LP I = L+ I 
LL=NODE( LPI ) 

340  EO(I)=DISP(LL) 

DO  350  1=1,24 
STOR ( I )=0.0 
DO  350  K=1 ,24 

350  STOR ( I )=STOR(I)+EK(I,K)*EQ(K) 

STOR  1 =•  0 0 
DO  360  1=1,24 

360  ST0R1-ST0R1+EQ(I)*ST0R(I ) 

370  SPREN=  SPREN+  ST0R1 /2  0 
380  CONTINUE 

C CALCULATE  KINETIC  ENERGY  OF  THE  STRUCTURE. 

CINET=0.0 
DO  400  1=1 ,NDT 

400  CIN£T=CINET+  AMASS ( I ) * VEL ( I ) * VE L ( I )/2 . 0 
C CALCULATE  KINETIC  ENERGY  OF  THE  FRAGMENT. 

CINFRT  = 0.D0 
CINFTN=O.DO 
DO  420  1=1,3 

CINFRT  =C I NFR  T + 0 5DO*FMOI *OMEGF ( I)*QMEGF( I) 

420  CINFTN=CINFTN+0  5D0* FMAS S* VF ( I ) * VF ( I ) 

C WORK  INPUT  TO  STRUCTURE  EQUAL  TO  DIFFERENCE  BETWEEN  INITIAL 
C AND  CURRENT  FRAGMENT  ENERGIES. 

EUORK= FKEO-C INFRT-CIMFTN 
C CALCULATE  PLASTIC  WORK  BY  SUBTRACTION. 

PLASTW=EWORK-ELAST-SPREN-CINET 
C PRINTOUT  ENERGIES. 

WRI TE ( MWR1 TE  ,720) 

WRITE(MWRITE  ,725)  CINFTN 
URITE(  MWRITE  ,726)  CINFRT 
„RITE( 7„  RITE  ,730)  E'.'GRK 
WRITE(  MWRI IE  ,740)  CINET 
WRITE( MWRITE  ,750)  ELAST 
WRITE(  MWRITE  ,760)  PLASTW 
WRITE' MWRITE  ,770)  SPREN 


I 


) 
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I PRT037 1 
I PRT0372 

1 nr»TnO'?'» 

I PRT0374 
I PRT0375 
I PRT0376 
I PRT0377 
I PRT0378 
IPRT0379 
I PRT0380 
IPRT0381 
IPRT0382 
IPRT0383 
1 PRT0384 
IPRT0385 
IPRT0386 
I PRT0387 
IPRT0388 
IPRT0389 
I PRT0390 
I PRT0391 
I PRT0392 
I OOT0393 
I PRT0394 
IPRT0395 
I PRT0396 
I PRT0397 
I PRT0398 
IPRT0399 
I PRT0400 
I PRT040 1 
I PRT0402 
I PRT0403 
IPRT0404 
I PRT0405 
I PRT0406 
IPRTC407 
IPRT0408 
I PRT0409 
IPRTQ410 
IPRT041 1 
IPRT0412 
IPRT0413 
IPRT0414 
IPRT04 1 5 
IPRT0416 
IPRT0417 
IPRT0418 
IPRT0419 
IPRT0420 
IPRT0421 
I PRT0422 
IPRT0423 
IPRT0424 
IPRT0425 
IPRT0426 
IPRT0427 
I PRT0428 
IPRT0429 


i 


231 


I 


440 

500 

550 

.,60 

570 

600 

610 

620 

630 

640 

644 

645 
650 
660 

670 

690 

695 


700 

710 

720 

725 

726 
730 
740 
750 
760 

*T  r\ 

780 

785 

790 

800 

010 

900 

920 

940 

550 

960 


CCNTINUE 
CONTINUE 
FORMAT ( ■ 0 * , * 
FORMAT ( ‘0* ,2 
2 'MX( LBS-IN) ' 
FORMAT ( 
FORMAT ( 
FORMAT  ( 
2‘TWIST  1 
FORMAT  ( 
FORMAT  ( 

2 T I ON  AT 
FORMAT  ( 

2 1 , 1 2X  , 1 


•O'  , * 

' 0 ‘ , ‘ 
, 7X , 1 
' ‘.I 
•0‘  , 1 
CENT 
‘O'  ,1 
PRINC 


FORMAT ( 1 ' , ‘ 
FORMAT  ( ' ' , ' 

FORMAT  ('  '.I 

FORMAT  ( ‘ 0 * . * 
2 T I ON  AT  GAUS 
FORMAT { '0* . ' 
FORMAT ( 1 O'  , 1 
2TI0N,  AND  EL 
FORMAT  ( ' 0 * . ' 
2RAIN 1 , 2X, 'SH 
3 'PRINC.  STRN 
FORMAT  ('  ’ . I 

FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 
FORMAT ( 


FORMAT ( ‘O'  , ' 
2RECT I ON  STIF 
FORMAT ( ' O' , ' 
2‘ STATION  3' ) 
FORMAT  ( * ' , 1 
FORMAT  ( ' ' , I 

FORMAT ( 'O' , ' 
2RECTI0N  STIF 
FORMAT ( ' 0 * , ‘ 
2CT ION  AT  USE 
FOPMAT  ( ' 1 , ' 
FORMAT  ( ‘O'  , ' 
FORMAT  ( ' 

29X,  ' VE  L-Z 
FORMAT  ( ' 
RETURN 
END 


REACTION  FORCES  AT 
X, 'NODE' ,4X, ' RX ( LB 
,5X, ' MY ( LBS— IN ) 1 ,5 
6,6015.5) 

* t**t  INCR  NO.  = ' , 
NODE' , 6X, 'U' , 12X, ' 
X-POS  ' , 7X , ‘ Y-POS . 
4,9013  5) 

STRAIN  COMPONENTS, 
ROIO  OF  EACH  ELEME 
4X , 'EPS-X  STRAIN' , 
. STRAIN (T)  ' , 10X,  ' 
ELEM  ' , 5 ( 7X  , ' INNER 
STA.  ' , 5 ( 7X , ' INNER 
4 , 1 X , 1 0D1 2 4) 
STRAIN  COMPONENTS, 
S STATIONS  FOR  SEL 
RESULTS  FOR  ELEMEN 
STRAIN  COMPONENTS, 
ONGAT ions  AT  SPECI 
POINT  NO.  ' , 2 X , 'SUR 
EAR  STRAIN' , IX, 'EL 
(T) ' , IX. 'DIRECTION 
7 , 5X , ' INNER ' , IX, 7D 
7 , 5X , 'OUTER' , 1X.7D 
SYSTEM  ENERG I ES ( I N 
X.'FRAG.  TRANS  LAT I 
'FRAG  ROT  AT  IONA 
'WORK  INPUT  TO  S 
'STRUCTURE  KINET 
'STRUCTURE  ELAST 
'STRUCTURE  PLAST 
X, ‘ENERGY  STORED  I 
STRAIN,  EPS-XX,  AT 
FENERS' ) 

STIFFENER' ,14X, ‘ST 


CONSTRAINED  ''■ODES') 

S)' ,8X. ‘ RY ( LBS) ‘ ,8X, *RZ( L8S)' ,7X, 

X, ' MAY ( LBS- I N— IN ) 1 ) 

IS , 2X , ' T IME= ' ,012.4, IX, ' SEC. ‘ ) 

V'  ,12X,  'W' ,1 IX, 'PSIX' ,9X,  'PSIY' ,9X, 

• ,7X, ' Z-POS.  ' ) 

PRINCIPAL(TENSILE)  STRAIN  AND  OIREC 
NT'  ) 

12X,'EPS-Y  STRAIN'  . 12X, ‘ SHEAR  STRAIN 
D IRECT I ON ( DEG . ) 1 ) 

' ,7X,  'OUTER'  ) ) 

' , 7X , 'OUTER'  )) 

PRINCIPAL(TENSILE)  STRAIN  AND  DIREC 
ECTEO  ELEMENTS') 

T NUMBER1 ,15) 

PRINCIPAL(TENSILE)  STRAIN  AND  DIREC 
FI  ED  ADDITIONAL  POINTS') 

FACE'  ,2X. 'EPS-X  STRAIN'. 2X  'EPS-Y  ST 
ONG. (DIR.  1 ) 1 . IX, 'ELONG. (DIR. 2) ' ,1X, 
(DEG.  ) ' ) 

14.5) 

14  5) 

-LB)  ' ) 

ONAL  KINETIC  ENERGY  =‘,D15.7) 

L KINETIC  ENERGY 


TRUCTURE 
IC  ENERGY 
IC  ENERGY 
IC  ENERGY 


= ' ,015.7) 
= ' .D15.7) 
= ' ,015.7) 
= ' ,015.7) 
= ' ,015.7) 


N ELASTIC  RESTRAINTS*' ,015.7) 
GAUSSIAN  STATIONS  ON  SPECIFIED  X-DI 

AT ION  1 ‘ ,15X, 'STATION  2‘,15X, 


.9 

.7 

.9 


NUMBER' , 5X , 3 ( 7X , ' INNER'  ,7X  . 'OUTER'  ) ) 

5.7X.6D12  4) 

STRAIN,  EPS-YY,  AT  GAUSSIAN  STATIONS  ON  SPECIFIED  Y-DI 
FENEPS  ‘ ) 

STRAIN  COMPONENTS,  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRE 
R-SPEC I F I ED  NODES'  ) 

NODE  ' ,5(7X,  ‘ INNER ' ,7X,  'OUTER'  ) ) 

FRAGMENT  GLOBAL  LOCATION  AND  VELOCITY  COMPONENTS') 

X,  'X-LOC' ,9X , ' Y-LOC' ,9X, 'Z-LOC ' ,9X,  • VEL-X'  ,9X, ' VEL-Y* , 
X, 'OMEGA-X'  , 7X , 'OMEGA-Y'  ,7X, ‘OMEGA-Z* ) 

D14  6) 


IPRTC430 

IPRT0431 

I pDTn43'» 

I PRT0433 
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I PR  T 0436 
I PRT0437 
IPRT043B 
1 PRT0439 
IPRT0440 
I PRT044 1 
IPRT0442 
I PRT0443 
I PRT0444 
I PRT0445 
I PRT0446 
I PR  f 0447 
I PRT0448 
IPRT0449 
IPRT0450 
I PRT0451 
I PRT0452 
I PRT0453 
IPRT0454 
I PRT0455 
IPRT0456 
IPRT0457 
IPRT0458 
I PRT0459 
IPRT0460 
IPRT0461 
IPRT0462 
I PRT0463 
I PRT0464 
I PRTC465 
IPRT0466 
I PRT0467 
I PRT0468 
I PRT0469 
I PRT0470 
I PRT047 1 

T nflTrt 

I PRT0473 
I PRT0474 
I PRT0475 
IPRT0476 
IPRT0477 
I PRT0478 
IPRT0479 
I PRT0480 
IPRT0481 
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CIVM-PLATE  1 COMPUTER  CODE. 

THIS  DUMMY  MAIN  PROGRAM  I OR  THC  C1VM  PLATE  PROGRAM  REQUIRES 
THCSC  SUIIROUT  IHESi 

ARRT  , ASS  CMK  , DCONMK , COLLSN , CAROW,  FACT  .GAUSS.  I FRAG, 

IMAINP , IMPACT, 1MPDS, IMPSS, IN  TRAC , 1 PR  INI .LMASSP, 

ME  SHPA , MESIIPM , OMULT .PROTOP.PSTRN, RCON , RPLATE ■ SFDM , 
SOLV.SPRING.STRLSA.STRESC.STRESP.TSTEP. 

ILLUSTRATIVE  EXAMPLE  FOR  CIVM  PLATE  PROGRAM  - FULL  MODEL. 

> 

SMALL  STRAIN  FORMULATION  VERSION  WRITTEN  BY  R.  L.  SPILKER 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM  ' 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

DUMMY  MAIN  PROGRAM  WHICH  PROVIOES  DIMENSIONS  FOR  THOSE  ARRAYS 
(VECTORS)  WHOSE  DIMENSIONS  ARE  PROBLEM  DEPENDENT. 

THE  FOLLOWING  ARRAYS  MUST  BE  DIMENSIONED  BY  THE  USER  AS  SHOWN  I 
DIMENSION  DELO(NOT) .DIS(NDT) .DISP(NOT) , D l SMI (NOT ) , DI SM2(NDT ) , 
FLN(NDT) .FLVA(NOT) .FLVM(NDT) , FLVP(NDT ) , VEL (NOT ) . ICOL(NDT) , 
INUM(NDT) .KROW(NDT).NDEX(NDT) , STF (MNC ), AMASS (NOT  ) ,NP(4,MAXEL) , 
NOOE ( 24  *MAX  EL) , TAUSS (MAXEL ,4*MNSL , 9 ) . T AUSC (MAXE L , 4 *MNSL , 9) , 


IMAN0000 
“IMAN0001 
IMAN0002 
IMAN0003 
1MAN0004 
IMAN0005 
IMAN0006 
IMAN0007 
IMANOOOO 
IMAN0009 
1MAN0010 
IMANOOtl 
IMAN0012 
IMAN0013 
IMANOO 1 4 
IMAN0015 
IMANOO 1 6 
IMAN0017 
IMANOO 1 0 
IMANOOI9 
1MAN0020 
IMAN002 1 
IMAN0022 


TAUEE(  MAXEL  ,4’*MNSL,9)  ,EPSSI(9,  MAXEL)  , EPSSO(  9 .MAXEL)  ■,  EPEEI  ( 9 .MAXEL)  IMANOO  23 
,EPEE0(9.MAX£L) .EPSEI (9, MAXEL) . EPSEO( 9 .MAXEL ) ,NBC(N8) .BC(NB)  , 

RFM(NBE.MBWE) , I LAST ( NBE ) . UCF 1 (NBE ) . UCF2 (NBE ) , XG (NNT ) . YG(NNT ) . 

ZG(NNT ) . XGI (NNT).YGI(NNT), 

TAGSS (MNXST ,4*MNSL,3),LNXS(MNXST),XSPR0P(7 , MNXS  T ) . MATXS (MNXST ) , 

TSGEE (MN  ^ST  , 4 *MNSL . 3 ) , LNYS(MN YST) , Y SPROP (7 ,MNYS T ) .MAT YS(MNYST ) , 

LNRS(NRSS) . ISRS(NRSS) ,SC(5,NRSS) .NVSA(MNNSA) ,NC0N(4 .MNNSA) , 

PMASS(NNT) , VN(3,N1AN) , VNB( 3 . N I AN) , S I (NI AN) . NEFF ( NI AN) , ALPHA (NI AN) 


WHERE, 

NNT 

NOT 

MNC 


MAXEL 

MNSL 


NB 


NBE 


MBWE 


MNXST 


MNYST 


IMAN0024 
IMAN0025 
IMAN0026 
IMAN0027 
IMAN0028 
IMAN0029 
IMAN0030 
1MAN0031 
1MAN0032 

TOTAL  NUMBER  OF  NODES  IN  THE  ASSEMBLED  FINITE-ELEMENT  MODEL IMAN0033 
TOTAL  NUMBER  OF  DEGREES  OF  FREEDOM  IN  THE  ASSEMBLED  FINITE-IMAN0034 
ELEMENT  MODEL  = 6»NNT.  IMAN0035 
ESTIMATED  NUMBER  OF  WORDS  OF  STORAGE  FOR  THE  ASSEMBLED  IMAN0036 
STIFFNESS  MATRIX  (LOWER  TRIANGLE  STORED  BY  ROWS  FROM  FIRST  1MAN0037 
NONZERO  TERM).  IMAN0038 
NUMBER  OF  ELEMENTS  IN  F INI TE -ELEMENT  MODEL.  IMAN0039 
MAXIMUM  NUUDER  OF  MECHANICAL  SUBLAYERS  EMPLOYED.  IMAN0040 
NOTE—  MNSL  MUST  BE  LESS  THAN  OR  EQUAL  TO  5.  IMAN0041 
ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  PRIOR'  IMAN0042 
TO  ELIMINATION  OF  DUPLICATES,  IMAN0043 
ESTIMATED  NUMBER  OF  CONSTRAINED  DEGREES  OF  FREEDOM  AFTER  IMAN0044 
ALL  DUPLICATES  HAVE  BEEN  ELIMINATED  (IF  I0P5  ■ 1),  • JMAN0045 
1 IF  I0P5  = 0 IMAN0046 
ESTIMATED  MAXIMUM  BANDWIDTH  OF  ASSEMBLED  STIFFNESS  MATRIX  IMAN0047 
AT  A CONSTRAINED  DEGREE  OF  FREEDOM  (IF  I0P5  « 1),  IMAN0048 
1 IF  I0P5  « 0 - v IMAN0049 
MAXIMUM  NUMBER  OF  X-OIRECTION  STIFFENERS.  . IMAN0050 
1 IF  MO  X-01RECT ION  STIFFENERS.  IMAN0051 
MAXIMUM  NUMBER  OF  Y-DIRECTION  STIFFENERS.  IMAN0052 


ooooooooo 


) 


to 

U) 

CJ 


NRSS 


MNSLT4 

MNNSA 

N 1 AN 


1 IF  NO  Y-DIRECTION  STIFFENERS.  IMAN0053 

TOTAL  NUMBER  OF  ELEMENT  SIDES  ON  WHICH  LINE  RESTORING  IMAN0054 

SPRINGS  ARE  LOCATED.  IMAN0055 

t IF  NO  RESTORING  SPRINGS  ARE  PRESENT.  IMAN0056 

4 *MN  S L IMAN0057 

MAXIMUM  NUMBER  OF  NODES  REQUESTED  FOR  STRAIN  OUTPUT  IMAN0058 

(IF  IQPB= 1 ) . IMAN00S9 

ESTIMATED  MAXIMUM  NUMBER  OF  NODES  WHICH  WILL  BE  AFFECTED  IMANOO0O 
BY  A SINGLE  IMPACT.  IMAN0061 

IMPLICIT  REAL*8(A-H.O-Z)  IMAN0062 

DIMENSION  DELD(450) ,DI S(450 ) ,DISP( 450) ,D1SM1 (450) ,DISM2(450) . IMAN0063 

2FLN(450) , FLVA(450) ,FLVM(450) . FLVP(450 ) . VEL (450 ) . ICOL(450) . 1MAN0064 

31 NUM( 450) , K ROW ( 450 ),NDEX(450) ,STF( 16335) .AMASS (450) , v IMAN0065 

4NP(4, 56), NODE (1344) ,TAUSS(56. 12,9) , TAUSE (56 . 1 2 , 9) ,TAUEE(56, 12,9) , IMANOOG6 
5EPSSI (9,56)  , £PSS0(9 , 56 ) .EPEE  I (9.56) ,EPEE0(9,56) ,EPSEI(9.56) . IMAN0067 

6EPSE0 (9,56)  , NBC ( 60 ) , BC ( 60 ) , RFM( 1,1) , I LAST ( 1 ) , UC FI ( 1 ) , UCF2 ( 1 ) , IMAN0068 

7XG(75) , YG( 7 5 ) ,ZG(75) ,XG1 (75) ,YGI(75) , TAGSS( 1 ,12,3) ,LNXS(1) , IMAN0069 

BXSPRO  P ( 7 , 1 ) , MATXS ( 1 ) ,TSGEE(28, 12,3) , LNYS (28) , YSPR0P(7 , 28) , MATYS( 28 IMAN0070 
9 ) , LNRS ( 28 ) , ISRS(20) ,SC(5.28) ,NVSA(8) ,NC0N(4.8) , PMASS( 75) . VN(3 ,75 ) , IMAN0071 
A VNB(3,75) , SI  (75) ,NEFF(75) .ALPHA (75)  IMAN0072 

COMMON/ BA 5/ NOT , NET ,MN , NB , N I RREG , MNC  IMAN0073 

COMMON  /INOUT/  MREAD.MWRITE .MPUNCH  IMAN0074 

C DEFINE  CARD  READER,  LINE  PRINTER  AND  LARD  PUNCH  UNIT  NUMBERS.  IMAN0075 

MREAD  = 5 , IMAN0076 

MURITE  = 6 IMAN0077 

MPUNCH  = 7 • IMAN0078 

READ( MREAD, 500)MAXEL ,MNSL .MNXST ,MNY ST ,NBE ,MBWE , MNC ,NI AN  IMAN0079 

500  FORMAT ( B 1 1 0 ) IMANOOBO 

WRITE (MERITS, 600)  IMAN0081 

WRITE (MWRI T E.  610)  MAXEL  IMAN0082 

WR I T £ ( MWR I T E , 620 ) MNSL  IMAN0083 

WRITE  (MWRI  T E , 630  ) MNXST  IMAN0004 

WR1 TE (MUR I T E , 640 ) MNYST  IMAN0085 

WRITE (MWR I T E , 650 ) NBE  1MAN0086 

WR I T E ( MUR l T E , 660 ) MBWE  IMAN0087 

WR  I T E ( MWR  I T E , 6 /O  ) MNC  . IMANOOQO 

WR 1TE I MWR I T E . 680 ) NIAN  IMAN00B9 


600 

FORMAT  ( ' 1 
♦INPUT  FOR 

CIVM-PLATE  1 COMPUTER  CODE  (SMALL  STRAIN  THEORY)  t USER 
ARRAY  DIMENSIONS')  * ' ~~ 

IMAN0090 

'IMAW0091 

610 

FORMA  T ( ‘ 

‘ , ‘MAXEL 

3 

,110) 

IMAN0092 

620 

FORMAT ( • 

1 , ‘MNSL 

S 

,110) 

IMAN0093 

630 

FORMAT ( 1 

1 , “MNXST 

X 

.110) 

IMAN0094 

640 

FORMA Tl  ' 

1 , 'MNYST 

3 

.110) 

IMAN0095 

650 

FORMAT ( 1 

' , 'NBE 

X 

.110) 

IMAN0096 

660 

FORMAT ( 1 

' , 'MBWE 

3 

.110) 

IMAN0097 

670 

FORMAT ( ' 

' , ' MNC 

3 

,110) 

IMAN0098 

600 

FORMAT ( ' 

1 , 'NIAN 

* 

,110) 

IMAN0099 

MNSLT 4=MNSL  *4  JMAN0100 

CALL  1MAINP(DELD,DIS.DISP,DISM1 , DISM2 , FLN , FLVA , FLVM, FLVP , IMAN0101 

2VEL, I COL , INuM , KROW , NDEX , STF , AMASS , NP , NODE , TAUSS , TAUSE , TAUEE , IMAN0102 
3EPSSI .EPSSO  .EPEEI.EPCEO.EPSEl , EPSEO ,NBC, BC .RFM, ILAST.UCF1 ,UCF2,  JMAN0103 
4XG, YG , ZG, XG I ,YGI , TAGSS , LNXS , XSPROP , MATXS ,TSGEE , LNYS, YSPROP , MAT YS,  JMAN010* 
5LNRS, I SRS, SC, MAXEL, MNSL, MNSLT4, NBE, MBWE, MNXST, MNYST, NVSA.NCON,  IMAN0105 


6PMASS , VN , VNG , SI , NEFF , ALPHA ,NI AN)  IMANO 106 

CALL  EXIT  IMANO 1 07 

END  IMANO 108 
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SECTION  7 


PLATE  1 CODE  EXAMPLE:  TRANSIENTLY-LOADED 

NARROW  RECTANGULAR  PLATE 

To  illustrate  the  use  of  the  PLATE  1 computer  program,  a narrow 
rectangular  plate  with  both  ends  clamped  is  analyzed?  The  plate  is  subjected 
to  a prescribed  distributed  vertical-direction  transient  external  loading. 
Three  alternate  finite-element  modelings  are  described,  and  the  associated 
input  data  for  each  are  shown.  However,  for  conciseness,  solution  output 
data  are  given  for  only  one  of  these  models;  these  results  can  be  employed 
by  the  user  to  check  the  adaptation  of  PLATE  1 to  his  particular  computing 
facilities . 

7.1  Problem  Description 

A narrow  rectangular  uni form- thickness  aluminum  plate  with  both  ends 

ideally  clamped  and  both  sides  free  is  subjected  to  a uniform  w-direction 

A — 

triangular  time-pulse  pressure  loading  F = p = p = 21,934.4  psi  for  a 

z z o 

25-microsecond  duration,  as  depicted  m Fig.  16.  This  pressure  loading 
covers  the  entire  width  of  the  plate  and  a 1.80-in  spanwise  region  centered 
at  the  midspan  station.  This  plate  is  of  0.102-m  thickness,  1.497- in 
width,  and  8.00-m  span. 

The  initial  mass  per  unit  volume  p of  this  plate  material  is  assumed 
-3  2 4 ° 

to  be  0.25384  x 10  (lb-sec  )/in  . The  uniaxial  stress-strain  (0,£) 

properties  of  the  plate  material  are  represented  by  a 3-sublayer  version 

of  the  mechanical- sublayer  material  model,  defined  by  0^,5:^  = 44,200  psi, 

0.00442  m/in;  = 49»200  psi,  0.0760;  and  = 76,400  psi,  0.615; 

this  behavior  is  described  as  elastic,  strain  hardening  (EL-SH) . In  addition, 

it  is  assumed  that  this  material  yields  m a rate-dependent  fashion  with  the 

strain- rate  constants  assumed  to  be  d = 6500  sec  1 and  p = 4;  this  material 

is  thus  described  concisely  as  of  EL-SH-SR  type  where  SR  denotes  that  the 

material  is  strain-rate  sensitive.  Also,  it  is  assumed  that  this  initially- 

£ 

isotropic  material  has  an  elastic  (Young's)  modulus  of  10  x 10  psi  and  a 
Poisson  ratio  of  1/3. 

* 

Additional  examples  and  transient  response  predictions  obtained  by  using  the 
PLATE  1 program  are  described  m Subsection  7.2  of  Ref.  14  as  the  "small 
strain"  calculations. 
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The  generalized  nodal  loads  for  a plate  element  of  dimensions 

L Xj  L Q 5 

(x,y)  = (a,b)  subjected  to  externally-applied  loads  F = F = F = F = F = 
BAA  A_  xyzxy 

F = F = F =0  and  F = p (psi)  — (see  Subsection  A. 1.3. 4 and  Eqs.  A. 54) 
z x y z o n 

— cam  be  shown  for  the  present  LLC  plate  element  to  be: 


u 

Node  1 

1 0 

2 0 

3 0 

4 0 


v 

2 

0 

0 

0 

0 


Degree  of 

Freedom 

(DOF)+ 

w 

3w 

3w 

~2 
3 w 

3x 

3y 

3x3y 

3 

4 

5 

6 

ab 

a2b 

ab2 

2,  2 
a b 

4 

24 

24 

144 

ab 

a2b 

ab2 

2,  2 
a b 

4 

24 

24 

144 

ab 

a2b 

ab2 

2,  2 
a b 

4 

24 

24 

144 

ab 

a2b 

ab2 

2.  2 
a b 

4 

24 

24 

144 

These  values  apply  for  a unit  value  of  uniform  pressure  loading  p^;  hence, 
if  pQ  = pQ(t),  the  appropriate  corresponding  element  nodal  loads  are 
obtained  by  multiplying  the  above  values  by  pQ(t). 

For  each  of  the  three  modelings  employed,  it  is  necessary  to  provide 
a specific  version  each  of  subroutines  EXTL  (prescribed  transient  external 
loading)  and  INCOND  (initial  conditions) . A listing  of  the  subroutines  for 
each  of  these  three  example  modelings  follows. 


+See  Fig.  2 for  definitions  and  signs  of  these  generalized  displacements; 
the  positive  generalized  loads  are  defined  consistent  with  these  directions. 


236 


237 


Subroutines  for  the  Full-Plate  Model 


SUBROUTINE  EXTL(ELV, ITT , NP .NODE , XGI , VGI ,GB I ) 

IMPLICIT  R£AL*8( A-H.O-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

THIS  VERSION  IS  FOR  THE  EXAMPLE  OF  A RECTANGULAR  PLATE.  CLAMPED 
ON  THE  TOP  AND  BOTTOM  EDGES,  FREE  ON  THE  OTHER  TWO  EDGES  WITH  AN 
IMPULSIVE  LOAD  APPLIED  SYMMETRICALLY  TO  ITS  CENTRAL  REGION. 

DIMENSION  ELV(1),NP(4,1) .NODE ( 1 ) , XGI { 1 ) , YG I ( 1 ) ,GBI (24 , 24) 

THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  GENERATE  THE  NODAL 
GENERALIZED  FORCES  CORRESPONDING  TO  PRESCRIBED  EXTERNALLY- APPLI ED 
FORCES  AT  TIME  T SUB  M ( =M* DELTA  T)  AS  DESCRIBED  IN  SUBSECTION  4.6.2 
AND  CORRESPONDING  TO  THE  DEVELOPMENT  IN  SUBSECTION  A.  1.3. 4. 

DEFINE  SIZE  OF  VECTOR  CONTAINING  UNIT  LOAD  OVER  ALL  DOF  IN  CENTRAL 
REGION  OF  PLATE.  WIDTH  OF  LOADED  REGION  IS  1.497  IN. .LENGTH  IS  1.8  IN. 
DIMENSION  ALOAD( 1 50 ) , AL1 { 72) , A L2{ 78 ) 

EQUIVALENCE  ( AL 1 ( 1 ) , ALOAD ( 1 ) ) . ( A L2 ( 1 ) , ALOA D ( 73 ) ) 

COMMON  /BAS/  NDT.NET ,MN, NB.NIRREG.MNC 
COMMON /TIM/DELT AT. TIMEF, TIME, I TIMEF, INCRT , I OUT, I TIME 
COMMON  /INOUT/  MRE AD . MWR I TE , MP UNCH 
DEFINE  TIME  AT  WHICH  LOAD  OROPS  TO  ZERO  AND  MAX  VALUE  OF  IMPULSE. 

DATA  TEND/25 . D-6/ , AMAXP/219  34  £DO/ 

DEFINE  FIRST  AND  LAST  DOF  IN  LOADED  REGION. 

DATA  I DOF/1  2 1/, LDQF/270/ 

DEFINE  VALUES  OF  UNIT  LOAD  AT  EACH  DOF  IN  LOADED  REGION. 

DATA  AL1/2*0 .DO, .4210312D-1 , .2626182D-2,  .3157734D-2 


1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
u 
C 


,2*0 .00, .84206250-1 , . OOOOOOOD+O, 
,2*0 .00, . 8420625D- 1 , . OOOOOOOD+O, 
,2*0 .DO, .84206250-1 , . OOOOOOOD+O, 
,2*0 .DO, .42103120-1 ,-. 26261820-2, 
,2*0 .DO, .84206250-1 , . 5252365D-2, 
,2*0 .DO, . 1 6841 25D+0 , . OOOOOOOD+O, 
,2*0.00, .16841250+0,  . OOOOOOOD+O, 
,2*0 .DO, . 1 684125D+0,  . OOOOOOOD+O, 
,2*0 .DO, .84206250-1 , - . 5252365D-2 , 
.2*0.00, .84206250-1 , . 5252365D-2, 
2*0. DO, . 1684125D+0,  .00000000+0, 
DATA  AL2/2+0 .DO, . 1 684125D+0,  .00000000+0, 


ZERO  OUT  LOAD  VECTOR. 
DO  1 1=1 , NOT 
1 ELV ( 1 ) =0 .000 


,2*0 .DO, . 1 6841250+0,  . OOOOOOOD+O, 

,2*0 .DO. .B420625D-1 ,-.52523650-2, 

,2*0  .DO, .84206250-1  , . 52523650-2, 

,2*0  .DO, . 1 6841 25D+0 , . OOOOOOOD+O, 

,2*0  .DO, . 1 684125D+0,  . OOOOOOOD+O, 

,2*0  .DO. . 16841250+0,  . OOOOOOOD+O, 

,2*0  .00. .84206250-1 ,-. 52523650-2, 

,2*0  .DO. .42103120-1 , . 2626 1 82D-2 , - . 3 1 577 34D-2 
,2*0.00, . 8420625 D-1 , . OOOOOOOD+O ,-. 63 1 54 60D-2 
,2*0  .DO, . 8420625D-1 , . OOOOOOOD+O ,-. 631 54 68D-2 
,2-0  .DO, .84206250-1 , . OOOOOOOD+O ,-. G31 54 68D-2 
,2*0. DO, .42103120-1 ,-. 2 6261 82D-2 , - . 3 1 57734D-2 , 


. 631 5468D-2 
.63154680-2 
. 631 5468D-2 
. 3157734D-2 
■OOOOOOOD+O 
.OOOOOOOD+O 
.00000000+0 
.OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 
onooooon+o. 
.OOOOOOOD+O 
. OOOOOOOD+O 
•OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 


. 1969637D-3 
.OOOOOOOD+O 
.OOOOOOOD+O 
•OOOOOOOD+O 
-.  1969637D-3 
.OOOOOOOD+O 
.OOOOOOOD+O 
•OOOOOOOD+O 
.OOOOOOOD+O 
•OOOOOOOD+O 
.00000000+0 
noonnoor>-*0/ 

.OOOOOOOD+O 
.OOOOOOOD+O 
.00000000+0 
•OOOOOOOD+O 
.OOOOOOOD+O 
.OOOOOOOD+O 
•OOOOOOOD+O 
.OOOOOOOD+O 
-.  1D69637D-3 
.OOOOOOOD+O 
.OOOOOOOD+O 
•OOOOOOOD+O 
. 1 969637D-3/ 


EXTLOOOO 

EXTL0001 

r mt  I 

1.A  • Lb  w O i. 

EXTL0003 
EXTL0004 
EXTL0005 
EXTL0006 
EXTL0007 
EXTL0008 
EXTL0009 
EXTL0010 
EXTL001 1 
EXTL0012 
EXTL0013 
EXT  LO0 1 4 
EXTL001 5 
EXTL0016 
EXTL0017 
EXTLOO 1 8 
EXTL001 9 
EXTL0020 
EXTL0021 
EXTL0022 
EXTL0023 
EXTL0024 
EXTL0025 
EXTL0026 
EXTL0027 
EXTL0028 
EXTL0029 
EXTL0030 
EXTL0031 
EXTL0032 
EXTL0033 
EXTL0034 
EXTL0035 
EXTL0036 
EXTL0037 
EXTL0038 
EXTL0039 
EXTL0040 
EXTL0041 
F XT I 004? 
CXTL0043 
EXTL0044 
EXTL0045 
EXTL0046 
EXTL0047 
EXTL0048 
EXTL0049 
EXTL0050 
EXTL0051 
EXTL0052 
EXTL0053 
EXTL0054 
EXTL0055 
EXTL0056 
EXTL0057 
EXTL0058 


o o o o o o 


C IF  THIS  TIME  STEP  IS  BEYOND  LAST  TIME  OF  IMPULSE  RETURN  WITH 
C EXTERNAL  LOAD  VECTOR  SET  TO  ZERO. 

TYM=  ( I TT-1 ) * DELTAT 
I F( T YM  .GT.  TEND)  RETURN 

C INTERPOLATE  TO  FIND  MAGNITUDE  OF  IMPULSE  AT  THIS  TIME. 

AMULT* AMAXP* (TEND-TYM  )/T£N0 
C FILL  IN  VALUES  OF  LOAO  IN  CENTRAL  REGION  OF  PLATE. 

DO  2 I = 1DOF , LOOF 
J=I-IDOF+1 

2 ELV( I ) =AMULT  + ALQAO ( J ) 

C OUTPUT  LOADS  IF  THIS  IS  A REGULAR 
II I=ITIME/INCRT*INCRT-ITIME 
IF(III.NE.O)  RETURN 
NNTbNOT/6 

WRITE(MWRITE K\00)  TYM  ,(J,J=1 


PRINTING  CYCLE. 


6) 


I , ( ELV ( J ) , <J  = II  ,12) 


100  FORMAT ( t HO/ 1 HO , 1 0X , ‘ TIME  = ‘ ,016.6,'  SEC.'/1H  , 33 ( 1 H EXTERNALLY 

+ PPLIED  USER  SPECIFIED  LOADING  1 , 33( 1H. )/1H  , 6X , 'NODE 1 , 6 (7X, ‘ DOF# * 
S It ,3X)/8X,3(10X, 1 (LBS) ‘ ),1X,3(7X, ‘ (IN-LBS) * )) 

1 1 = t 

DO  3 1=1  , NNT 

12  = 0* I 

WRI TE ( MWRI TE , 101 ) 

11=12+1 
3 CONTINUE 

101  FORMAT (6X, 13 .2X.6D15.6) 

RETURN 
END 

SUBROUTINE  I NCOND( DI SP , V EL , NP , NODE, XGI , YGI ) 

IMPLICIT  REA  L*8( A-H, 0“Z) 

ASRL  TR  1 54_1 4 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

DIMENSION  DISP(1),VEL(1) ,NP(4, 1 ), NODE ( 1 ), XGI ( 1 ), YGI ( 1 ) 

COMMON /BAS/N DT.NET , MN.NB .NIRREG.MNC 

THIS  USER- PREPARED  SUBROUTINE  IS  USED  TO  SPECIFY  THE  INITIAL  (TIME 
ZERO)  CONDITIONS  ON  THE  PLATE  NODAL  DISPLACEMENT  AND  VELOCITIES, 

(0  ZERO)*  AND  (Q  DOT  ZERO)*,  RESPECTIVELY,  REQUIRED  FOR  THE  FINITE- 
DIFFERENCE  SOLUTION  OF  THE  GOVERNING  EQUATIONS  OF  MOTION  (SEE 
SUBSECTION  A. 3). 

DUMMY  ROUTINE  - SETS  VELOCITY  AND  DISPLACEMENT  TO  ZERO  INITIALLY. 

DO  10  1=1 , NOT 
OISP(I  ) =0 . OD 0 
10  VEL( I ) =0.000 
RETURN 
END 


EXTL0059 
EXTL0060 
ext  loobi 
EXTL0062 
EXTL0063 
EXTL0064 
EXTL0065 
EXTL0066 
EXTL0067 
EXTL0066 
EXTL0069 
EXTL0070 
EXTL007 1 
EXTL0072 
EXTL0073 
AEXTL0074 
, EXTL0075 
' EXTL0076 
EXTL0077 
EXTL007B 
EXTL0079 
EXTL0080 
EXTL0081 
EXTL0082 
EXTL0083 
EXTL0084 
EXTLOOBS 
INCDOOOO 
INCD0001 
INCD0002 
INC00003 
INCD0004 
INCD0005 
INCD0006 
1NC00007 
1NCD000Q 
INCD0009 
INCD0010 
INCD001 1 
1NCD001 2 
1NCD0013 
INCD0014 
iKirpnni  5 
INCD001 6 
INCD0017 
INCD001B 
INCD00I9 
1NCD0020 
INCD002 1 
INCD0022 
INCD0023 


I 


u o o o 


t l : i I ] ! ) } i \ ; t 
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Subroutines  for  the  Half-Plate  Model 


SUBROUTINE  EXTL(ELV, ITT,  NP,  NODE,  XGI , YGI , GB 1 ) 

IMPLICIT  R£AL»8(A-H,0-Z) 

C 

C ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

C COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 
C 

C THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

C 

C THIS  VERSION  IS  FOR  THE  EXAMPLE  OF  A RECTANGULAR  PLATE.  CLAMPED 
C ON  THE  TOP  AND  BOTTOM  EDGES.  FREE  ON  THE  OTHER  TWO  EDGES  WITH  AN 
C IMPULSIVE  LOAD  APPLIED  SYMMETRICALLY  TO  ITS  CENTRAL  REGION. 

C 

C ONLY  THE  RIGHT  HALF  OF  THE  PLATE  IS  MODELLED  USING  THE  SYMMETRY 
C CONDITION  ON  THE  LEFT  EDGE.  THIS  IS  THE  SINGLE  SYMMETRY  CASE. 

DIMENSION  ELV(t) ,NP(4,1  ) ,N0DE( 1 ) . XGI 1 1 ) , YG I ( 1 ) ,GB I ( 24 . 24 ) 

C 

C THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  GENERATE  THE  NODAL 
C GENERALIZED  FORCES  CORRESPONDING  TO  PRESCRIBED  EXTERNALLY-APPLIED 
C FORCES  AT  TIME  T SUQ  M (»M*DELTA  T)  AS  DESCRIBED  IN  SUBSECTION  4.6.2 
C ANO  CORRESPONDING  TO  THE  DEVELOPMENT  IN  SUBSECTION  A. 1.3. 4. 

C 


EXTL1 000 
EXTLI001 
c v t 1 002 
EXTL1003 
EXTL1004 
EXTL1005 
EXTL1006 
EXTL1007 
EXTL1008 
EXTL1009 
EXT  L 1 01 0 
EXTL1011 
EXTL1012 
EXTL1013 
EXTL1014 
EXTL1015 
EXTL1016 
EXTL1017 
EXTL1018 
EXT  LI  0 1 9 
EXTL1020 


C DEFINE  SIZE  OF  VECTOR  CONTAINING  UNIT  LOAD  DVER  ALL  DOF  IN  CENTRAL  EXTL1021 
C REGION  OF  PLATE.  WIDTH  OF  LOADED  REGION  IS  .7485  IN,  LENGTH  IS  1.8  IN. EXT  LI °22 
DIMENSION  ALOAD(90)  EXTL1023 

COMMON  /BAS/  HOT ,NET ,MN , NB,NI R REG.MNC  EXTL1024 

COM.MON/TIM/DELTAT,  THIEF,  TIME,  ITIMEF,  INCRT,  IOUT,  I TIME  EXTL1025 

COMMON  /INOUT/  MREAD.MWRITE.MPUNCH  EXTL1026 


EXTL1027 

USE  DATA  STATEMENTS  FOR  VALUES  WHICH  WILL  NOT  CHANGE  THROUGHOUT  RUN.  EXTL1028 


EXTL1029 

DEFINE  TIME  AT  WHICH  LOAD  DROPS  TO  ZERO  AND  MAX  VALUE  OF  IMPULSE.  EXTL1030 


DATA  TEND/25. D-6/,AMAXP/21934. 400/  EXTL1031 

C DEFINE  FIRST  AND  LAST  DOF  IN  LOADED  REGION.  EXTL1032 

DATA  I DOF/73/,  LDOF/162/  EXTL1033 

C DEFINE  VALUES  OF  UNIT  LOAD  AT  EACH  DOF  IN  LOADED  REGION.  EXTL1034 


DATA  A LOAO/2  * 0 00 . . 42 1 03 1 2D-1 , 2G26182D-2, .31577340-2, .19696370-3  EXTL1035 

1 ,2*0  CO, .84206250-1 , .00000000+0,  .6315468D-2,  .00000000+OEXTL1036 

2 ,2*0  DO,  42103120-1 ,-. 26261020-2,  . 3157734D-2 , -. I969637D-3EXTL1 037 

3 ,2+0 .DO, .B4206250-1 . 52523650-2,  .00000000+0,  .00000000+OEXTL1038 

4 ,2*0  DO, . 1 6841250+0,  00000000+0,  .OOOOOQOD+O,  .OOOOOOOD+OEXTL1039 

5 ,2+0  00, .84206250-1 52523650-2,  .00000000+0,  .00000000+0 EXTL1 040 

6 ,2  + 0 00,  84206250-1,  .52523650-2,  .OOOOOOOD+O,  . 00000000  + 0 EXT  LI  041 

7 ,2*0 .DO, . 1GB4I250+0,  .00000000+0.  00000000+0.  .OOOOOOOD+OEXTLI 042 

8 ,2*0.00,  84206250-1 ,-. 52S2355D-2,  .00000000+0,  . OOOfc OOOD+OEXTL1 043 

9 ,2*0  00,  84206250-1,  .52523350-2,  00000000+0,  .OOOOOOOD+OEXTLI044 

A ,2*0.00,  16011250+0,  .00000000+0,  .00000000+0,  .OOOOOOCD+OEXTL1045 

8 ,2  + 0 CO, .84206250-1  ,-. 52523650-2,  OOOOOOOD  + O,  .00000000  + 0 EXT L 1 046 

C ,2*0.00,  42103120-1,  26261 820-2 ,- .31 577 34D-2 ,-. 1 969G37D-3EXT Lt 047 

D .2*0  00,  04206250-1,  00000000+0,-  631546BD-2,  . OOOOOOOD+O EXTL1 048 

E .2*0  DO. .42103120-1 .-.26261820-2, -.31577340-2.  . 19696370-3/ EXTL1 049 


C ZERO  OUT  LOAO  VECTOR.  EXTL1050 

DO  1 1*1, NOT  EXTL1051 

I ELV{ I ) *0  000  EXTL1052 

TYM* (ITT-1)+DELTAT  EXTLI053 

C IF  TINS  THE  5TCr  IS  BEYOND  LAST  TIME  OF  IMPULSE  RETURN  WITH  EXTL1054 

C EXTERNAL  LOAO  VECTOR  SET  TO  ZERO.  EXTL1055 

I F ( TYM  GT.  TENO)  RETURN  EXTLI056 

C INTERPOLATE  TO  F INO  11AGN1TU0C  OF  IMPULSE  AT  THIS  TIME.  EXTL10S7 

AMULT-AMAXP+ (TCND-TYM  )/TEND  EXTL10S8 


o r>  o o o o o 
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C FILL  IN  VALUES  OF  LOAO  IN  CENTRAL  REGION  OF  PLATE. 
DO  2 I = IDOF , LDOF 
d=I-IDOF+1 


EXTL1059 
EXT  LI OGO 
EXTL10G1 


2 ELV( I ) =AMULT  *ALQAO(d) 

C OUTPUT  LOADS  IF  THIS  IS  A REGULAR  PRINTING  CYCLE. 
III=ITIME/INCRT*INCRT-ITIME 
IF(III.NE.O)  RETURN 
NNT=NDT/6 

WRITE(MWRITE.IOO)  TYM  ,(J.d=1,6) 

100  FORMAT (1H0/1H0.10X, 1 TIME = 1 ,016.6,'  SEC.'/IH  , 33 ( 1 H . ) 

+PPLIED  USER  SPECIFIED  LOADING*  ,33(1H.)/1H  .GX.'NODE* 
6 II .3X)/8X,3(10X, ' (LBS) * ), 1 X, 3 ( 7X ,*( IN-LBS )') ) 

11  = 1 

DO  3 1=1 |NNT 
12=6*1 

W R I T E ( MWSITE  . 101  ) 

11=12+1 
3 CONTINUE 

101  FORMAT (6X.I3  ,2X,6D15.6) 

RETURN 
END 

SUBROUTINE  I NCOND( DISP, VEL.NP , NODE, XGI , YGI ) 

IMPLICIT  REAL*8(A-H,0-Z) 


I. (ELV(d), 0*11,12) 


EXTL1062 
EXTL1063 
EXTL1064 
EXTL1065 
EXTL1 066 
EXTL1067 
, 'EXTERNALLY  AEXTLl 068 
, 6 ( 7X , * DOF#  * , EXTL1069 
EXTL1070 
EXTL1071 
EXTL1072 
EXTL1073 
EXTL1074 
EXTL1075 
EXTL1076 
EXTL1077 
EXTL1078 
EXTL1079 
INCD1000 
INf'Oioni 


ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

DIMENSION  DISP(1),VEL(1)  ,NP(4,  1 ) ,NODE( 1 ) , XGI ( 1 ) , YGI ( 1 ) 

COMMON /BAS/NDT .NET ,MN .NB.NIRREG ,MNC 
C 

C THIS  USER-PREPAREO  SUBROUTINE  IS  USED  TO  SPECIFY  THE  INITIAL  (TIME 
C ZERO)  CONDITIONS  ON  THE  PLATE  NODAL  DISPLACEMENT  AND  VELOCITIES. 

C (Q  ZERO)*  AND  (Q  DOT  ZERO)*,  RESPECTIVELY.  REQUIRED  FOR  THE  FINITE- 
C DIFFERENCE  SOLUTION  OF  THE  GOVERNING  EQUATIONS  OF  MOTION  (SEE 
C SUBSECTION  A. 3). 

C 

C DUMMY  ROUTINE  - SETS  VELOCITY  AND  DISPLACEMENT  TO  ZERO  INITIALLY. 
C 

DO  10  1=1 .NDT 
DISP( I )=0.0D0 
10  VEL ( I ) =0 . ODO 
RETURN 
END 


INCD1002 
INCD1003 
INCD1004 
INCD1005 
INCD1006 
INCD1007 
1NCD1008 
INCD1009 
INCD1 0 1 0 
INCD1011 
INCD1012 
INCD1013 
INCD1014 
INCD1015 
INCD1016 
INCD1017 
INCD1018 
INCD1019 
1NCD1020 
I iiCu  1 C 2 # 
INCD1022 
INCD1023 
INCD1024 


I 


I 


I 


I 


I 
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Subroutines  for  the  Quarter-Plate  Model 
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SUBROUTINE  EXTL(ELV.ITT.NP.N0DE.XGI.YGI,GB1) 

IMPLICIT  REAL*B(A-H.0-2) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATE  PROGRAM. 

THIS  VERSION  IS  FOR  THE  EXAMPLE  OF  A RECTANGULAR  PLATE,  CLAMPED 
ON  THE  TOP  ANO  BOTTOM  EDGES.  FREE  ON  THE  OTHER  TWO  EDGES  WITH  AN 
IMPULSIVE  LOAD  APPLIEO  SYMMETRICALLY  TO  ITS  CENTRAL  REGION. 


EXTL2000 
EXTL2001 
fxti inn  2 
EXTL2003 
EXTL2004 
EXTL200S 
EXTL2006 
EXTL2007 
EXTL2008 
EXTL2009 
EXTL2010 
EXTL201 1 

ONLY  THE  UPPER  RIGHT  QUADRANT  IS  MOOELLEO  USING  THE  SYMMETRY  CON0IT1ONEXTL2012 
ONE  BOTH  THE  EOT  TOM  AND  LEFT  EDGES.  THIS  IS  THE  DOUBLE  SYMMETRY  CASE.  EXTL2013 
DIMENSION  ELV(t).NP(4,1) ,NODE( 1 ) , XGI ( 1 ) , YGI ( 1 ) , GDI (24 , 24 ) 


THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  GENERATE  THE  NODAL 
GENERALIZED  FORCES  CORRESPONDING  TO  PRESCRIBED  EXTERNALLY-APPLIED 
FORCCS  AT  TIMC  T SUB  M (*M*DCLTA  T)  AS  DESCRIBED  IN  SUBSECTION  4.6.2 
ANO  CORRESPONDING  TO  THE  DEVELOPMENT  IN  SUBSECTION  A. 1.3. 4. 

DEFINE  SIZE  OF  VECTOR  CONTAINING  UNIT  LOAD  OVER  ALL  DOF  IN  CENTRAL 
REGION  OF  PLATE  WIDTH  OF  LOADED  REGION  IS  .7465  IN. .LENGTH  IS  .9  IN. 
DIMENSION  ALOAO(S4) 

COMMON  /BAS/  NDT .NET ,MN , NB.NIRREG.MNC 
COMMON/TIM/DELTAT . TIMEF, TIME. I TIMEF, INCRT, IOUT, I TIME 
COMMON  /INOUT/  MREAD.MWR 1TE.MPUNCH 

USE  DATA  STATEMENTS  FOR  VALUES  WHICH  WILL  NOT  CHANGE  THROUGHOUT  RUN. 

DEFINE  TIME  AT  WHICH  LOAD  DROPS  TO  ZERO  AND  MAX  VALUE  OF  IMPULSE. 

DATA  TEND/25. D-6/,AMAXP/21934.  4D0/ 

DEFINE  FIRST  ANO  LAST  DOF  IN  LOADED  REGION. 

DATA  I OOF/1 / , L00F/S4/ 

DEFINE  VALUES  OF  UNIT  LOAD  AT  EACH  OOF  IN  LOADED  REGION. 


DATA  AL0AD/2*0  DO , .42103 120-1 , 


,2*0 .DO. .84206250-1 , 

,2*0.00,  42103120-1 .-. 2626 1 B20-2, 
,2*0 .DO, .04206250-1 , . S2523GSD-2, 
,2*0.00,. 16041250*0,  . 00000003*0, 
,2*0 .00, .84206250-1 ,-. 52S23G50-2, 
,2*0  DO.  42103120-1, 


. 2626 1 B2D-2 , .3t577340-2, , 
00000000+0.  .G31S460D-2, 


.31577340-2, 
. 00000  OOD+O , 
OOOOOOOD+O , 
.00000000+0, 


EXTL2014 
EXTL2015 
EXTL2016 
EXTL2017 
EXTL20IB 
EXTL2019 
EXTL2020 
EXTL2021 
EXT| 2072 

EXTL2023 
EXTL2C24 
EXTL2025 
EXTL202G 
EXTL2027 
EXTL202B 
EXTL2029 
EXTL2030 
EXTL2031 
EXTL2032 
EXTL2033 
EXTL2034 
EXTL2035 
1969637D-3  EXTL2036 
. 0000000 D+0EXTL2037 
. I969G37D-3EXTL2033 
. 0000000 D+0EXTL2039 
•OOOOOOOD+O EXT L2040 
. OOOOOOOD+O EXT L2041 


26261820-2,— .31577340-2, -.1969637 D-3EXTL2042 
.2*0  DO,  8420625D-1,  . OOOOOOOD+O,- . 631 5468D-2 , .OOOOOOOD+OEXTL2043 
,2*0. DO. .42103120-1 ,-. 26261 820-2,-. 3157734D-2,  . 1 9696370*3/ EXT L2044 

EXTL204S 


C ZERO  OUT  LOAD  VECTOR. 

DO  1 1*1, NOT 

1 CLV ( I ) *0  ODO 

C IF  THIS  TIME  STEP  IS  BEYOND  LAST  TIME  OF  IMPULSE  RETURN  WITH 
C EXTERNAL  LOAD  VECTOR  SET  TO  ZERO. 

TYM»( I TT-1 I+DELTAT 
IFCj/YM  GT.  TEND)  RETURN 

C INTERPOLATE  TO  FIND  MAGNITUDE  OF  IMPULSE  AT  THIS  TIME. 

AMULT* AMAXP* (TEHO-TYM  )/TEND 
C FILL  !*l  “A  LUES  OF  LOAD  IN  CENTRAL  REGION  OF  PLATE. 

DO  2 1 =IDOF, LDOF 
J*l-ID0F+1 

2 ELV( I ) = AMULT  + AIQA0(J) 

C OUTPUT  LOADS  IF  THIS  IS  A REGULAR  PRINTING  CYCLE. 


EXTL2046 
EXT  L2047 
EXTL2048 
EXTL2049 
EXTL2050 
EXTL2051 
EXTL2052 
EXT  L2053 
EXTL2054 
EXTL2055 
EXTL2056 
EXTL2057 
EXTL2058 


oooooooo  nooooo 


rnut 


1 1 1 = I T IME/INCRT*INCRT-ITIME 
I F ( 1 1 1 .NE.O)  RETURN 
NNT =ND  T/6 

WR I T E ( MWR I T E , 1 00 ) TYM  ,(J,d=1,6) 

100  FORMAT ( 1H0/1  H0.10X , 'TIME= 1 ,016 .6, 1 SEC.'/1H  ,33( 1H. ), 1 EXTERNALLY 
4PPLIED  USER  SPECIFIED  LOADING'  ,33( 1H. )/1H  , 6X , ' NODE ' , 6 (7X , ‘ DOF# 1 , 
& II ,3X)/8X,3(10X, ' (LBS) 1 ) ,1X,3 (7X,‘ (IN-LBS) ' )) 

11=1 

DO  3 1=1 ,NNT 
12=6*1 

WRITE(  Ml&RITE  , 101 ) I , ( ELV  (U)  , J=  1 1 , 12 ) 

11=12+1 
3 CONTINUE 

101  FORMAT (6X,I3,2X,6D15.6) 

RETURN 

END 

SUBROUTINE  I NCOND( DISP, V EL , NP , NODE , XGI , YGI ) 

IMPLICIT  REA  L*8(A-H,0-Z) 

ASRL  TR  154-14 ORIGINAL  REPORT  VERSION  OF  PROGRAM 

COPYRIGHT  (C)  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  1980 

THIS  SUBROUTINE  IS  USED  EXCLUSIVELY  BY  THE  PLATF  PROGRAM 


EXTL2059 
EXTL2060 
EXT  L20C1 
EXTL2062 
AEXTL2063 
EXTL2064 
EXTL2065 
EXTL2066 
EXTL2067 
EXTL2068 
EXTL2069 
EXTL2070 
EXTL2071 
EXTL2072 
EXTL2073 
EXTL2074 
INCD2000 
INCD2001 
INCD2002 
INCD2003 
INCD2004 
INCD2005 
INfflPnOfi 


DIMENSION  DISP(I) ,VEL(1)  ,NP(4, 1 ) ,NODE( 1 ) , XGI ( 1 ) , YGI ( 1 ) 

COMMON /BAS/NDT, NET ,MN,NB .NIRREG.MNC 

THIS  USER-PREPARED  SUBROUTINE  IS  USED  TO  SPECIFY  THE  INITIAL  (TIME 
ZERO)  CONDITIONS  ON  THE  PLATE  NODAL  DISPLACEMENT  AND  VELOCITIES, 

(0  ZERO)*  AND  (0  DOT  ZERO)*,  RESPECTIVELY,  REQUIRED  FOR  THE  FINITE- 
DIFFERENCE  SOLUTION  OF  THE  GOVERNING  EQUATIONS  OF  MOTION  (SEE 
SUBSECTION  A. 3). 

DUMMY  ROUTINE  - SETS  VELOCITY  AND  DISPLACEMENT  TO  ZERO  INITIALLY. 
DO  10  1=1 ,NDT 
DI SP( I ) = 0.0D0 
10  VEL(I)=0.0D0 

RETURN 
END 


INCD2007 
INCD2008 
INC02009 
INCD20 1 0 
INCD201 1 
1NCD2012 
INCD201 3 
INCD2014 
INCD20 1 5 
INCD20 1 6 
INCD2017 
INCD201 8 
INCD2019 
INCD2020 
INCD2021 
INCD2022 


i 


\ 


I 


I 


i 


The  FORTRAN  listing  of  the  main  program  for  the  full  plate  example  is 
given  on  pages  175  and  176.  For  the  half  plate  and  the  quarter  plate 
models,  the  associated  main  programs  are  the  same  except  for  the  following 
DIMENSION  statement: 


DIMENS  ION  DEED (390) ,DIS( 390) ,DISP(390),DISM1 (390 ) , DISM2 ( 390 ) . MAIN0065 
2 FIN (390) , FLVA(390 ) , FLVM(  390) , F LVP{ 390 ) ,ELV(390) , VEL(390) , ICOl ( 390 ) MAIN0066 
3, INUM(  390 ), K RCW( 390 ) ,NDEX( 390 ) ,ST0R(390) , STF( 1 4037 ), AM ASS(  1 4037 ) , MAIN0067 
4NP(4.48) ,N0DE( 1 152) ,TAUSS(48, 1 2 , 9 ) , T AUSE ( 4 8 , 1 2 , 9 ) , TAUE E ( 48 , 1 2 , 9) . MAIN0068 
5EPSSI ( 9,48) , EPSSQ (9,48) , EPEEI( 9,48) , SPEED (9, 48) , EPSEI ( 9,48) , MAIN0069 
6EPSE0 ( 9.48) , NBC (60) ,BC( 60) ,RFM( 60,60 ) . I LAST (60) , UCF1 ( 6 0 ) , UCF2 ( 60 ) . MAIN0070 
7XG(65)  , YG(65  ) ,ZG(65) ,XGI (65) , YGI (65) ,TAGSS( 1 , 1 2 , 3 ) , LNX S ( 1 ) , MAIN0071 
8XSPR0P (7,1 ) , MATXS ( 1 ) ,TSGEE(1 , 1 2,3) ,LNYS(1 ) ,YSPR0P(7,1 ) ,MATYS( 1 ) , MAIN0072 
9LNRS( 1 ) . ISRS ( 1 ) ,SC(5, 1 ) , NVSA(S  ),NC0N(4,6  ) MAIN0073 


For  the  half-plate  example,  replace  the  original  above  DIMENSION 


statement  with  this  DIMENSION  statement: 


DIMENSION  DELD(234) ,DIS( 234) ,0ISP(234) ,DISM1 (234) ,DISM2(234) , MAIN1067 
2 F LN ( 23  4 ) , FLVA(234)  , FLVM(  234) , F LVP ( 234 ) , ELV ( 234 ) , VEL( 23 4 ) , I COL ( 234 ) MA INI  068 
3 , I NUM ( 234) , K ROVJ ( 2 3 4 ) ,N0EX(234)  ,ST0R(234) ,STF(5643) , AMA SS( 5643 ) , MA INI  069 
4NP (4,24) .NODE (576) , TAUSS (24, 12 ,9) , TAUSE(24 ,12,9) , TAUEE ( 24 , 1 2 , 9 ) , MAIN 1070 
5Er)S3I  ( 9,24)  , EPSSO ( 9 , 24 ) . EPEEI( 9,24) ,EPEE0(9,24) , EPSEI ( 9,24) , MAIN1071 
6EPSEO ( 9.24) , N3C(75 ) , 8C( 75 ) , RFM ( 69 , 48 ) , HAST (69) , UCF1 (69) , UCF2 ( 69)  , MAIN1  072 
7XG(39) ,YG(39 ) , ZG( 39 ) ,XGI (39) ,YGI(39) ,TAGSS( 1 , 1 2 , 3 ) , LNX S ( 1 ) , MAIN1073 
8XSPR0P (7,1 ) , MATXS ( 1 ) , TSGEE ( 1 , 1 2 . 3 ) , INYS(1 ) ,YSPR0P(7,1 ) , MAT YS ( 1 ) , MA INI  074 
SLNRS( 1 ) , ISRS ( 1 ) ,SC(5, 1 ) ,NVSA(6  ),NC0N(4,  6)  MAIN1075 


For  the  quarter-plate  example,  replace  the  original  DIMENSION  statement 
with  this  DIMENSION  statement: 


DIMENS  ION  DELD( 126) ,DIS( 126) ,0  ISP( 126),DISM1 (126) ,DISM2(126) , MAIN2065 
2FtN(126) ,FLVA( 126) ,FIVM( 1 25 ) , F LVP( 1 26 ) , ELV ( 1 26) , VEl( 1 2 6 ) , ICOL ( 1 26 ) MA IN2066 
3,  INUM(  126) ,KR0W( 126) ,NDEX( 126)  , ST0R ( 1 26) , S T F ( 288 9 ) .AMASS (2889) , MAIN2067 
4NP(4, 1 2) ,N0DE(288) , TAUSS ( 1 2 , 1 2 , 9 ) , TAUSE ( 1 2 , 1 2 , 9 ) , TAUEE ( 1 2 , 1 2 . 9 ) , MAIN2068 
5EPSSI (9,12), EPSSO (9,12) , EPEEI ( 9 , 1 2) , EPEEQ( 9 , 1 2 ) , EPSEI ( 9 , 1 2 ) , MAIN2069 
6EPSE0 ( 9,24) , NBC (75) ,80(75) , RFM ( 44 , 48 ) , I LAST ( 44 ) , UCF1 ( 44 ) , UCF2 (44 ) , MAIN2070 
7XG(21 ) ,YG(21 ) ,ZG(21 ) ,XGI (21 ) , YGI (21 ) , TAGSS ( 1 , 1 2 , 3 ) , LNX S ( 1 ) , MAIN2071 
8XSPR0P ( 7 , 1 ) , MATXS ( 1 ) ,TSGEE(1 ,1 2,3) ,LNYS(1 ) ,YSPROP(7,1 ) ,MATYS(1).  MAIN2072 
9LNRS( 1 ),ISRS(1),SC(5,1),NVSA(6  ),NC0N(4,  6)  MAIN2073 
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7.2  Modeling  and  Input  Data 


For  illustrative  purposes,  three  different  structural  models  of  the 
narrow-plate  specimen  depicted  in  Fig.  16  are  described  in  the  following. 
First,  the  entire  plate  is  modeled  by  48  LLC  plate  elements  as  shown  in 
Fig.  17.  Next,  since  symmetry  exists  about  the  y axis,  the  half-plate  is 
modeled  with  the  same  basic  finite-element  breakdown,  with  symmetry  about 
the  y axis  invoked;  this  results  in  a 24-element  model  (Fig.  17) . Finally, 
advantage  is  taken  of  the  fact  that  there  are,  in  fact,  two  axes  of  symmetry; 
hence,  the  third  model  is  the  12-element  quarter-plate  model  shown  also  in 
Fig.  17.  For  each  of  these  three  models,  the  selected  numbering  of  elements 
and  nodes  is  shown  in  Fig.  17. 

Pilot  calculations  show  that  the  largest  natural  frequency  m the 

linear-system  mathematical  model  of  the  whole  plate  is  oj  = 3,052,755 

rad/sec.  Hence,  if  the  timewise  central-difference  model  were  used  to 

predict  the  linear  transient  response  of  this  model,  a At  not  exceeding 

At  = 2/oJmax  = 0.655  ysec  would  be  required.  However,  since  the  PLATE  1 

program  employs  the  Houbolt  operator,  a reasonable  choice  is  At  = 2.5  ysec, 

as  discussed  in  Subsection  4.8.2;  reasonable  behavior  for  At  S 6[0.8(2/co  )] 

max 

= 3.14  ysec  would  be  expected. 

Solution  output  data  will  be  requested  at  the  end  of  every  10  time 
steps  or  cycles;  however,  for  conciseness  these  data  will  be  included  here 
only  for  the  end  of  time  cycles  (or  time  steps)  0,  1,  2,  10,  20,  140,  and 
150  (last) . The  desired  solution  output  data  are  indicated  as  the  following 
print  options  (Card  51  of  Subsection  4.2); 

IOPl  Displacements  and  current  (global)  X,Y,Z  coordinates  for 

each  node. 

I0P2  Strain  (Green)  components  as  well  as  principal  (tensile) 

strain  and  direction  at  the  upper  and  lower  surface 
evaluated  at  the  centroid  of  each  element. 

IOP4  Strain  (Green)  components,  principal  (tensile)  strain  and 

direction,  and  elongations  (in  user-specified  directions) 
at  additional  spanwise  locations  (evaluated  at  both  upper 
and  lower  surfaces  at  each  spanwise  location)  as  specified 
by  the  user. 
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I0P5  Reaction  forces  at  all  nodes  where  displacement  constraint 

conditions  have  been  imposed. 

I0P7  System  energies  (i.e.,  work  input  to  structure,  structure 

kinetic  energy,  structure  elastic  energy,  structure  plastic 
energy,  and  energy  stored  in  elastic  restoring  springs) . 

I0P8  Strain  (Green)  components,  principal  (tensile)  strain  and 

direction  at  the  upper  and  lower  plate  surfaces  at  user- 
specified  nodes  (by  nodal  averaging) . 

Print  options  I0P3  and  I0P6  are  not  desired;  hence,  set  these  quantities 
equal  to  0 on  Card  51  (of  Subsection  4.2).  Summarized  concisely  as  follows 
are  the  affected  element  or  node  numbers  for  each  of  the  three  finite- 
element  models  (see  Fig.  17) : 


Output 

Full-Plate 

Half-Plate 

Quarter-Plate 

Option 

Model 

Model 

Model 

IOPl 

All  Nodes 

All  Nodes 

All  Nodes 

I0P2 

All  Elements 

All  Elements 

All  Elements 

I0P4 

Elements  2,6,10,14, 

Elements  1,3, 5, 7, 

Elements  1,5,7, 

26,34,38,42  and  46 

11,17,19,21  and  23 

9 and  11 

I0P5 

Degrees  of  Freedom 

Degrees  of  Freedom 

Degrees  of  Freedom 

1 through  30 

1 through  19 

1,2,4,5,6,8,11,12, 

inclusive  and  361 

inclusive,  22,24, 

14,17,18,19,22,24, 

through  390 

37,40,42,55,58,60, 

37,40,42,55,58,60, 

inclusive 

73,76,78,91,94,96, 

73,76,78,91,94,96, 

109,112,114,127, 

and  109  through 

130,132,145,148, 

126  inclusive 

150,163,166,168, 

181,184,186,199, 

202,204,  and  217 

through  234 

inclusive 

+See  Fig.  17c. 
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Full-Plate 

Model 


Half-Plate 

Model 


Quarter-Plate 

Model 


I0P7 

I0P8 


Entire  Structure 

Nodes  33,35,38,40, 
48,50 


Entire  Structure 

Nodes  19,21,22,24, 
28,30 


Entire  Structure 

Nodes  1,3,4,6,10, 
12 


The  associated  input  data  on  each  card  are  described  for  the  full-plate,  the 
half-plate,  and  the  quarter-plate  model  m Subsections  7.2.1,  7.2.2,  and 
7.2.3,  respectively.  However,  solution  output  data  are  presented  in 
Subsection  7.3  only  for  the  full-plate  model. 


7.2,1  Input  Data  for  the  Full-Plate  Model 

The  values  to  be  punched  on  the  data  cards  are  as  follows  (see  Fig.  17a) 


Card 

1 

8110 

MAXEL 

= 

48 

MNSL 

= 

3 

MNXST 

= 

1+ 

MNYST 

= 

1+ 

NBE 

= 

1+ 

MB  WE 

= 

1+ 

MNC 

= 

14037 

Card 

2 

2014 

IMESH 

= 

0 

IMASS 

= 

2 

IMCONT 

= 

0 

IPUNCH 

= 

0 

Card 

3 

2014 

NEAD 

= 

4 

NECD 

= 

12 

Card  4a 

EPAN  = 0 . ID 8 

ANUP  = . 3333333DO 


5D16.7 


As  noted  on  page  82,  these  quantities  must  be  set  equal  to  1 in  accordance 
with  FORTRAN  rules  because  they  are  used  as  dimensioning  variables;  they 
must  not  be  set  equal  to  zero. 
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DENSP 

= 

0.25384D-3 

TH 

= 

0.102D0 

XDIST 

= 

1.4970D0 

Card 

4b 

5D16.7 

YDIST 

= 

8.0D0 

ZPOS 

= 

0.0D0 

Card 

5 

5D16.7 

XG(1) 

= 

0.0D0 

XG{2) 

= 

. 37425DO 

XG(3) 

= 

. 7485D0 

XG(4) 

= 

1.12275D0 

XG(5) 

= 

1.4970D0 

Card 

6a 

5D16.7 

YG(1) 

= 

0.0D0 

YG{2) 

= 

. 775D0 

YG(3) 

= 

1.55D0 

YG  (4) 

= 

2.325DO 

YG  (5) 

= 

3.  IDO 

Card 

6b 

5D16.7 

YG(6) 

= 

3.55D0 

YG(7) 

= 

4.0D0 

YG(8) 

= 

4.45D0 

YG  (9) 

= 

4.9D0 

YG(10) 

= 

5.675DO 

Card 

6c 

5D16.7 

YG(ll) 

= 

6.45D0 

YG(12) 

= 

7.225DO 

YG ( 13) 

= 

8.0DO 

Card 

7 

2014 

NCSB (1) 

= 

2 

NCSB ( 2) 

= 

0 

NCSB (3) 

= 

2 

NCSB (4) 

= 

0 
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Card 

8 

2014 

NAST 

= 0 

NCST 

= 0 

Card 

25* 

2014 

NAXS 

= 0 

NAYS 

= 0 

Card 

* 

44 

2014 

NMAT 

= 1 

Card 

45 

2014 

NSUB 

= 3 

Card 

46 

5D16.7 

SIG(l) 

= 44.2D3 

SIG (2) 

= 49.2D3 

SIG(3) 

= 76.4D3 

Card 

47 

5D16.7 

EPS (1) 

= . 00442D0 

EPS (2) 

= . 0760D0 

EPS (3) 

= 0.615D0 

Card 

48 

5D16 . 7 

DSR(l) 

= 6500. DO 

PSR(l) 

= 4.0D0 

Card 

49 

2014 

ITIMEF 

= 150 

INCRT 

= 1 

I OUT 

= 1 

Card 

50 

5D16.7 

DELTAT 

= 2.5D-06 

TIMEF 

= 3.75D-04 

Card 

51 

2014 

I0P1 

= 1 

IOP2 

= 1 

* 

For 

omitted 

cards,  see  page  251. 
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I0P3 

I0P4 

I0P5 

I0P6 

I0P7 

I OP  8 
* 

Card  54 

NASP 

Card  55a 

LNASP(l)  = 
SLASP(l)  = 
ELASP(l)  = 

Card  55b 

LNASP (2)  = 
SLASP (2)  = 
ELASP (2)  = 

Card  55c 

LNASP (3)  = 
SLASP (3)  = 
ELASP (3)  = 

Card  55d 

LNASP (4)  = 
SLASP (4)  = 
ELASP (4)  = 

Card  55e 

LNASP (5)  = 
SLASP (5)  = 
ELASP (5)  = 

Card  55 f 

LNASP (6)  = 
SLASP (6)  = 
ELASP (6)  = 

* 

For  omitted  cai 


0 

1 

1 

0 

1 

1 

11 

2 

l.ODO 

0.0D0 

2 

l.ODO 

. 2580645D0 
6 

l.ODO 
. 2903226D0 

10 

l.ODO 

. 3225806D0 
14 

l.ODO 

. 3548387D0 
26 

l.ODO 

0.0D0 

3s,  see  page  251. 


2014 

14, 2D16.7 


14, 2D16.7 


I4,2D16.7 


14 , 2D16 . 7 


14, 2D16. 7 


I4,2D16.7 
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I4,2D16.7 


Card  55g 

LNASP (7) 
SLASP (7) 
ELASP (7) 

Card  55h 

LNASP (8) 
SLASP (8) 
ELASP (8) 

Card  55 i 

LNASP (9) 
SLASP (9) 
ELASP (9) 

Card  55] 

LNASP (10) 
SLASP (10) 
ELASP (10) 


= 34 
= 1.0D0 
= . 6451613D0 

= 38 
= l.ODO 
= . 6774194D0 

= 42 
= l.ODO 
= . 7096774D0 

= 46 
= l.ODO 
= . 7419355D0 


Card  55k 

LNASP (11)  = 46 
SLASP (11)  = l.ODO 
ELASP (11)  = l.ODO 


Card 

56 

NASPE 

= 

0 

Card 

61* 

NNSA 

= 

6 

Card 

62 

NVSA(l) 

= 

33 

NVSA(2) 

= 

35 

NVSA(3) 

= 

38 

NVSA  (4) 

= 

40 

NVSA (5) 

= 

48 

NVSA (6) 

= 

50 

Card 

63 

NELES 

= 

0 

* 

For  omitted  cards,  see  page  251. 


14, 2D16.7 


14 , 2D16 . 7 


I4,2D16.7 


14, 2D16. 7 


2014 

2014 

2014 


2014 
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Cards  9 through  16  are  omitted  because  NAST  on  Card  8 is  zero  (that  is,  there 
are  no  complete  X-direction  stiffeners) . 

Cards  17  through  24  are  omitted  because  NCST  on  Card  8 is  zero  (that  is,  there 
are  no  complete  Y-direction  stiffeners) - 

Caxds  26  through  34  are  omitted  because  NAXS  on  Card  24  is  zero  (that  is,  there 
are  no  additional  X-direction  stiffeners) . 

Cards  35  through  43  are  omitted  because  NAYS  on  Card  24  is  zero  (that  is,  there 
are  no  additional  Y-direction  stiffeners) . 

Cards  52  and  53  are  omitted  because  I0P3  = 3 on  Card  51. 

Card  57  is  omitted  because  NASPE  = 0 on  Card  55.  Cards  58  through  60  are 
omitted  because  I0P5  = 0 on  Card  51. 

The  following  is  the  complete  input  deck  for  this  example: 


48  3 1 


0 

2 

0 

0 

4 

12 

0. 

103 

.333333300 

3 

000 

0.000 

0. 

000 

.3742500 

0 

000 

.775000 

3.5500 

4.000 

6.4500 

7.225D0 

2 

0 

2 

0 

0 

0 

0 

1 

0 

3 

44. 

203 

49.203 

. 

0044200 

.076000 

6500 

.00 

4.000 

150 

1 

1 

2 

.5 

0 

-06 

3.750-04 

1 

1 

0 

1 1 

0 1 1 

1 1 

2 

1 .000 

0 000 

2 

1 . ODO 

.258064500 

6 

1 000 

.290322600 

1 0 

1 ODO 

.322580600 

14 

1 .000 

.354838700 

26 

1 000 

0.000 

34 

1 . ODO 

.645161300 

33 

1 .ODO 

.677419400 

42 

1 - ODO 

.709677400 

46 

1 .000 

.741935500 

46 

1 .000 

1.000 

0 

6 

33 

35 

38 

40  48 

50 

0 

1 


.253840-3 

.748500 
1 .5500 
4.45D0 
8.000 


76.403 

0.61500 


1 14037 


.10200  1.4970D0 


1.1227500  1.497000 

2.32500  3.100 

4.900  5.67500 


251 


7.2.2  Input  Data  for  the  Half-Plate  Model 

The  values  to  be  punched  on  the  data  cards  are  as  follows  (see  Pig.  17b) 


Card 

1 

8110 

MAXEL 

= 

24 

MNSL 

3 

MNXST 

= 

1 

MNYST 

= 

1 

NBE 

= 

1 

MB  WE 

= 

1 

MNC 

= 

5643 

Card 

2 

2014 

IMESH 

= 

0 

IMASS 

= 

2 

IMCONT 

= 

0 

IPUNCH 

= 

0 

Card 

3 

2014 

NEAD 

= 

2 

NECD 

= 

12 

Card 

4a 

5D16.7 

EPAN 

= 

0.1D8 

ANUP 

= 

. 3333333DO 

DENSP 

= 

0. 25384D-3 

TH 

= 

0.102DO 

XDIST 

= 

1.4970D0 

Card 

4b 

5D16.7 

YD  I ST 

= 

8.0D0 

ZPOS 

= 

0.0D0 

Card 

5 

5D16.7 

XG(1) 

= 

0.0D0 

XG(2) 

= 

.37425D0 

XG(3) 

= 

. 7485D0 

* 


Certain  input  cards  are  omitted;  see  page  251. 
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Card  6a 


5D16.7 


YG(1) 

= 

O.ODO 

YG(2) 

= 

.775DO 

YG(3) 

= 

1.55DO 

YG(4) 

= 

2.325DO 

YG  (5) 

= 

3.  IDO 

Card  6b 

5D16 

YG(6) 

= 

3.55DO 

YG  (7) 

= 

4.0D0 

YG(8) 

= 

4.45D0 

YG(9) 

= 

4.9D0 

YG{10) 

= 

5.675DO 

Card  6c 

5D16 

YG(ll) 

= 

6.45DO 

YG(12) 

= 

7.225DO 

YG (13) 

= 

3.0D0 

Card  7 

2014 

NCSB(l) 

= 

2 

NCSB (2) 

= 

0 

NCSB (3) 

= 

2 

NCSB (4) 

= 

1 

Card  8 

2014 

NAST 

= 

0 

NCST 

= 

0 

Card  25 

2014 

NAYS 

= 

0 

NAYS 

= 

0 

Card  44 

2014 

NMAT 

= 

1 

Card  45 

2014 

NSUB 

= 

3 
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Card  46 


5D16.7 


SIG(l) 

SIG(2) 

SIG(3) 

Card  47 

EPS (1) 
EPS (2) 
EPS (3) 

Card  48 

DSR(l) 

PSR(l) 

Card  49 

ITIMEF 

INCRT 

IOUT 

Card  50 

DELTAT 

TIMEF 

Card  51 

IOP1 

IOP2 

IOP3 

IOP4 

IOP5 

IOP6 

IOP7 

IOP8 

Card  54 

NASP 

Card  55a 

LNASP ( 1) 
SLASP(l) 
ELASP(l) 


44.2D3 
49 . 2D 3 
76.4D3 

. 00442D0 

.0760D0 

0.615D0 

6500. DO 
4.0D0 

150 

1 

1 


2.5D-06 

3.75D-04 

1 

1 

0 

1 

1 

0 

1 

1 

11 

1 

0.0D0 

0.0D0 
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5D16.7 


5D16.7 


2014 


5D16.7 


2014 


2014 

I4,2D16.7 


14, 2D16.7 


Card  55b 

LNASP (2) 
SLASP (2) 
ELASP (2) 

Card  55c 

LNASP ( 3 ) 
SLASP (3) 
ELASP (3) 

Card  55d 

LNASP (4) 
SLASP (4) 
ELASP (4) 

Card  55 e 

LNASP (5) 
SLASP (5) 
ELASP (5) 

Card  55f 

LNASP (6) 
SLASP (6) 
ELASP (6) 

Card  55g 

LNASP (7) 
SLASP (7) 
ELASP (7) 

Card  55h 

LNASP (8) 
SLASP (8) 
ELASP (8) 

Card  55i 

LNASP (9) 
SLASP (9) 
ELASP (9) 


= 1 

= O.ODO 
= .2580645D0 

= 3 

= O.ODO 
= . 2903226DO 

= 5 

= O.ODO 
= . 3225806D0 

= 7 

= O.ODO 
= . 3548387D0 

= 11 
= O.ODO 
= l.ODO 

= 17 
= O.ODO 
= . 6451613D0 

= 19 
= O.ODO 
= . 6774194DO 

= 21 
= O.ODO 
= . 7096774D0 


I4,2D16.7 


I4,2D16.7 


14, 2D16 . 7 


14, 2D16.7 


14, 2D16 . 7 


14, 2D16. 7 


14, 2D16. 7 
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Card  55 j 

LNASP(IO) 

SLASP(IO) 

ELASP(IO) 

Card  55k 

LNASP(ll) 

SLASP(ll) 

ELASP(ll) 

Card  56 

NASPE 

Card  61 

NNSA 

Card  62 

NVSA{1) 
NVSA(2) 
NVSA ( 3) 
NVSA(4) 
NVSA (5) 
NVSA (6) 

Card  63 

NELES 


= 23 
= O.ODO 
= . 7419355DO 

= 23 
= O.ODO 
= l.ODO 

= 0 

= 6 

= 19 
= 21 
= 22 
= 24 
= 28 
= 30 

= 0 


14, 2D16.7 


14, 2D16.7 


2014 

2014 

2014 


2014 
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The  following  is  the  complete  input  deck  for  this  example 


24 

3 

1 

1 1 

1 5643 

0 

2 

0 

0 

2 

12 

0. 

108 

. 3333333D0 

.253840-3 

. 102D0 

.7485000 

8. 

000 

0 . ODO 

0. 

0D0 

. 37425D0 

.748500 

0. 

ODO 

. 7750D0 

1.5500 

2.325D0 

3.  IDO 

3.5 

5D0 

4.  ODO 

4 . 45  DO 

4.900 

5.675D0 

6.45D0 

7.225D0 

8. ODO 

2 

0 

2 

1 

0 

0 

0 

1 

0 

3 

44 

2D3 

49.2D3 

76.403 

0 044 

200 

.076000 

0.61500 

6500 

.00 

4. ODO 

150 

1 

1 

2 , 

. 5 

D 

-06 

3.750-04 

1 

1 

0 

1 

1 

0 1 1 

1 1 

1 

ODO 

0 . ODO 

1 

000 

.253064500 

3 

ODO 

.290322600 

5 

ODO 

. 3225306D0 

7 

ODO 

. 354S337D0 

1 1 

ODO 

1 ODO 

17 

ODO 

645 1 6 1 3 DO 

19 

ODO 

.677419400 

21 

ODO 

. 7096774D0 

23 

ODO 

.741 93S5D0 

23 

. 

ODO 

1 .000 

0 

6 

19 

21 

22 

24 

28 

30 

0 
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7.2.3  Input  Data  for  the  Quarter-Plate  Model* 

The  values  to  be  punched  on  the  data  cards  are  as  follows  (see  Fig.  17c) 


Card 

1 

8110 

MAXEL 

= 

12 

MNSL 

3 

MNXST 

= 

1 

MNYST 

= 

1 

NBE 

= 

1 

MB  WE 

= 

1 

MNC 

= 

2889 

Card 

2 

2014 

IMESH 

= 

0 

IMASS 

= 

2 

IMCONT 

= 

0 

I PUNCH 

S3 

0 

Card 

3 

2014 

NEAD 

= 

2 

NECD 

= 

6 

Card 

4a 

5D16.7 

EPAN 

= 

0.1D8 

ANUP 

= 

•3333333D0 

DENSP 

= 

0. 25384D-3 

TH 

= 

0.102D0 

XDIST 

= 

. 74850D0 

Card 

4b 

5D16.7 

YDIST 

= 

4.0D0 

ZPOS 

= 

0.0D0 

Card 

5 

5D16.7 

XG(1) 

= 

0.0D0 

XG  (2) 

= 

. 37425D0 

XG(3) 

= 

. 7485D0 

* 


Certain  input  cards  are  omitted;  see  page  251. 
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— 

Card  6a 

5D16.7 

YG(1) 

= O.ODO 

- 

YG(2) 

= . 4500D0 

YG(3) 

= 0.90D0 

, 

YG(4) 

= 1.675D0 

YG(5) 

= 2.45DO 

Card  6b 

5D16.7 

YG  (6) 

= 3.225D0 

YG  (7) 

= 4.0D0 

Card  7 

2014 

NCSB(l) 

= 1 

NCSB (2) 

= 0 

NCSB ( 3 ) 

= 2 

■ 

NCSB (4) 

= 1 

Card  8 

2014 

1-  • 

NAST 

= 0 

NCST 

= 0 

— 

Card  25 

2014 

NAXS 

= 0 

— 

NAYS 

= o 

Card  44 

2014 

— 

NMAT 

= 1 

Card  45 

2014 

— 

NSUB 

= 3 

Card  46 

5D16.7 

— 

SIG(l) 

= 44.2D3 

SIG(2) 

= 49.2D3 

— 

SIG(3) 

= 76.4D3 

Card  47 

5D16.7 

— 

EPS (1) 

= . 00442D0 

EPS (2) 

= . 0760D0 

EPS (3) 

= 0.615D0 

- 
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5D16.7 


Card  48 

DSR(l) 

PSR(l) 

Card  49 

ITIMEF 

INCRT 

IOUT 

Card  50 

DELTAT 

TIMEF 

Card  51 

IOP1 

IOP2 

IOP3 

IOP4 

IOP5 

IOP6 

IOP7 

IOP8 

Card  54 

NASP 

Card  55a 

LNASP (1) 
SLASP(l) 
ELASP(l) 

Card  55b 

LNASP (2) 
SLASP (2) 
ELASP (2) 

Card  55c 

LNASP (3) 
SLASP (3) 
ELASP (3) 


= 6500. DO 
= 4.0D0 

= 150 
= 1 
= 1 

= 2.5D-06 
= 3.75D-04 

= 1 
= 1 
= 0 
= 1 
= 1 
= 0 
= 1 
= 1 

= 6 

= 1 

= 0.0D0 
= 0.0D0 

= 5 

= 0.0D0 
= . 6451613D0 

= 7 

= 0.0D0 
= . 6774194D0 


2014 


5D16.7 


2014 


2014 


14, 2D16 . 7 


14 , 2D16 . 7 


14, 2D16 . 7 
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14, 2D16.7 


Card  55d 

LNASP (4) 
SLASP (4) 
ELASP (4) 

Card  55e 

LNASP (5) 
SLASP (5) 
ELASP (5) 

Card  55 f 

LNASP (6) 
SLASP (6) 
ELASP (6) 

Card  56 

NAS  PE 

Card  61 

NNSA 

Card  62 

NVSA(l) 
NVSA  (2) 
NVSA(3) 
NVSA  (4) 
NVSA ( 5 ) 
NVSA  (6) 

Card  63 

NELES 


= 9 

= O.ODO 
= . 7096774D0 

= 11 
= O.ODO 
= . 7419355D0 

= 11 
= O.ODO 
= 1.0D0 

= 0 

= 6 

= 1 
= 3 
= 4 
= 6 
= 10 
= 12 

= 0 


I4,2D16.7 


14, 2D16. 7 


2014 


2014 


2014 


2014 
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cno  -*■  -*  to  in 


The  following  is  the  complete  input  deck  for  this  example 


12 

2 0 0 
6 

3 

1 

1 1 

1 2889 

0.103 

.333333300 

.253840-3 

. 10200 

.7485000 

4.0D0 

0.0D0 

0.CD0 

. 37425D0 

.748500 

0.000 

.450000 

0.9000 

1 .67500 

2.4500 

3.22500 

4.0DO 

1021 

o 0 

o o 


44.203  49.2D3  76.4D3 

. 0 0442D0  .076000  0.61500 

6500.00  4.000 

150  1 1 

2.5  0-06  3.750-04 

110  110  11 
6 

1 0 000  0 000 
0.000  . 6451 61 3 DO 

0.000  .677419400 

0.000  .709677400 

0.000  .741935500 

0.000  1.000 


1 3 4 6 10  12 

0 
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7.3  Solution  Output  Data  for  the  Full-Plate  Model 


The  following  is  the  output  for  150  cycles  (375  usee)  of  response  of 
the  transiently- loaded  narrow  plate  specimen  depicted  in  Pig.  16,  for  the 
full-plate  finite-element  model  shown  in  Fig.  17. 

The  first  segment  of  the  output  describes  the  initial  geometry,  material 
properties  and  boundary  conditions  of  the  plate  as  well  as  element  numbers 
and  global  node  numbers  of  the  finite  elements  used  to  model  the  structure. 
Noted  also  are  the  constrained  degrees  of  freedom  and  the  properties  of  each 
sublayer  of  the  mechanical-sublayer  material  model:  (a)  stress,  (b)  strain, 

(c)  yield  stress,  and  (d)  weighting  factor. 

The  next  segment  describes  the  output  to  be  given  at  every  regular 
printout  cycle.  This  output  consists  of  (a)  the  generalized  displacements 
of  and  the  global  location  of  each  nodal  station,  (b)  the  reaction  forces 
at  each  constrained  node,  (c)  the  strain  components  as  well  as  the  principal 
(tensile)  strain  and  direction  at  the  centroid  of  each  element,  (d)  strain 
components  as  well  as  principal  strains  and  associated  direction  at  6 nodes 
as  described,  (e)  strain  components,  elongations  in  specified  directions, 
and  principal  strain  and  associated  direction  at  each  of  11  identified 
"additional  locations",  and  (f)  a tabulation  of  the  various  energies  of  the 
system.  Also  given  are  the  generalized  nodal  forces  from  the  externally- 
applied  loading  whenever  those  forces  are  non-zero. 

In  the  interest  of  conciseness,  only  a portion  of  the  called-for  output 
is  shown.  Included  are:  (1)  all  input-verification  information  and  (2) 

scheduled  output  at  the  end  of  time  cycles  0,  1,  2,  10,  20,  140,  and  150  (last)* 
This  output  listing  is  intended  for  use  in  verifying  the  (successful)  adapta- 
tion of  the  PLATE  1 program  to  a user's  computing  facility. 


An  auxiliary  comrmter  run  was  made  with  printout  every  cycle  to  give  the 
output  shown  at  the  end  of  time  steos  1 and  2. 
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PLATE  1 COMPUTER  COOE  (SMALL  STRAIN  THEORY)  l USER  INPUT  FOR  ARRAY  DIMENSIONS 
MAXEL  • 43 

MNSL  a 3 

MNXST  ■ 1 

MNYST  « 1 

NBE  * GO 

MBWE  » 60 

MNC  « 14037 

AUTO-GENERATED  FINITE-ELEMENT  MESH  INFORMATION  FOR  STIFFENED  OR  UNSTIFFENEO  FLAT-PLATE  PROBLEM 


X-LENGTH (IN) 

* 

0 . 1 497QO0D+0 1 

Y-LCNGTH ( IN) 

a 

0 .BQOOOOOD+OI 

2-P0SIT10N( IN) 

a 

0.0 

THICKNESS(IN) 

a 

0 . 1020000D+00 

YOUNGS  MODULUS (PSI) 

a 

0 .10000000+08 

POISSONS  RATIO 

a 

0.33333330+00 

DENSITY) LB-SEC  **2/IN 

* *4  ) 

a 

0.2538400D-03 

NO  CF  ELCM 

IN  X-DI RECTION 

a 

4 

NO  OF  ELE'1 

IN  Y-DI RECTION 

a 

12 

NO  OF  D 0 F 

/ EL  EM 

a 

24 

total  no  of 

ELEMENTS 

a 

48 

TOTAL  110  OF 

DOF 

a 

390 

NO  OF  X-OIR 

STIFFENERS 

a 

0 

NO  OF  Y-OIR 

STIFFENERS 

a 

0 

THE  CLOEAL  NOOE  NUMoERS 

ASSOCIATED 

WITH  EACH  ELEMENT  ARE  AS  FOLLOWS  i 

element 

global 

NODE  NUMBERS 

i 

i 

2 

7 

6 

2 

2 

3 

Q 

7 

3 

3 

4 

9 

8 

4 

4 

5 

10 

9 

S 

6 

7 

12 

1 1 

6 

7 

8 

13 

1 2 , 

7 

a 

9 

14 

13 

6 

9 

10 

15 

14 

9 

1 1 

12 

17 

16 

10 

12 

13 

IQ 

17 

1 1 

13 

14 

19 

18 

12 

14 

15 

20 

19 

13 

16 

17 

22 

21 

14 

17 

IQ 

23 

22 

15 

18 

19 

24 

23 

1 G 

13 

20 

25 

24 

17 

21 

22 

27 

26 

13 

22 

23 

28 

27 

19 

23 

24 

29 

28 

20 

24 

25 

30 

29 

21 

26 

27 

32 

31 

22 

27 

28 

33 

32 

23 

28 

29 

34 

33 

24 

29 

30 

35 

34 

25 

31 

32 

37 

36 

26 

32 

33 

38 

37 

27 

33 

34 

39 

38 

20 

34 

35 

40 

39 

29 

36 

37 

42 

41 

30 

37 

38 

43 

42 

31 

33 

39 

44 

43 

32 

39 

40 

45 

44 

33 

4t 

42 

47 

46 

34 

42 

43 

43 

47 

) I ! 


43  44  49  48 

44  45  50  49 

46  47  52  51 

47  48  53  52 

48  49  54  53 

49  50  55  54 

51  52  57  56 

52  53  58  57 

53  54  59  58 

54  55  60  59 

56  57  62  61 

57  58  63  62 

58  59  64  63 

59  60  65  64 

(SEE  WRITEUP  FOR  CONVENTION  FOR  SIOE  NUMBER  AND  BOUNDARY  CONDITION) 

SIDE  NUMBER  BOUNDARY  CONDITION 

1 IDEALLY  CLAMPED 

2 FREE 

3 IDEALLY  CLAMPED 

4 FREE 

THE  FOLLOWING  60  DEGREES  OF  FREEDOM  ARE  CONSTRAINED 

1 2 3 4 5 6 7 8 9 10  11  12  13  14  15  16  17  t8  19  20 

21  22  23  24  25  26  27  28  29  30  361  362  363  364  365  366  367  368  369  370 

371  372  373  374  375  376  377  378  379  380  381  382  383  384  385  386  387  388  389  390 

PRESENT  RUN  USES  CONSISTENT  MASS  MATRIX 

MAX  SIZE  IS  14037 

0+  PROPERTIES  FOR  USER-SPECIFIED  MATERIALS 
in 

PROPERTIES  FOR  MATERIAL  NUMBER  1 

SUBLAYER  STRESS  POINT  STRAIN  POINT  YIELD  STRESS  WEIGHTING  FACTOR 

1 0 4420 0^00+05  0.44200000-02  0.44200000+05  0. 9937861 D+00 

2 0 49200000+05  0 . 76000 OOD-O 1 0.84885000+06  0.17256920-02 

3 0 76400000+05  0.61500000+00  0. 69092000+07  0.44881900-02 

STRAIN  RATE  PARAMETERS  0«  0 0500000D+04  P*  0.40000000+01 

TIMEWISE  SOLUTION  PARAMETERS 
T1ME-S1EP  SIZE*  0 25000000-05  SEC 

RUN  WILL  TERMINATE  AT  TIME  » 0 37500000-03  SEC.  OR  AT  CYCLE  NUMBER  150 

REGULAR  printout  WILL  BE  GIVEN  EVERY  10  CYCLES 

•+»+•  OUTPUT  CONTROL  INFORMATION  ••••• 

THE  FOLLOWING  RESULTS  WILL  BE  GIVEN  AT  EVERY  REGULAR  PRINTOUT  CYCLE! 

NODAL  D ISPLACtntNTS  AND  LOCATION 
REACTION  FORCES  AT  CONSTRAINED  NOOES 

STRAIN  COMPONENTS,  PRINCIPAL  STRAIN  ANO  DIRECTION  AT  THE  FOLLOWING  6 NODES  (OBTAINED  BY  NODAL  AVERAGING) t 
33  35  38  40  43  50 

STRAIN  COMPONENTS.  EL0NGAT1CN  IN  SPECIFIED  DIRECTIONS.  PRINCIPAL  STRAIN  AND  DIRECTION  AT  THE  FOLLOWING  It  ADDTL.  P0INTS1 
AOOTL.  POINT  ON  ELEM.  PS  I-..  OCAT  ION  ETA-LOCATIOn  ELONG  OIR.-I(DEG)  ELONG.  DIR  -2( DEG) 


1 

2 

0 10000000+01 

0 

0 

0 

0 

0.9000000D+02 

2 

2 

0. 10000000+01 

0. 

25806450+00 

0 

0 

0 9000000D+02 

3 

6 

0 10900000+01 

0 

29032260+00 

0 

0 

0 90000000+02 

4 

10 

0 1000000D+01 

0 

32258060+00 

0 

0 

0 9000000D+02 

5 

1 4 

0. 1000000D  + 0I 

0 

35483870+00 

0 

0 

0.90000000+02 

6 

26 

0 10000000+01 

0 

0 

0 

0 

0.9000000D+02 

7 

34 

0 lOOOOOOD+OI 

0 

64516130+00 

0 

0 

0 90000000+02 

8 

38 

0 10000000+01 

0 

67741940+00 

0 

0 

0.90000000+02 

9 

42 

0 10000000+0! 

0. 

70967740*00 

0 

0 

0 90000000+02 

10 

46 

0. 1000000D+01 

0 

74193550+00 

0 

0 

0.90000000+02 

11 

46 

0. 10000000+01 

0 

10000000+01 

0 

0 

0.90000000+02 

35 

' 36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

BOUNDARY  CONDITIONS 
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SYSTEM  ENERGIES 


ROUNDING  ERROR  PARAMETER  IN  FACTORING  ROW  ISO  • 0.11560148  NO  OF  NEGATIVE  OIAG-  0 

HIGHEST  NATURAL  FR EQUENCY ( RAD/ SEC ) ■ 0.30527550+07 

HIGHEST  EIGENVECTOR  NORMALIZED  BY  LARGEST  VALUE 

NODE  U V W PSIX  PSIY  TWIST 

1 0.0  0.0  00  00  0.0  0.0 

200  0.0  00  0.0  00  00 

300  00  00  00  00  0.0 

400  00  00  00  0.0  0 0 

500  00  00  00  00  0.0 

6 0 337850-39  -0  150590-39  -0  143960-04  0.436610-03  -0.167970-03  0.49778D-02 

7 -0  323740-39  0 495960-40  -0  190320-05  0.188680-03  -0  22206D-04  0 220190-02 

8 0 322020-39  0.912150-52  -0  203350-10  0.152940-03  -0.237330-09  0.17849D-02 

9 -0  323740-39  -0  495960-40  0 1S0310-05  0.188680-03  0 22205D-04  0.220190-02 

10  0 337850-39  0 150590-39  0 143960-04  0 426610-03  0 167970-03  0 49778D-02 

11  -0  108740-38  0. 381190-39  -0  365480-04  0 108420-02  -0  62BI7D-03  0.106240-01 

12  0 106230-38  -0  126260-39  -0  482990-05  0 480670-03  -0  830310-04  0 824630-02 

13  -0  105930-38  -0  370170-51  -0  518920-10  0 389940-03  -0  08945D-09  0.668690-02 

14  0 106230-38  0 126260-39  0 482900-05  0 480660-03  0.830290-04  0 824620-02 

15  -0  108740-38  -0  381190-39  0 365480-04  0.100420-02  0 628160-03  0 186240-01 

16  0 302940-33  -0  814160-39  -0  111860-03  0 332050-02  -0  194940-02  0 570400-01 

17  -0  299770-38  0 269050-39  -0  147810-04  0.147120-02  -0  25762D-03  0 256500-01 

18  0.299.00-38  0 119170-50  -0  159310-09  0 119050-02  -0  276970-08  0 208110-01 

19  -0  29977D-38  -0  269050-39  0 147800-04  0 147420-02  0 257620-03  0 256500-01 

20  0 302940-38  0 814180-39  0 111850-03  0 332050-02  0 194940-02  0 570390-01 

21  -0  811710-38  0 1 51c7  0-38  -0  573850-03  0.170210-01  -0  733020-02  0.2  17480  + 00 

22  0 810670-38  -0  504390-39  -0  758510-04  0 754360-02  -0  96878D-03  0 964410-01 

23  -0  810600-38  -0  3500b0-50  -0  814100-09  0 611880-02  -0  104130-07  0 70243D-01 

24  0 010b-0-38  0 504390-39  0 758490-04  0 754350-02  0 968750-03  0 964400-01 

25  -0  811710-33  -0  151570-38  0 57384D-0J  0 170210-01  0 733010-02  0.217180+00 

26  0 185100-37  -0  165020-38  -0  454690-03  0 134740-01  -O  258680-01  0 76705D+00 

27  -0  106420-37  0 553090-39  -0  601320-04  0 595840-02  -0  341980-02  0 339710+00 

28  0 19656D-37  0 851920-50  -0  641890-09  0 482920-02  -0  36G410-07  0 275400+00 

29  -0  186420-37  -0  553090-39  0 601310-04  0 595840-02  0 341970-02  0 339710+00 

30  0 185400-37  0 165020-38  0 454680-03  0.134740-01  0 258680-01  0 767040+00 

31  -0  226250-37  -0  87298D-50  0 16310D-12  -0  400160-11  -0  337290-01  0 100000+01 

32  0.229010-37  0 100550-49  0 214200-13  -0  213650-11  -0  445950-02  0 442720+00 

33  -0  228200-37  -0.106040-49  0 32050D-I5  -0  172840-11  -0  47737D-07  0.35U970+00 

34  0 228010-37  0 100720-49  -0  203120-13  -0  210700-11  0 445940-02  0 442720+00 

35  -0  226250-37  -0  877590-50  -0  157750-12  -0  4G8090-11  0 337290-01  0 999990*00 

36  0 105400-37  0 165020-38  0 454690-03  -0  134740-01  -0  250680-01  0 767050(00 

37  -0  18G420-37  -0  553090-39  0 601320-04  -0  595840-02  -0  341980-02  0.339710+00 

38  0 1 3G5 3D-37  0 848300-50  0 641890-09  -0  4G2920-32  -0  366410-07  0 275400  + 00 

39  -0  186420-37  0 553090-39  -0  601310-01  -0  595840-02  0 341970-02  0.339719+00 

40  0 165400-37  -0  165020-38  -0  '.54800-03  -0  134740-01  0 258G6D-01  0 767040+00 

41  -0  011/10-39  -0  151570-30  0 57J85D-03  -0  170210-01  -0  733020-02  0 2I740D+00 

42  0 8IC670-38  0 504390-39  0 758510-04  -0  754300-02  -0  960700-03  0 9644ID-0I 

43  -0  810600-38  -0  346720-50  0 814100-09  -0  6IIU8D-02  -0  104I3D-07  0 7U243D-01 

44  0 810670-38  -0  504390-39  -0  758490-04  -0  754350-02  0 96875D-03  0 964400-01 

45  -0  811710-38  0 161570-38  -0  573840-03  -0  1/0210-01  0 733010-02  0 217480+00 

46  0 302910-38  0 014160-39  0 111860-03  -0  322050-02  -0  194910-02  0 570400-01 

47  -0  299770-38  -0  2b9‘> 50-39  0 147010-04  -0  147  120-02  -0  257620-03  0 25G50D-0I 

48  0 290400-38  0 117310-50  0 159310-09  -0  119650-02  -0  27697D-08  0 2001  ID-01 

49  -0  299770-38  0 26995D-39  -0  147000-04  -0  147420-C2  0 257620-03  0 25G50D-01 

50  0 332940-38  -0  614190-39  -0  111050-03  -0  332050-02  0 194910-02  0 5/8390-01 

51  -0  106740-38  -0  381190-39  0 305400-04  -0  108420-02  -0.620I7D-03  0 106240-01 

52  0 106230-38  0 1262GD-39  0 482990-05  -0.480070-03  -0.830310-04  0.824630-02 

53  -0  105930-38  -0  360810-51  0 518920-10  -0  389940-03  -0  889440-09  0 688690-02 

54  0 106230-38  -0  12626C-39  -0  402960-05  -0  400000-03  0 BJ0290-04  0 824620-02 

55  -0  108740-38  0 301190-39  -0  365400-04  -0  108120-02  0 02016D-03  0 186240-01 

56  0 33785G-39  0 150590-39  0 14396D-04  -0  426610-03  -0  167970-03  0 4977UD-02 

57  -0.323740-39  -0  495960-40  0 190320-05  -0  168600-03  -0.22206D-04  0.220190-02 


i 


I 


I 


I 


] 


50  0.322020-39  0 868670-52  0.20335D-10  -0.152940-03  -0.23733D-09  0.178490-02 

59  -0  323740-39  0 495960-40  -0.19031D-05  -0.188680-03  0.222050-04  0,220190-02 

60  0 337850-39  -0.150590-39  -0  143960-04  -0  426610-03  0 16797D-03  0.497780-02 


61 

0 o 

0.0 

0 0 

0 0 

0.0 

0.0 

62 

0 0 

0 .0 

0.0 

0 0 

0 0 

0.0 

63 

o.o 

0.0 

0 0 

0 0 

0.0 

0.0 

64 

0.0 

0 0 

0 0 

0.0 

0 0 

0.0 

65 

0.0 

0 0 

0 0 

0.0 

0.0 

0.0 

AFTER  106  ITERATIONS. 

convergence 

RATIO. 

0 9539402D- 

07 

central-oifference  bound  on 

T I ME-STE  P(  SEC ) 

FOR  LINEAR 

SYSTEM- 

0 . 6551460  D-06 

ACTUAL  TIME-STEP  BOUND 

(SEC) 

MOULD 

BE.  0 

5241 1 680*06 

TIME. 

0.0 

SEC. 

. E X T F R M A 1 lY  APPI  1FD  IIS  F R 

NODE 

OOF*! 

DOF*  2 

DOF#3 

D0FA4 

DO  FA  5 

DQFA6 

(LBS) 

(LBS) 

(LBS) 

(IN-LBS) 

(IN-LBS) 

(IN-LBS) 

1 

0.0 

0.0 

0 0 

0 

0 

0 0 

0.0 

2 

0.0 

0.0 

0 0 

0 

0 

0 0 

0.0 

3 

0 0 

0.0 

0 0 

0 

0 

0.0 

0.0 

4 

0.0 

0.0 

0.0 

0 

0 

0.0 

0.0 

5 

0.0 

0.0 

0.0 

0 

0 

0.0 

0.0 

6 

0 0 

0.0 

0.0 

0 

0 

0 0 

0 0 

7 

0.0 

0 0 

0 

0 

0 

0.0 

0 0 

8 

0 0 

0 0 

0 0 , 

0 

0 

0 0 

0 0 

9 

0 0 

0.0 

0 0 

0 

0 

0.0 

0 o 

10 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

1 1 

0.0 

0.0 

0 0 

0 

0 

0 0 

0 0 

12 

0.0 

0.0 

0.0 

0 

0 

0 0 

0.0 

13 

0 0 

0 0 

0.0 

0 

0 

0.0 

0.0 

14 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

15 

0.0 

0 0 

0 0 

0 

0 

0 0 

0 0 

16 

0.0 

0.0 

0 0 

0 

0 

0 0 

0.0 

17 

0.0 

0 0 

0.0 

0 

0 

0.0 

0 0 

18 

0 0 

0 0 

0 0 

0 

0 

0.0 

0.0 

19 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

20 

0 0 

0 0 

0 0 

0, 

. 0 

0.0 

0 0 

21 

0 0 

0.0 

0 9235070.03 

0. 

5760370*02 

0 692630D+02 

0 . 4320280+01 

22 

0.0 

0.0 

0 184701 D+04 

0 

0 

0 1385260+03 

0 0 

23 

0 0 

0 0 

0.1847010+04 

0 

0 

0 1385260+03 

0 0 

24 

0 0 

0 0 

0 1847010+04 

0 

0 

0 1385260+03 

0 o 

25 

0.0 

0.0 

0 9235070+03 

-0 

576037D+02 

0 6926300+02 

-0  4320280+01 

26 

0 0 

0 0 

0 1847010+04 

0 

1152070+03 

0 0 

0 0 

27 

0.0 

0 0 

0 3694030+04 

0 

0 

0 0 

0 0 

28 

0 0 

0.0 

0.3694030+04 

0 

0 

0 0 

0 0 

29 

0 0 

0 0 

0 3694030+04 

0. 

. 0 

0 0 

0 0 

30 

0 0 

0.0 

0 1847010+04 

-0 

1152070+03 

0 0 

0 0 

31 

0 0 

0.0 

0 184701D+04 

0 

1 152070+03 

0 0 

0.0 

32 

0 0 

0 0 

0 3694030+04 

0 

0 

0 0 

0 0 

33 

0.0 

0 0 

0 3694030+04 

0 

0 

0 0 

0 0 

34 

0.0 

0 0 

0 3694030*04 

0 

0 

0 0 

0 0 

35 

0 0 

0.0 

0 1847010+04 

-0 

1 152070+03 

0.0 

0 0 

36 

0 0 

0 0 

0 1847010+04 

0. 

. 1 152070+03 

0 0 

0 0 

37 

0 0 

0.0 

0 3694030+04 

0, 

, 0 

o o 

0.0 

38 

0.0 

0 0 

0. 369403D  + 04 

0 

0 

0 0 

0 0 

39 

0 0 

0.0 

0 3694030+04 

0 

0 

0 0 

0 0 

40 

0.0 

0 0 

0 1047010+04 

-0 

1 152070+03 

0 0 

0 0 

41 

0 0 

0.0 

0 9235070+03 

0 

5760370+02 

-0  6926300+02 

-0  4320280+01 

42 

0.0 

0.0 

0 1847010+04 

0 

0 

-0. 13B526D+03 

0 0 

43 

0 0 

0.0 

0 184/010+04 

0 

0 

-0  1385260+03 

0.0 

44 

0 0 

0 0 

0 1847010+04 

0 

0 

-0  1385260+03 

0 0 

45 

0 0 

0.0 

0 9235070+03 

-o 

5760370+02 

-0  692630D+02 

0 . 432028D+0 1 

46 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

47 

0.0 

0.0 

0 0 

0 

0 

0 0 

0 0 

49 

0.0 

0.0 

0 0 

0 

0 

0.0 

0.0 

268 


49 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

50 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

51 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

52 

0.0 

0 0 

0 0 

0.0 

0.0 

0.0 

53 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

54 

0.0 

0.0 

0 0 

0.0 

0 0 

0.0 

55 

0 0 

0 0 

0.0 

0.0 

0 0 

0.0 

56 

0 0 

0 0 

0.0 

0 0 

0.0 

0.0 

57 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

59 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

59 

0.0 

0 0 

0.0 

0 0 

0 0 

0 0 

60 

0.0 

0.0 

0 0 

0.0 

0 0 

0 0 

61 

0.0 

0.0 

0 0 

0 0 

0.0 

0 0 

62 

0.0 

0 0 

0 0 

0 0 

0 0 

0.0 

63 

0 0 

o.o 

0 0 

0.0 

0 0 

0 0 

64 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

65 

0.0 

0.0 

0.0 

0 0 

0 0 

0 0 

I NCR. 

NO.  ■ 

0 TIME*  0.0 

SEC. 

NODE 

u 

V 

w 

PSIX 

PSIY 

TWIST 

X-POS. 

Y-POS. 

Z-POS 

1 

0 0 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.374250+00 

0.0 

0.0 

3 

0.0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 . 74850D+00 

0.0 

0.0 

4 

0.0 

0.0 

0.0 

0.0 

0 0 

0.0 

0.11 227D+0 t 

0.0 

0.0 

5 

0.0 

0 0 

0.0 

0.0 

0.0 

0 0 

0. t4970D+0t 

0.0 

0.0 

6 

0 0 

0 0 

0 0 

0 0 

0.  0 

0.0 

0 0 

0.775000+00 

0.0 

7 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.374250+00 

0.775000+00 

0.0 

8 

0 0 

0 0 

0.0 

0 0 

0.0 

0 0 

0 748500+00 

0 775000+00 

0.0 

9 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0.112270+01 

0 775000+00 

0.0 

10 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0.149700+01 

0 775000+00 

0.0 

1 1 

to  a "J 

cn  1 * 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 155000+01 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 374250+00 

0 155000+01 

0.0 

CD  13 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0.740500+00 

0 155000+01 

0 0 

14 

0 0 

0 0 

0 0 

0.0 

0.0 

0.0 

0 112270+01 

0 155000+01 

0.0 

15 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 149700+01 

0 155000+01 

0.0 

16 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 232500+01 

0 0 

17 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 374250+00 

0 232500+01 

0.0 

18 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 740500+00 

0 23250D+OI 

0.0 

19 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 112270+01 

0 232500+01 

0.0 

20 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 149700+01 

0 232500+01 

0.0 

21 

0.0 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 310000+01 

0.0 

22 

0 0 

0 0 

0 0 

0 0 

0. 0 

0.0 

0 374250+00 

0 310000+01 

0.0 

23 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 748500+00 

0 3 1 000D+0 1 

0 0 

24 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 1 1 227D+01 

0. 310000+01 

0 0 

25 

0 0 

0 0 

0 0 

0.0 

0 0 

o o 

0 14970D+0I 

0 310000+01 

0 0 

26 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0  I 

0 0 

0 355000+01 

0.0 

27 

0 0 

0 0 

0 0 

0 0 

0,0 

0.0  1 

0.374250+00 

0 355000*01 

0.0 

28 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 1 

0 748500+00 

0 35500D+0 1 

0.0 

29 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0 112270+01 

0 35500D+0I 

0.0 

30 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0.149700+01 

0 355000+01 

0.0 

31 

0 0 

0 0 

0 0 

0 0 

0 0 

0 o 

0 0 

0 40000D+0 1 

0 0 

32 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 374250+00 

0 400000+01 

0.0 

33 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0.748500+00 

0 400000+01 

0.0 

34 

0 0 

0 0 

0 0 

0 0 

oro 

0.0 

0 112270+01 

0 40000D+  0 1 

0.0 

35 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0. 149700+01 

0 4OO0OD+OI 

0 0 

36 

0 0 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 445000+01 

0 0 

37 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 374250+00 

0 44500D+0I 

0.0 

30 

0 0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 . 74050D+  00 

0 445000+01 

0.0 

39 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 112270+01 

0 445000+01 

0.0 

40 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0. I4970D+01 

0 445000+01 

0.0 

41 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 49000D+01 

0.0 

42 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 374250+00 

0 49000D+0 1 

0.0 

43 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 748500+00 

0.490000+01 

0.0 

44 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0. 1 12270+01 

0.490000+01 

0.0 

45 

0 0 

0.0 

0.0 

0.0 

0 0 

0.0 

0.149700+01 

0.49000D+01 

0.0 

269 


i 


46 

0 

0 

0 

0 

47 

0 

0 

0 

0 

48 

0 

0 

0 

0 

49 

0 

0 

0 

0 

50 

0 

0 

0 

0 

51 

0 

0 

0 

0 

52 

0 

0 

0 

0 

53 

0 

0 

0 

0 

54 

0 

0 

0 

0 

55 

0 

0 

0 

0 

56 

0 

0 

0 

0 

57 

0 

0 

0 

0 

58 

0 

0 

0 

0 

59 

0 

0 

0 

0 

60 

0 

0 

0 

0 

61 

0 

0 

0 

0 

62 

0 

0 

0 

0 

63 

0 

0 

0 

0 

64 

0 

0 

0 

0 

65 

0 

0 

0 

0 

0.0 

0.0 

0.0 

0.0 

0 0 

0.56750D+OI 

0.0 

0.0 

0.0 

0 0 

0.0 

0.374250+00 

0.567500+01 

0.0 

0.0 

0.0 

0 0 

0.0 

0 . 74850D+0Q 

0.567500+01 

0.0 

0 0 

0.0 

0 0 

0.0 

0. 1 12270+01 

0.567500+01 

0.0 

0.0 

0.0 

0.0 

0.0 

0.149700+01 

0.567500+01 

0.0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 645000+01 

0.0 

0.0 

0.0 

0 0 

O.o 

0 374250+00 

0 645000+01 

0.0 

0 0 

0.0 

0 0 

0 o 

0.748500+00 

0.645000+01 

0.0 

0 0 

0.0 

0 0 

0.0 

0.112270+01 

0 64500D+01 

0 0 

0.0 

0.0 

0.0 

0.0 

0 . 14970D+01 

0.645000+01 

0 0 

0 0 

0.0 

0.0 

o.o 

0 0 

0 722500+01 

0 0 

0 0 

0.0 

0 0 

0.0 

0 374250+00 

0.722500+01 

0 0 

0 0 

0.0 

0 0 

0 0 

0. 74850D+OQ 

0 72250D+01 

0.0 

0 0 

0 0 

0 0 

0.0 

0 11227D+01 

0 722500+01 

0.0 

0.0 

0 0 

0.0 

0.0 

0 149700+01 

0 . 72250D+0 1 

0.0 

0 0 

0 0 

0 0 

0.0 

0.0 

0.800000+01 

0.0 

0.0 

0.0 

0 0 

0.0 

0 37425D+00 

0 800000+01 

0.0 

0 0 

0 0 

0 0 

O.o 

0.748500+00 

0. 600000+01 

0.0 

0 0 

0 0 

0.0 

o.o 

0 1 1227D+0I 

0.800000+01 

0.0 

0 0 

0.0 

o.o 

0 0 

0.149700+01 

0.000000+01 

0.0 

REACTION  FORCES  AT  CONSTRAINED  NOOES 


NODE 

RX(LBS) 

RY(LBS) 

RZ ( LBS ) 

MX(LBS-IN) 

MY(  LBS-IN) 

MXY ( LBS-IN- 

IN) 

1 

0.  0 

0 0 

0.0 

0.0 

0.0 

0.0 

2 

0 0 

0 0 

0.0 

0.0 

0.0 

0.0 

3 

0.  0 

0.0 

0.0 

0.0 

0 0 

0 0 

4 

0 0 

0 0 

0.0 

0.0 

0.0 

0.0 

5 

0 0 

0 0 

0.0 

0 0 

0.0 

0 0 

61 

0.0 

0.0 

0.0 

0.0 

0 0 

0.0 

62 

0.0 

0 0 

0.0 

0.0 

0 0 

0 0 

63 

0.0 

0.0 

0 0 

0 0 

0.0 

0 0 

! 64 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

65 

0.0 

0.0 

0.0 

0 0 

0.0 

0 0 

strain 

COMPONENTS, 

PRINCIPAL(TENSILE) 

STRAIN 

AND  DIRECTION 

AT  CENTR010  OF  EACH 

ELEMENT 

EPS- 

X STRAIN 

EPS-V  STRAIN 

SHEAR  STRAIN 

PRINC.  STRAIN(T) 

DIRECTIONIDEG.) 

ELEM 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

1 

0.0 

0.0 

0.0 

0 

0 

0.0 

0.0 

0.0 

0.0 

0.45000+02 

0 45000+02 

2 

0.0 

0 0 

0.0 

0. 

.0 

0 0 

0 0 

0.0 

0 0 

0.45000+02 

0.45000+02 

3 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

0.0 

0.0 

0.45000+02 

0.45000+02 

4 

0 0 

0 0 

0.0 

0 

0 

0 0 

0 0 

0.0 

0 0 

0.45000+02 

0.45000+02 

5 

0.0 

0 0 

0.0 

0 

0 

0 0 

0 0 

0.0 

0 0 

0 45000+02 

0. 45000+02 

6 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

0 0 

0.0 

0 45000+02 

0.45000+02 

7 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 i 

0 0 

0.0 

0 45000+02 

0.45000+02 

8 

o.o 

0 0 

0 0 

0 

0 

0 0 

0 0 

0 0 

0.0 

0 45000+02 

0 45000+02 

9 

0.0 

0 0 

0.0 

0 

0 

0 0 

0 0 1 

0 0 

0 0 

0 45000+02 

0 45000+02 

10 

0 0 

0 0 

0 0 

0 

0 

0 0 

0.0  1 

0 0 

0 0 

0. 45Q0D+O2 

0.45000+02 

1 1 

0 0 

0 0 

0 0 

0, 

.0 

0 0 

0.0 

0 0 

0.0 

0 45000+02 

0 45000+02 

12 

0 0 

0 0 

0.0 

0 

0 

0 0 

0 0 

0 0 

0 0 

0 4500D+02 

0 4500Dt02 

13 

0 0 

0 0 

0 0 

0 

0 

0 0 

0.0 

0 0 

0 0 

0.45000+02 

0 45000+02 

14 

0 0 

0 0 

0.0 

0 

0 

0.0 

0 0 

0 0 

0 0 

0.4500D+02 

0 45000+02 

15 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 

0 0 

0 0 

0 45000+02 

0 4500D+02 

16 

0.0 

0 0 

0.0 

0 

0 

0 0 

0.0 

0 0 

0 0 

0 45000+02 

0 4500D+02 

17 

0 0 

0.0 

0.0 

0 

0 

0 0 

0 0 

0.0 

o o 

0.45000+02 

0 . 45000+02 

18 

0 0 

0 0 

o.o 

0 

0 

0 0 

0.0 

0.0 

0.0 

0 4500D+02 

0.4500D+02 

19 

o a 

0.0 

0 0 

0 

0 

0.0 

0.0 

0 0 

0.0 

0.45000+02 

0.45000+02 

20 

0 0 

0.0 

0 0 

0 

0 

0 0 

0.0 

0 0 

0.0 

0.45000+02 

0.45000*02 

21 

o.o 

0.0 

0 0 

0 

0 

0 0 

0 0 

0 0 

0 0 

0.45000+02 

0 45000+02 

22 

0 0 

0.0 

0 0 

0 

0 

0 0 

0.0 

0 0 

0 0 

0.4500D+02 

0.45000+02 

23 

o.o 

0 0 

0 0 

0 

0 

0 0 

0 0 

0.0 

0 0 

0.45000+02 

0.4500D+02 

24 

0 0 

0.0 

0.0 

0 

0 

0.0 

0.0 

0 0 

0 0 

0.45000+02 

0 45000+02 

25 

o o 

0.0 

0.0 

0 

0 

0 0 

0 0 

0.0 

0.0 

0.4500D+02 

0.45000+02 

26 

0 0 

0 0 

0.0 

0 

0 

0.0 

0.0 

0.0 

0.0 

0.45000+02 

0.45000+02 

27 

0.0 

0 0 

0 0 

0 

0 

0 0 

0 0 

0.0 

0.0 

0.45000+02 

0.4500D+02 

2a 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0 .4500D+02 

Q.450QD+02 

29 

0.0 

0.0 

0.0 

0.0 

0 0 

0.0 

0 0 

0.0 

0.45000+02 

0.45000+02 

30 

0 o 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.45000+02 

0.4S00D+02 

31 

0.0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 0 

0.0 

0.450QD+02 

0 . 4500D+02 

32 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0.0 

0.0 

0.45000+02 

0 45000+02 

33 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0.0 

0 4500D+02 

0.45000+02 

34 

0.0 

0 o 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0.45000+02 

0 45000+02 

35 

0 0 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 4500D+02 

0.45000+02 

36 

0.0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0 0 

0.4500D+02 

0. 45000+02 

37 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0. 4500D+02 

0.45000+02 

38 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0 0 

0 0 

0 4500D+02 

0 4500D+02 

39 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0.4500D+02 

0 45000+02 

40 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 4500D+02 

0 4500D+  02 

41 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0. 4500D+02 

0 45000+02 

42 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 . 4500D+  02 

0 45000+02 

43 

0 0 

0 0 

0 0 

0.0 

0.0 

0 0 

0.0 

0.0 

0 45000+02 

0.45000*02 

44 

0 0 

0 0 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 4500D+02 

0.4500D+02 

45 

0 0 

0 0 

C 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0. 45000  + 02 

0.45000+02 

46 

0 0 

0 0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0^45000+02 

0 45000+02 

47 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0.4500D+02 

0 45000+02 

40 

0 0 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 45000+02 

0.45000+02 

STRAIN 

components. 

PRINCIPAL 

(TENSILE)  STRAIN  AND  DIRECTION 

AT  USER-SPECIFIED 

NODES 

EPS- 

X STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

PRINC.  STRAIN(T) 

DIRECT10i)(DEG 

NODE 

INNER 

OUTER 

INNER 

OUTER 

INNER  OUTER 

INNER  OUTER 

INNER 

OUTER 

33 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0.4500D+02 

0 45000+02 

35 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0.0 

0.0 

0.45000+02 

0 45000+02 

33 

0.0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0.0 

0.4500D+02 

0 45000+02 

40 

0.0 

0.0 

o.o 

o o 

0 0 

0 0 

0 0 

0 0 

0 45000+02 

0 45000+02 

48 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0.0 

0.0 

0.4500D+02 

0.4500D+02 

50 

to 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0.0 

0.45000+02 

0.45000+02 

O STRAIN  COMPONENTS,  PRINC IPAL( T EnSI LE ) STRAIN  AND  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT  NO. 

surface 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (OIR. 1) 

ELONG. (DIR. 2) 

PRINC. 

STRN(T)  DIRECTION(DEG. ) 

1 

INNER 

0 0 

0 .0 

0 0 

0 0 

0.0 

0 0 

0 450000+02 

1 

OUTER 

0 0 

0.0 

0 0 

0.0 

0 0 

0 0 

0 . 45000D+02 

2 

INNER 

0 0 

0 .0 

0 0 

0 0 

0.0 

0 0 

0 45000D+02 

2 

OUTER 

0 0 

0.0 

0.0 

0 0 

0 0 

0 0 

0 45000D+02 

3 

INNER 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0 450000+02 

3 

OUTER 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 45000D+02 

4 

INNER 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 45  T0D  + O2 

A 

OUTER 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 45U00D+02 

5 

INNER 

0 0 

0 .0 

0 0 

0 0 

0 0 

0 0 

0 450000+02 

5 

OUTER 

0 0 

0 0 

0 0 

0 0 

, 0 0 

0.0 

0 45000D+02 

6 

INNER 

0 0 

0 0 

0 0 

0 0 

1 0 0 

0 0 

0 45000D+02 

6 

CUTER 

0.0 

0 .0 

0 0 

0 0 

i 0.0 

0 0 

0.450000+02 

7 

INNER 

0 0 

0 0 

0 0 

0 0 

1 0 0 

0 0 

0 45000D+02 

7 

OUTER 

0 0 

0 .0 

0 0 

0 0 

0.0 

0 0 

0. 450000+02 

6 

INNER 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 45000D+02 

8 

OUTER 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 . 45000D+02 

9 

INNER 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 450000+02 

9 

OUTER 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0. 45000D+02 

10 

INNER 

0 0 

0 0 

0 0 

0.0 

0 0 

0 0 

0 . 45000D+02 

10 

OUTER 

0 0 

0.0 

0 0 

0 0 

0.0 

0 0 

0.45000D+02 

1 1 

INNER 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0.450000+02 

1 1 

OUTER 

0.0 

0 .0 

0 0 

0.0 

0.0 

0.0 

0.45000D+02 

SYSTEM  ENERGIES! IN-LB) 

WORK  INPUT  TO  STRUCTURE  • 

STRUCTURE  KINETIC  ENERGY  • 

STRUCTURE  ELASTIC  ENERGY  • 

structure  plastic  energy 

energy  stored  in  elastic  restraints* 


o.o 
o.o 
0.0 
0.0 
0 0 


I 


I 


TIME*  0.2500000-05  SEC. 

EXTERNALLY  APPLIED  USER  SPECIFIED  LOADING 


NODE 

00F#1 

DOF#  2 

00F#3 

D0F#4 

D0FA5 

DGF#6 

(las) 

(LBS) 

(LBS) 

(IN-LBS) 

(IN-LBS) 

(IN-LBS) 

1 

0 

0 

0.0 

0 

0 

0 

0 

0.0 

0. 

0 

2 

0 

0 

0.0 

0. 

,0 

0. 

0 

0.0 

0. 

,0 

3 

0 

0 

0.  0 

0. 

.0 

0. 

0 

0 0 

0 

0 

4 

0. 

.0 

0 0 

0 

0 

0 

0 

0.0 

0. 

.0 

5 

0. 

,0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

6 

0 

0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

7 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

e 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

9 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

10 

0 

0 

0.  0 

0 

0 

0 

0 

0.0 

0 

0 

it 

0 

0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

12 

0 

0 

0 0 

0 

0 

0 

0 

0.0 

0. 

,0 

13 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0. 

.0 

14 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

0. 

.0 

15 

0 

0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

16 

0. 

.0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

17 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

16 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

19 

0 

0 

0 0 

0. 

.0 

0 

0 

0.0 

0 

0 

20 

0 

0 

0.0 

0 

0 

0. 

0 

0 0 

0, 

.0 

21 

0 

0 

0 0 

0 

031 1560+03 

0 

5104340+02 

0 6233670.02 

0 

3888250+01 

22 

0. 

.0 

0.0 

0 

1662310+04 

0 

0 

0. 1246730+03 

0 

0 

23 

0 

0 

0 0 

0 

1662310+04 

0 

0 

0 1246730.03 

0 

0 

24 

0. 

.0 

0 0 

0 

166231D+04 

0 

0 

0 1246730.03 

0 

0 

25 

0 

0 

0.  0 

0 

031 1560+03 

-0 

5184340+02 

0 6233670+02 

-0 

38QQ25D+01 

26 

0. 

.0 

0.0 

0 

1662310+04 

0 

1036870+03 

0.0 

0 

0 

27 

0 

0 

0. 0 

0 

3324620+04 

0 

0 

0 0 

0 

0 

28 

0 

0 

0 0 

0 

332  1620+04 

0 

0 

0.0 

0 

0 

29 

0 

0 

0.0 

0 

3324620+04 

0 

0 

0 0 

0 

0 

30 

0 

0 

0.0 

0 

1662310+04 

-o 

1036870+03 

0 0 

0 

0 

3 1 

0. 

.0 

0 0 

0 

1662310+04 

0 

1036070+03 

0 0 

0 

0 

32 

0 

0 

0 0 

0 

3324620+04 

0 

0 

0 0 

0 

0 

33 

0 

0 

0 0 

0 

3324620+04 

0 

0 

0 0 

0 

0 

34 

0 

0 

0.0 

0 

3324620+04 

0 

0 

0 0 

0 

0 

3b 

0 

0 

0 0 

0 

1662J1D+04 

“0 

1036870+03 

0 0 

0 

0 

36 

0 

0 

0.0 

0 

1U6231D+04 

0 

1036070+03 

0 0 

0. 

.0 

37 

0, 

.0 

0.0 

0 

.3324620+04 

0. 

0 

0 0 

0 

0 

38 

0 

0 

0 0 

0. 

.3324620+04 

0 

0 

0 0 

0. 

.0 

39 

0. 

.0 

0 0 

0 

3324620+04 

0. 

0 

0 0 

0 

0 

40 

0 

0 

0.0 

0 

1662310+04 

-0 

1036870+03 

0.0 

0 

0 

41 

0 

0 

0.0 

0 

831 1560+03 

0 

5184340+02 

-0.6233670+02 

-0 

3088250+01 

42 

0 

0 

0 0 

0 

1662310+04 

c 

0 

-0  1246730+03 

0 

0 

43 

0 

0 

0.0 

0 

1662310+04 

0 

0 

-0  1246730+03 

0 

0 

44 

0, 

.0 

0.0 

0 

1662310+04 

0 

0 

-0  124673D+03 

0 

0 

45 

0 

0 

0.0 

0 

831 1560+03 

-o 

5184340+02 

-0  6233670+02 

0 

3888250+01 

46 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

47 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0. 

.0 

48 

0 

0 

c o 

0, 

.0 

0 

0 

0 0 

0 

0 

49 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0. 

.0 

50 

0 

0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

51 

0 

0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

£2 

0 

0 

0 0 

0 

0 

G 

0 

0 0 

0, 

.0 

53 

0 

0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

54 

0 

0 

0.0 

0 

.0 

0 

0 

0 0 

0 

0 

55 

0 

0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

56 

0 

0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

57 

0. 

.0 

0.0 

0 

0 

0 

0 

0 0 

0, 

.0 

50 

0. 

.0 

0 0 

0 

0 

0 

0 

0 0 

0, 

.0 

59 

0. 

.0 

0.0 

0. 

.0 

0. 

0 

0 0 

0. 

.0 

60 

0. 

,0 

0.0 

c 

0 

0 

0 

0.0 

0, 

.0 

272 


61 

0.0 

0.  0 

0.0 

0 0 

0.0 

0.0 

62 

0 0 

0.0 

0 0 

0.0 

0.0 

0.0 

63 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

64 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

65 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

ROUNDING 

ERROR  PARAMETER 

IN 

FACTORING 

ROW 

150  - 

0.23916102  NO 

OF 

NEGATIVE 

D!  AG* 

0 

MAXIMUM  BANDWIDTH  OF 

60 

IS  FOUND  1 

FOR 

(CONSTRAINED)  OEGRE E-OF-FREEDOM  NUMBER 

372 

ROUNDING 

ERROR  PARAMETER 

IN 

FACTORING 

ROW 

150  - 

0.34295915  NO 

OF 

negative 

OIAG* 

0 

1NCR.  NO.*  1 TIME*  0. 25000-05  SEC. 


NODE 

u 

V 

w 

PSIX 

PSIY 

TWIST 

X-POS. 

V-POS. 

2-POS. 

1 

0 

0 

0 0 

0 0 

0 

0 0. 

0 

0.0 

0.0 

0.0 

0.0 

2 

0 

0 

0.0 

0.0 

0 

0 0. 

0 

0.0 

0.374250+00 

0.0 

0.0 

3 

0 

0 

0.0 

0 0 

0 

0 0. 

0 

0.0 

0.74850D+00 

0.0 

0.0 

A 

0 

0 

0.0 

0 0 

0 

0 0. 

0 

0.0 

0.112270+01 

0.0 

0.0 

5 

0 

0 

0 0 

0 0 

0 

0 0 

0 

0.0 

0 149700+01 

0.0 

0.0 

6 

0 

0 

0.0 

0.51 5190-05 

-0 

145190-04  0 

554510-04 

-0  . t6130D-03 

0.0 

0.775000+00 

0. 515190-05 

7 

0 

0 

0 0 

0 439620-05 

“0 

143710-05  0 

471450-04 

-0.165300-04 

0.374250+00 

0 77500D+00 

0 439620-05 

6 

0 

0 

0.0 

0 433750-05 

0 

441700-16  0 

464770-04 

0 .513870-15 

0.74B50D+00 

0.775000+00 

0.433750-05 

9 

0 

0 

0 0 

0 439620-05 

0 

14371D-05  0 

471450-04 

0 . 165330-04 

0 112270+01 

0.775000+00 

0.43962D-05 

10 

0 

0 

0 0 

0.51 5190-05 

0 

t 451 90- 04  0. 

554510-04 

0.161300-03 

0.149700+01 

0 775000+00 

0.51 51 9D-05 

1 1 

0 

0 

0 0 

0 199220-04 

-0 

464610-04  0 

271210-03 

-0.697380-03 

0 0 

0.155000+01 

0.199220-04 

12 

0 

0 

0 0 

0.174310-04 

-0 

38937D-05  0. 

234480-03 

-0.644090-04 

0 374250+00 

0. 155000+01 

0 1 7431 D-04 

13 

0 

0 

0 0 

0. 17  2620-04 

0 

1 3365D- 1 5 0 

231790-03 

0 214060-14 

0 74850D+00 

0 15500D+01 

0 1 7262D-04 

1 A 

0 

0 

0 0 

0 174310-04 

0 

389370-05  0. 

234480-03 

0 .64409D-04 

0.112270+01 

0 155000+01 

0.174310-04 

15 

0 

0 

0 0 

0.199220-04 

0 

464610-04  0 

27121D-03 

0.697380-03 

0 149700+01 

0. 155000+01 

0 19922D-04 

16 

0 

0 

0.0 

0 991790-04 

-0 

190270-03  0 

125240-02 

-0  270G6DrO2 

0 0 

0 23250D+OI 

0.991790-04 

17 

0 

0 

0 0 

0.885370-04 

-0 

123700-04  0 

1 10500-02 

-0  200610-03 

0 3742SD+00 

0 2J250D+0I 

0.88537D-04 

18 

0 

0 

0 0 

0.879820-04 

0 

4 2CS9D- 1 6 0 

109590-02 

0.53300D-14 

0.748500+00 

0 232500+01 

0 879820-04 

ro  19 

0 

0 

0 0 

0 885370-04 

0 

12370D-04  0 

1 10500-02 

0 20861 D-03 

0 112270*01 

0. 232500+01 

0.BBS37D-04 

20 

0 

0 

0 o 

0.991(90-04 

0 

1 9027D-03  0. 

125240-02 

0.270660-02 

0 14970D+01 

0 232500*01 

0.991790-04 

21 

0 

0 

0.0 

0 134790-02 

-0 

1 4959D- 03  0 

108970-01 

-0  945150-02 

0 0 

0 3 1 OOOD+O 1 

0. 13479D-02 

22 

0 

0 

0 0 

0 134000-02 

-0 

1 2765D-04  0 

103650-01 

-0  509440-03 

0.374250+00 

0 310000+01 

0 1 3400D-02 

23 

0 

0 

0 0 

0 133950-02 

0 

645910-15  0 

103410-01 

0 . 77473D-I4 

0.74050D+00 

0 310000+01 

0. 1 3395D-02 

24 

0 

0 

0 0 

0.134000-02 

0 

127650-04  0 

103060-01 

0 50944D-03 

0 112270+01 

0 31 0000+01 

0. 13 100D-02 

25 

0 

0 

0 0 

0 1 3 47°0-02 

0 

149590-03  0 

101J970-  01 

0.945150-02 

0 I4970D+0I 

0 310000+01 

0 134790-02 

26 

0 

0 

0 0 

0 2509-30-02 

-0 

452650-04  -0 

511400-03 

0 . 124760-02 

0 0 

0.355000+01 

0.25093D-Q2 

27 

0 

0 

0.0 

0 250570-02 

0 

1 1536D-04  -0 

42S94D  03 

-0  540270-04 

0.37425D+00 

0 355000*01 

0 25U57D-02 

28 

0 

0 

0 0 

0 258610-02 

0 

296260-15  -0 

426290-03 

0 271360-13 

0 740500+00 

0 35500D+  0 1 

0 258610-02 

29 

0 

0 

0 0 

0 258570-02 

-0 

1 15860-04  -0 

425940-03 

0 540270-04 

0 112270+01 

0 355000+01 

0.25B57D-02 

30 

0 

0 

0 0 

0 258930-02 

0 

452G5D- 04  -0 

511400-03 

-0.124760-02 

0.149700*01 

0.355000+01 

0.25093D-02 

31 

0 

0 

0 0 

0 256510-02 

-0 

23795D-04  -0 

210680-14 

0 601010-13 

0 0 

0 400000+01 

0 256510-02 

32 

0 

0 

0 0 

0 256370-02 

-0 

184780-05  -0 

540440-16 

0 36420D-13 

0 374250+00 

0 400000+01 

0.250370-02 

33 

0 

0 

0.0 

0 256360-02 

-0 

957350-16  -0 

255870-15 

0 318610-13 

0 74850D+00 

o 4ooooD+oi 

0.25636D-02 

34 

0 

0 

0 0 

0 2563.0-02 

0 

1647G0-05  -0 

36C840-15 

0 205340-1 3 

0.112270+01 

0 400000+01 

0.25637D-02 

35 

0 

0 

0 0 

0 256510-02 

0 

237930-04  0 

660o'>0-15 

0 251610-13 

0 149700+01 

0 400000+01 

0 256510-02 

36 

0 

0 

0 0 

0 25 8930-02 

-0 

452050-04  0 

511400  03 

-0  124700-02 

0 0 

0.445000*01 

0 258910-02 

37 

0 

0 

0.0 

0.25U57D-02 

0 

1 15860-04  0 

425910  03 

0 540270-04 

0 37425D+  00 

0 44500D+0I 

0 250570-02 

38 

0 

0 

0 0 

0.258610-02 

-0 

812180-15  0 

428290-03 

0.190210-13 

0 748500+00 

0 445000+01 

0 258610-02 

39 

0 

0 

0 0 

0 258570-02 

-0 

11586D-04  0 

425940-03 

-0.54027D-04 

0 112270+01 

0 44500D+0 1 

0 258570-02 

40 

0 

0 

0 0 

0 258930-02 

0 

4 52G50-04  0 

51  1400-03 

0 124160-02 

0 149700+01 

0.445000+01 

0.258930-02 

41 

0 

0 

0 0 

0 134790-02 

-0 

149590-03  -0 

106970-01 

0 94SI5D-02 

0 0 

0 490000+01 

0 134790-02 

42 

0 

0 

0 0 

0 134000-02 

-0 

1 27o5D- 04  -0 

1 Q3GG0-C 1 

0 509440-03 

0 374250+00 

0 490000+01 

0.134000-02 

43 

0 

0 

0 0 

0 133950-02 

0 

285310-15  ~0 

103410-01 

-0  162530-13 

0.74850D+00 

0 49000D+01 

0.133950-02 

44 

0 

0 

0 0 

0.134000-02 

0 

1 27650-04  -0 

1C36SD-01 

-0.509440-03 

0.112270+01 

0.490000+01 

0. 134000-02 

45 

0 

0 

0.0 

0 134790-02 

0 

1 4959D- 03  -0 

103970-01 

-0  945150-02 

0 149700+01 

0 49000D+01 

0. 13479D-02 

46 

0 

0 

0.0 

0.991790-04 

-0 

190270-03  -0 

126240-02 

0 270C6D-02 

0 0 

0 567500+01 

0.991790-04 

47 

0 

0 

0 0 

0 885370-04 

-0 

1 2370D- 04  -0 

110500  02 

0.200610-03 

0.374250+00 

0.567500+01 

0 805370-04 

48 

0 

0 

0 0 

0.87  982D-Q4 

0 

324990-15  -0 

109690-02 

-0 . 23433D-  1 4 

0 740500+00 

0.56750D+01 

0.879020-04 

49 

0 

0 

0 0 

0 88  537D-04 

0 

1 2370D- 04  -0 

110500-02 

-0  208610-03 

0.112270+01 

0 567500+01 

0.685370-04 

50 

0 

0 

0 0 

0 991790-04 

0 

190270-03  -0 

125240-02 

-0  270660-02 

0 149700+01 

0 567500+01 

0.991 79D-04 

51 

0 

0 

0 0 

0. 1 S 9220-04 

-0 

464610-04  -0 

271210-03 

0.697380-03 

0.0 

0.545000+01 

0.199220-04 

273 


52 

0.0 

0.0 

0. 174310-04 

-0.389370-05  -0  234480-03 

0.644090-04 

0 37425D+Q0 

0. 645000+01 

0. 17431D-04 

53 

0.0 

0 0 

0.172620-04 

0 161210-16  -0  231790-03 

-0  544270-15 

0. 748500+00 

0.645000+01 

0. 17262D-04 

54 

0 0 

0 0 

0 174310-04 

0 38937D-05  -0  234480-03 

-0 .64409D-Q4 

0.1 1227D+01 

0.645000+0 1 

0.174310-04 

55 

0.0 

0.0 

0. 199220-04 

0 46461D-04  -0  27121 D-03 

-0  697380-03 

0.149700+01 

0.645000+01 

0. 19922D-04 

56 

0.0 

0 0 

0.51 5190-05 

-0.145190-04  -0.554510-04 

0 161300-03 

0 0 

0 722500+01 

0.51 519D-05 

57 

0 0 

0 0 

0 439620-05 

-0.143710-05  -0  471450-04 

0 165300-04 

0 374250+00 

0.722500+01 

0.439620-05 

59 

0 0 

0 0 

0.433750-05 

0 123400-16  -0  464770-04 

-0  81810D-16 

0 740500+00 

0.722500+01 

0.433750-05 

59 

0 0 

0 0 

0 439620-05 

0 14371D-05  -0  471450-04 

-0. 165380-04 

0. 112270+01 

0.722500+01 

0 439620-05 

60 

0 0 

0 0 

0 51 5190-05 

0 145190-04  -0  554510-04 

-0 .161300-03 

0 149700+01 

0.722500+01 

0.515190-05 

61 

0 0 

0 0 

0.0 

0 0 0 0 

0.0 

0.0 

0 800000+01 

0.0 

62 

0 0 

0 0 

0 0 

0.0  0.0 

0 0 

0 374250+00 

0 800000+01 

0.0 

63 

0.0 

0 0 

0 0 

0.0  0.0 

0 0 

0 74850D+00 

o oooooo+oi 

0.0 

64 

0 0 

0 0 

0 0 

0 0 0 0 

0.0 

0 112270+01 

0 . 80000D+0 1 

0.0 

65 

0 o 

0.0 

0 0 

0 0 0 0 

0.0 

0 149700+01 

0.800000+01 

0.0 

REACTION  FORCES  AT  CONSTRAINED  NODES 


NODE 

RX ( LBS) 

RY(LBS) 

RZ(LBS) 

MX(LBS-IN) 

MY ( LBS-IN) 

MXY (LBS- IN- IN) 

1 

0.  0 

0.0 

0 191080+01 

0. 12929D+00 

0 336970+00 

0.225680-01 

2 

0 0 

0.0 

0 365670+01 

0.601 31D-02 

0.643900+00 

0 131070-02 

3 

0.0 

0 0 

0.369470+01 

-0.363100-14 

0 6500ID+00 

-0  204560-14 

4 

0 0 

0.0 

0 365670+01 

-0  801 310-02 

0 643900+00 

-0  131070-02 

5 

0 0 

0 0 

0 191060+01 

-0  129290+00 

0. 33G97D+00 

-0  225080-01 

61 

0 0 

0.0 

0. 191080t01 

0.129290+00 

-0.336970+00 

-0.225680-01 

62 

0. 0 

0.0 

0 365670+01 

0.801310-02 

-0  643900+00 

-0.131070-02 

63 

0 0 

0 0 

0.369470+01 

0.330050-13 

-0. 650010+00 

-0.603920-14 

64 

0 0 

0.0 

0 365670+01 

-0  001 310-02 

-0.643900+00 

0.131070-02 

65 

0.0 

0 0 

0. 191080+01 

-0  12929D+00 

-0.336970+00 

0.225680-01 

STRAIN  COMPONENTS.  PRINCIPAL(TENSILE)  STRAIN  AND  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN(T)  DIRECTION(DEG. ) 

elem.  inner  outer  inner  outer  inner  outer  inner  outer  inner  outer 

1 -0.10200-05  0 1020D-05  0.29300-05  -0  2930D-05  -0  95210-07  0.952ID-07  0. 29310-05  0 10200-05  -0.893ID+02  0.69050+00 

2 -0. 12040-06  0 12040-06  0.30300-05  -0  30300-05  -0.12640-07  0,12640-07  0.30300-05  0.1204D-06  -0  89890+02  0.11500+00 

3 -0  12040-06  0.1204D-06  0.30300-05  -0  30300-05  0 12640-07  -0.12640-07  0.3030D-05  0 1204D-06  0.89890+02  -0.11500+00 

4 -0  10200-05  0 10200-05  0. 29300-05  -0  2930D-05  0 95210-07  -0  95210-07  Q.2931D-0S  0 1020D-05  0 8931D+02  -0.6905D+00 

5 -0  26530-05  0 26530-05  0.11760-04  -0  1176D-04  -0.1062D-05  0 10620-05  0.11700-04  0 26730-05  -0.87890+02  0.21070+01 

6 -0  26880-06  0 236SD-06  0 12110-04  -0  12110-04  -0  13800-06  0 1380D-06  0.12120-04  0 26910-06  -0  89680+02  0 3193D+00 

7 -0  2638D-06  0 20830-06  0 121  ID-04  -0  121  10-04  0 13B0D-O6  -0  13800-06  0 12120-04  0 26910-06  0 89680+02  -0  31930+00 

8 -0  26530-05  0 26530-05  0 1176D-04  -0  11760-04  0 10620-05  -0.10620-05  0 11700-04  0 26739-05  0 87090+02  -0  21070+01 

9 -0  95900-05  0 95930-05  0 5S20D-04  -0  5517D-04  -0  35540-05  0 35550-05  0 55250-04  0 96470-05  -0  B843D+02  0 1571Dt01 

10  -0  79550-06  0 7955D-06  0 56650-04  -0  56610-04  -0  42190-06  0 42200-06  0 56650-04  0 79630-06  -0  89790+02  0 2106D+00 

11  -0  79550-06  0 79550-06  0 5C650-04  -0  56610-04  0 42190-06  -0  4220D-06  0 56650-04  0 79630-06  0 89790+02  -0.21060*00 

12  -0  95980-05  0 959BD-05  0 55200-04  -0  55I7D-04  0 355.10-05  -0  35550-05  0 55250-04  0 96470-05  0 80430  + 02  -0  15710+01 

13  -0  63630-04  0 6363D-04  0 60230-03  -0  60210-03  -0  12580-04  0 12590-04  0.60240-03  0 63690-04  -0  89460+02  0 54170+00 

14  -0  22599-05  0 22590-05  0 60810-03  -0  60790-03  -0  10850-05  0.10850-05  0 60810-03  0 22590-05  -0  89950+02  0 50940-01 

15  -0  22590-05  0.2259D-05  0 6081D-03  -0  60790-03  0 10860-05  -0  10050-05  0 60810-03  0 22590-05  0 B995D+02  -0  5094D-01 

16  -0  63630-04  0.63630-04  0 60230-03  -0  60210-03  0 12SUD-04  -0  12590-04  0 602 ID-Oj  0 63690-04  0 89460*02  -0  54170+00 

17  0 91720-04  -0  91720-04  -0  12020-02  0 12050-02  -0  I53CD-04  0.I544D-04  0 917GO-04  0 12050-02  -0  34040+00  0 89660+02 

18  0 35710-05  -0  35710-05  -0  12180-02  0 1221D-02  -0.19210-05  0 19230-05  0 35720-05  0 12210-02  -0  45050-01  0 B996D102 

19  0.35710-05  -0  35710-05  -0  12180-02  0 12210-02  0 19210-05  -0  19230-05  0 35720-05  0 12210-02  0 45050-01  -0  09960+02 

20  0 91720-04  -0  91720-04  -0  12020-02  0 12050-02  0 15380-04  -0  15440-04  0 917GD-04  0.12050-02  0.34040+00  -0  89660*02 

21  -0  46080-05  0 4608D-05  0 46220-04  -0  46210-04  0 1I20D-05  -0  11200-05  0 46220-04  0 46140-05  0 89360+02  -0  63580+00 

22  -0  24940-06  0 24940-06  0 48560-04  -0  4E58D-04  0 22630-06  -0  22630-06  0 48580-04  0 24960-06  0 89870+02  “0  13280+00 

23  -0  24940-06  0 24940-06  0 40500-04  -0  4658D-04  -0  22b30-06  0 22630-06  0 48500-04  0 24960-06  -0.89870+02  0 13280+00 

24  -0  460U0-0S  0 46080-05  0 46220-04  -0  4621D-04  -0  11280-05  0 11280-05  0 46220-04  0 46140-05  -0  89360+02  0 63580+00 

25  -0.46080-05  0 460BD-05  0 46220-04  -0  46210-04  -0.1I28D-05  0 11200-05  0 46220-04  0 46140-05  -0  89360+02  0 635BD+00 

26  -0  2 19  10-06  0.2494D-06  0 48500-04  -0  40580-04  -0  22630-06  0.22630-06  0 40580-04  0 249G0-06  -0  89870+02  0 I328D+00 

V 27  -0  2494D-06  0 2494D-06  0 4U50D-04  -0  4856D-04  0 226J0-0G  -0  22GJD-06  0 40580-04  0 24960-06  0 89070+02  -0.1328D+00 

28  -0  46000-05  0 46080-05  0.46220-04  -0  4621D-04  0.11280-05  -0  11200-05  0 46220-04  0.46140-05  0.89360+02  -0.635UD+00 

29  0 91720-04  -0  9!72D-04  -0  12020-02  0 1205D-02  0 15300-04  -0  15440-04  0 91760-04  0 12050-02  0.3404D+00  -0  89660+02 

30  0 3571D-05  -0  357ID-05  -0  12180-02  0.12210-02  0.19210-05  -0  19230-05  0 35720-05  0.12210-02  0.45050-01  -0.09960+02 

31  0 35710-05  -0  35710-05  -0  t2180-02  0 12210-02  -0.19210-05  0 19230-05  0 35720-05  0 12210-02  -0  45050-01  0.89960+02 

32  0.91720-04  -0.9I72D-04  -0  12020-02  0 12050-02  -0. 15380-04  0.15440-04  0.91760-04  0.12050-02  -0.34040+00  0. 09660+02 

33  -0.63630-04  0.63630-04  0 60230-03  -0  60210-03  0.12580-04  -0  12590-04  0.60240-03  0 63690-04  0.8940D+02  -0.5417D+00 


34  -0  22590-05  0. 22590-05  0 60810-03  -0  60790-03  0.10850-05  -0.1085D-05  0.60810-03  0.22590-05  0 89950+02  -0.5094D-01 

35  -0  22590-05  0 22590-05  0.60810-03  -0.60790-03  -0.10850-05  0.1085D-05  0.6081D-03  0.22590-05  -0.89950+02  0.50940-01 

36  -0  63630-04  0 63630-04  0.60230-03  -0  60210-03  -0  12500-04  0.1259D-04  0.6024D-03  0 6369D-04  -0.8946D+02  0.54170+00 

37  -0  95900-05  0 95900-05  0 55200-04  -0.55170-04  0 35540-05  -0  3555D-05  0.55250-04  0 96470-05  0 8843D+02  -0.157ID+O1 

38  -0  79550-08  0.79550-06  0.56650-04  -0  56610-04  0 42190-06  -0.4220D-06  0.56650-04  0.79630-06  0 8979D+02  -0.21060+00 

39  -0  79550-06  0 79550-06  0 56650-04  -0  56610-04  -0  42190-06  0 42200-06  0 5665D-04  0 7963D-06  -0.89790*02  0 21060+00 

40  -0.95980-05  0 95980-05  0.55200-04  -0  55170-04  -0  35540-05  0 35550-05  0 55250-04  0 96470-05  -0  8B43D+02  0.15710+01 

41  -0  26530-05  0 20530-05  0 11760-04  -0  11760-04  0.10620-05  -0  1062D-05  0 11780-04  0.26730-05  0 0789D+02  -0  21070+01 

42  -0  26880-06  0 26880-06  0.121 10-04  -0  12110-04  0.13800-06  -0  13800-06  0 1212D-04  0 26910-06  0 B968D+02  -0  31930+00 

43  -0  26880-06  0 2G88D-06  0 12110-04  -0  12110-04  -0  13800-06  0.13800-06  0 12120-04  0 26910-06  -0  89680+02  0.31930+00 

44  -0  26530-05  0 26530-05  0 11760-04  -0  11760-04  -0.10620-05  0 10620-05  0.11780-04  0.2673D-05  -0.8709D+02  0.2107D+0I 

45  -0  10200-05  0 10200-05  0 2930D-05  -0  29300-05  0 95210-07  -0  95210-07  0 29310-05  0.10200-05  0 69310+02  -0  69050+00 

46  -0  12040-06  0 1204D-06  0 30300-05  -0  30300-05  0 12640-07  -0  12640-07  0 30300-05  0.12040-06  0 8989D+02  -0.1150D+00 

47  -o  12040-06  0 12040-06  0.30300-05  -0  30300-05  -0  12640-07  0 12640-07  0 30300-05  0.1204D-06  -0  B909D+02  0.1150D+00 

48  -0  10200-05  0.10200-05  0 29300-05  -0  29300-05  -0  95210-07  0 952  ID-07  0 29310-05  0.10200-05  -0  8931D+02  0. 69050+00 

STRAIN  COMPONENTS.  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN(T)  01 RECT ION( DEO . ) 

NODE  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

33  -0.24360-06  0 24360-06  -0  62640-04  0 62640-04  0 32500-14  -0  32500-14  0 0 0.6264D-04  0 0 -0.90000+02 

35  0.10370-04  -0.10370-04  -0  79350-04  0 79350-04  0 25600-14  -0.25660-14  0.10370-04  0 79350-04  0. 81960-09  -0.90000+02 

38  0 24450-05  -0  24450-05  0 21330-03  -0  21310-03  0 19400-14  -0  1941D-14  0 21330-03  0 0 0.90000+02  0.0 

40  0 13700-04  -0.13700-04  0 27890-03  -0  27860-03  0 12730-03  -0  12720-03  0.29340-03  0 78510-06  0.77180+02  -0.12830+02 

48  -0  21600-05  0 21600-05  -0  36390-03  0 36510-03  -0  2394D-15  0 23870-15  0.0  0 36510-03  0.0  0. 90000+02 

50  0 83850-04  -0  83820-04  -0.40050-03  0.40210-03  -0.27630-03  0.27500-03  0.12050-03  0 43B5D-03  -0.14050+02  0.75210+02 


STRAIN  COMPONENTS,  PRINC 1PAL( T ENSI LE ) STRAIN  ANO  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT 

NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ElONG  (DIR  1) 

ELONG  (DIR  2) 

PRINC  STRN(T) 

OIRECTIONfOEG. ) 

1 

INNER 

0 

0 

-0  390720-05 

0 

0 

0 0 

-0  390720-05 

0 0 

0 0 

t 

OUTER 

0 

0 

0 390720-05 

0 

0 

0 0 

0.39072D-05 

0 39072D-05 

0.900000+02 

2 

INNER 

0 

731240-07 

-0  311950-06 

-0 

990240-17 

0 731240-07 

-0  31 195D-06 

0.731240-07 

-9.73671D-09 

A 

2 

OUTER 

-0 

731240-07 

0 312010-06 

0. 

,990260-17 

-0  7J1240-07 

0 3I20ID-06 

0 312010-06 

0.900000+02 

3 

INNER 

“0 

155750-06 

-0  807990-05 

-0 

5221 10-16 

-0  1'. 5750-06 

-0  807990-05 

0 0 

0 0 

3 

OUTER 

0 

1 55750-06 

0.808250-05 

0 

522090-16 

0 1‘. 5750-06 

0.808240-05 

0 808250-05 

0 900000+02 

4 

INNER 

-0 

370630-06 

-0  233290-04 

-0 

192240-15 

-0  3. 0680-06 

-0  233290-04 

0 0 

0 0 

4 

OUTER 

0 

370680-06 

0 233870-04 

0 

192210-15 

0 370680-06 

0 23387D-04 

0 233870-04 

0 900000+02 

5 

INNER 

-0 

109690-05 

0 .138790-03 

-0 

176320-15 

-0. 10969D-05 

0. 138780-03 

0.138790-03 

-0.90000D+02 

5 

OUTER 

0 

1 09690-05 

-0 .137200-03 

0 

175460-15 

0 104690-05 

-0.137210-03 

0 109690-05 

0,363470-10 

6 

INNER 

-0 

243610-06 

-0 .626360-04 

0 

324980-14 

-0  243610-06 

-0.626380-04 

0 0 

0 0 

6 

OUTER 

0 

243610-06 

0 626360-04 

-0 

324980-14 

0 213610-06 

0 626340-04 

0 626360-04 

-0  900000+02 

7 

INNER 

-0 

1 09GSD-05 

0 138790-03 

0 

566930-15 

-0  104690-05 

0. 138700-03 

0.138790-03 

0 900000+02 

7 

OUTER 

0 

1 09G9D- 05 

-0 .137200-03 

-0 

568050-15 

0 104690-05 

-0  137210-03 

0 109690-05 

-0  1 1 7670-09 

8 

INNER 

-0 

370680-06 

-0  233290-04 

0 

25099D-16 

-0  3/0680-06 

-0  233290-04 

0.0 

0 0 

8 

OUTER 

0 

370080-06 

0 233870-04 

-0 

2508uD- l 6 

0 3/0660-06 

0 233870-04 

0 233870-04 

-0  90000D+02 

9 

INNER 

-0 

1 55750-06 

-0  807990-05 

0 

168110-16 

-0. 155750-06 

,-0 . 80799D-05 

0 0 

0 0 

9 

OUTER 

0 

1 55750-06 

0 808250-05 

-0 

1681 10-16 

0. 15575D-06 

0.800240-05 

0 808250-05 

-0. 900000+02 

10 

INNER 

0 

731240-07 

-0  311950-06 

0 

775920-18 

0 731240-07 

i -0  31 195D-06 

0 731240-07 

0.577260-10 

10 

OUTER 

-0 

731240-07 

0 312010-06 

-0 

775940-10 

-0.731240-07 

0 31201 D-06 

0.312010-06 

-0. 900000+02 

1 1 

INNER 

-0 

1 24400-22 

-0 .39C720-0S 

0 

869100-21 

0.0 

-0.390720-05 

0 0 

0.0 

1 1 

OUTER 

0 

1 24400-22 

0 .390720-05 

-0 

069100-21 

0.0 

0.390720-05 

0.390720-05 

-0.90000D+02 

SYSTEM  ENERG I ES( IN-LB) 

WORK  INPUT  TO  STRUCTURE  * 0.40116400+03 
STRUCTURE  KINETIC  ENERGY  « 0 14566890+03 
STRUCTURE  ELASTIC  ENERGY  - 0. 11276710+01 
STRUCTURE  PLASTIC  ENERGY  . 0.25436750+03 
ENERGY  STORED  IN  ELASTIC  RESTRAINTS*  0 0 


TIME*  0.5000000-05  SEC. 

EXTERNALLY  APPLIED  USER  SPECIFIED  LOADING 

NODE  DOF*  t DOF*  2 D0F»3  00F*4  D0F*5  00F*6 

(LBS)  (LBS)  (LBS)  (IN-LBS)  (IN-LBS)  (IN-LBS) 


1 

0.0 

0.0 

0 

0 

0. 

0 

0.0 

0 

0 

2 

0.0 

0 0 

0 

0 

0. 

0 

0.0 

0 

0 

3 

0.0 

0.0 

0 

0 

0. 

0 

0.0 

0 

0 

4 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

5 

0 0 

0.0 

0 

0 

0. 

0 

0.0 

0 

0 

6 

0.0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

7 

0 0 

0.  0 

0 

0 

0 

0 

0 0 

0 

0 

B 

0 0 

0.  0 

0 

0 

0 

0 

0 0 

0 

0 

9 

0.0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

10 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

11 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

12 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

13 

0 0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

14 

0 0 

0 0 

0 

0 

0. 

0 

0 0 

0 

0 

15 

0.0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

16 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

17 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

18 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

19 

0 0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

20 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

21 

0 0 

0.  0 

0 

738805D+03 

0. 

4608300+02 

0.5541040+02 

0 

3456220+01 

22 

0 0 

0 0 

0 

1477610+04 

0. 

0 

0 1108210+03 

0 

0 

23 

0 0 

0. 0 

0 

147761D+04 

0 

0 

0 1108210+03 

0 

0 

24 

0 0 

0 0 

0 

1477610+04 

0 

0 

0 1108210+03 

0 

0 

25 

0 0 

0 0 

0 

7388050+03 

*0 

4608300+02 

0 5541040+02 

-0 

3456220+01 

26 

0 0 

0.0 

0 

1477610+04 

0 

9216600+02 

0.0 

0 

0 

27 

0 0 

0 0 

0 

2055220+04 

0 

0 

0 0 

0 

0 

23 

0 0 

0.0 

0 

295522D+0  4 

0 

0 

0 0 

0 

0 

29 

0 0 

0.0 

0 

2955220+04 

0 

0 

0 0 

0 

0 

30 

0 0 

0.0 

0 

1477610+04 

-0 

9216600+02 

0 0 

0 

0 

31 

0.0 

0 0 

0 

1477610+04 

0 

9216600+02 

0 0 

0 

0 

32 

0 0 

0.0 

0 

2955220+04 

0 

0 

0.0 

0 

0 

33 

0 0 

0.0 

0 

2955220*04 

0 

0 

0 0 

0 

0 

34 

0 0 

0 0 

0 

2955220*04 

0 

0 

0 0 

0 

0 

35 

0 0 

0.  0 

0 

1477610*04 

-0 

9216600+02 

0 0 

0 

0 

36 

0 o 

0 0 

0 

1477610*04 

0 

9216600+02 

0.0 

0 

0 

37 

0.0 

0 0 

0 

295522D+04 

0 

0 

0 0 

0 

0 

38 

0 0 

0.0 

0 

2955220*04 

0 

0 

0 0 

0 

0 

39 

0 0 

0 0 

0 

2955220+04 

0 

0 

0 0 

0 

0 

40 

0.0 

0.0 

0 

1477610*04 

-0 

9216600+02 

0 0 

0 

0 

41 

0 0 

0.0 

0 

73B805D+03 

0 

4608300+02 

-0  5541040+02 

-0 

3456220+01 

42 

0 0 

0 0 

0 

1477610*04 

0 

0 

-0  1108210+03 

0 

0 

43 

0.0 

0.0 

0 

1477610+04 

0 

0 

-0  1108210+03 

0 

0 

44 

0.0 

0.0 

0 

1477610+04 

0 

0 

-0  1100210+03 

0 

0 

45 

0 0 

0 0 

0 

7386050+03 

-0. 

4608300+02 

-0  5541040+02 

0 

3456220+01 

46 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

47 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 

0 

48 

0 0 

0.0 

0 

0 

0 

0 

o q 

0 

0 

49 

0.0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

50 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

51 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

52 

0.0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

53 

0 0 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

54 

0 0 

0 0 

0 

0 

0 

0 

0,0 

0 

0 

55 

0 o 

0.0 

0 

0 

0 

0 

0 0 

0 

0 

56 

0.0 

0 0 

0 

0 

0 

0 

0.0 

0 

0 

57 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

58 

0 0 

0.  0 

0 

0 

0 

0 

0 0 

0 

0 

59 

0 0 

0 0 

c 

0 

0 

0 

0 0 

0 

0 

60 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

61 

0.0 

0 0 

0 

0 

0. 

0 

0 0 

0 

0 

62 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

63 

0 0 

0 0 

0 

0 

0. 

0 

0 0 

0 

0 

64 

0.0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

65 

0.0 

0.0 

0 

0 

0. 

0 

0.0 

0 

0 
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INCR.  NO.*  2 TIME*  0.50000-05  SEC. 


NODE 

U 

V 

w 

PSIX 

PSIY 

TWIST 

X-POS. 

Y-PQS* 

2 

1 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

0 0 

0 0 

0 0 

0.0 

0.0 

0.0 

0.374250+00 

0.0 

0.0 

3 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0. 748500+00 

0.0 

0.0 

A 

0 0 

0 0 

0 0 

0 0 

0 0 

0 o 

0.1 12270+01 

0.0 

0.0 

5 

0.0 

0 0 

0 0 

0 0 

0.0 

0.0 

0. 149700+01 

0.0 

0.0 

6 -0  320550-07  0 174510-07  0 750920-08  -0  144770-04  -0  449670-05  -0  151870-03  -0.320550-07  0.77500D+00  0.750920-08 

7 0 6932 30-08  -0  136930-07  -0  472000-06  -0  266890-05  -0  903740-05  -0  301240-04  0.374250400  0 775000400  -0.472000-06 

8 -0  477200-21  0 866800-08  -0  64130D-06  -0  110250-17  -0  108750-04  -0  361940-16  0.748500400  0 775000+00  -0.641300-06 

9 -0  693230-08  -0  136939-07  -0  472000-06  0 266890-05  -0  903740  05  0 301240-04  0.112270+01  0.77500D+00  -0.47200D-06 

10  0 320550-07  0 174510-07  0 750920-08  0 144770-04  -0  449670*05  0.151870-03  0.149700+01  0.77500D+00  0.75092D-08 

11  0 267450-06  0 106130-06  0 987130-05  -0.718060-04  0 630720-04  -0  864320-03  0 26745D-06  0 155000+01  0 9B713D-05 

12  0 296500-07  0 175360-06  0 655690-05  -0  83G95D-05  0 292900-04  -0  12722D-03  0.374250*00  O.I55O0D+OI  0.655890-05 

13  0 18118D-20  0 120640-06  0590730-00  0 120390-16  0 203940-04  0 37937D-16  0.748500*00  0.I5500D+OI  0.59073D-05 

14  -0  296600-07  0 175360-06  0 655890-05  0 830950-05  0 292900*04  0 127220-03  0.112270+01  0 15500D+01  0 655890-05 

15  -0  267450-06  0 106130-06  0 SB7I30-05  0 718060-04  0 636720*04  0 864320-03  0 14970D+01  0.155000+01  0.987130-05 

16  -0  381600-03  0 219930-05  0 16e67D-03  -0  554830-03  0 129040-02  -0  562780-02  -0  38160D-06  0 232500+01  0.16067D-03 

17  0 275000-08  0 185330-05  0 132470-03  -0.344720-04  0 978510-03  -0  490990-03  0 374250+00  0 232500+01  0.132470-03 

18  -0  879130-20  0 195840-05  0 129460-03  0 256250-16  0 938670-03  0 616060-15  0 748500+00  0.232500+01  0.129460-03 

19  -0  2750 0D-08  0 105330-05  0.132470-03  0 344720-04  0 978510-03  0 490990-03  0 U227D  + 01  0 232500  + 01  0 132470-03 

20  0 301600-06  0 219930-05  0 168670-03  0 554830-03  0 129840-02  0 562700-02  0 149700+01  0 232500+01  0.160670-03 

2t  0 339720-05  0 226350-06  0 498340-02  -0  219070-03  0 345040-01  -0  330450-01  0 339720-05  0.310000+01  0 490340-02 

22  0 83C890-06  0 217070-06  0 497150-02  -0  103100-04  0 320720-01  -0  18330D-03  0 374250+00  0 310000+01  0.497I5D-02 

23  0 495780-19  0 206950-06  0 497030-02  0 296640-15  0 321190-01  0 32II0D-14  0 74U50D+00  0 3IOOOD+OI  0.497030-02 

24  -0  836040-06  0 217070-06  0 497150-02  0 103100-04  0 320720-01  0 18330D-03  0.11227D+0I  0 310000+01  0. 497150-02 

25  -0  339720-05  0 228390-06  0 498310-02  0 219070-03  0 345040-01  0.330450-01  0 14970D*01  0 310000*01  0.49034D-02 

26  0 181290-07  -0  289430-05  0.103050-01  -0  106640-02  -0  308500-02  0.11445D-01  0 18I29D-07  0 355000  + 01  0.103050-01 

27  0 228260-06  -0  243710-05  0.102060*01  0 944120-04  -0  217040-02  -0.149220-03  0 374250+00  0 355000+01  0.102060-01 

28  -0  286240-19  -0  232170-05  0 102190-01  0 413600-15  -0  220010-02  0.180l40-t3  0 748500+00  0 35500D+01  0.102190-01 

29  -0  223260-06  -0  248710-05  0 102060-01  -0.S4412D-04  -0  217040-02  0.149220-03  0.112270*01  0 35500D+01  0 102060-01 

30  -0  181290-07  -0  289430-05  0 103050-01  0 106840-02  -0  308500-02  -0.114450-01  0 149700+01  0 355000+01  0.103050-01 

31  0 768710-06  0.340530-19  0 963030-02  0 709540-04  -0  UG3020-I5  0-34514D-13  0 768740-06  0.400000+01  0.983080-02 

32  0.787260-07  0 8443**0-20  0 984000-02  -0  794780-05  0 641850-16  0.273I5D-13  0 374250  + 00  0 40000D+0I  0.984000-02 

33  0 173330-19  0 586310-20  0 983950-02  0 64B35D-16  -0  161330-15  0 24703D-I3  0 748500+00  0 400000+01  0.98395D-02 

34  -0  787230-07  0 118320-19  0 98400D-02  0 794780-05  -0  400720-15  0.14564D-I3  0 112270+01  0 400000+01  0.984000-02 

35  -0  763740-05  0.181320-20  0 983080-02  -0  709540-04  0 067360-17  0.100640-13  0 14970D+0I  0 400000*01  0.983080-02 

36  0 101290-07  0 2b'J43D-05  0 103050-01  -0  106610-02  0 3C3S0D  02  -0  U415D-0t  0 101290-07  0 445000+01  0 103050-01 

37  0 2202  00-06  0 248710-05  0 102060-01  0 944120-04  0 217040-02  0 149220-03  0 37425D  + 00  0 44500D  + 01  0.102060-01 

38  -0  191810-19  0 262170-05  0 I0219D-CI  -0  240690-15  0 220010-02  0.216470-13  0 748500*00  0 445000+01  0 102190-01 

39  -0  220260-06  C 240710-05  0 10206D-01  -0  914120-04  0 217040-02  -0. 149220-03  0 I1227D+01  0 44500D+0I  0 10206D-01 

40  -0  181290-07  0 283130-05  0 103050-01  0 106640-02  0 308500-02  0.114450-01  0 149700+01  0 445000+01  0.103050-01 

41  0 339720-05  -0  228390-06  0 490340-02  -0  219070-03  -0  34504D-0I  0 330450-01  0 339720-05  0 490000+01  0.498340-02 

42  0 83C89D-06  -0  217070-06  0 497150-02  -0  183100-04  -0  320720-01  0.183300-03  0 374250+00  0 490000+01  0.497150-02 

43  0 152840-18  -0  206950-06  0 497030-02  -0  235810-15  -0  321190-01  -0.30340D-14  0.748500+00  0 490000+01  0.497030-02 

44  -0  036890-06  -0  217070-06  0 497150-02  0.1831CD-04  -0  320720-01  -0  183300-03  0.11227D+01  0 490000+01  0 497150-02 

45  -0  339720-05  -0  2283**0-06  0 4983-.0-02  0 219070-03  -0  315040-01  -0.33045D-01  0.149700+01  0 490000+01  0.498340-02 

46  -0  381600-06  -0  219930-05  0 168570-03  -0  554830-03  -0  129840-02  0 562780-02  -0  38160D-06  0 567500+01  0.168670-03 

47  0 275000-03  -0  1G533D-05  0 1324~D-03  -0  344720-04  -0  97fa510-03  0 490990-03  0 374250+00  0 567500+01  0 132470-03 

48  -0  366000-19  -0  195640-05  0 1294uQ-03  0 563890-16  -0  938670-CJ  0 320960-15  0 74050D+00  0 56750D+01  0 129460-03 

49  -0  275000-08  -0  18533D-05  0 132470-03  0 344720-04  -0  970510-03  -0  490990-03  0 112270.01  0 567500+01  0. 132470-03 

60  0 381600-06  -0  219930-05  0 1606,0-03  0 564830-03  -0  129840-02  -0  562780-02  0 I4970D+0I  0 56750D+OI  0.I6BG7D-03 

51  0 267460-06  -0  106130-06  0 907130-05  -0  710060-04  -0  G3G72D-C4  0 064320-03  0 267450-06  0 645000*01  0.987I3D-05 

52  0 296G0O-07  -0  175360-06  0 655090-05  -0  836950-05  -0  292900-04  0 127220-03  0.37425D+00  0 64500D+01  0.655890-05 

53  c 778460-20  -o  120840-06  0 590730-05  -0  109630-16  -0  203940-04  0.336300-15  0 74850D+00  0 64500D+01  0.590730-05 

54  -0  29C6C0-07  -0.175  360-06  0 6556**0-05  0 036950-05  -0  292900-04  -0  12722D-03  0 1 12270  + 01  0 64500D+01  0 655890-05 

55  -0  267460-06  -0  106130-06  0 9S7130-05  0 718060-04  -0.636720-04  -0  864320-03  0. 149700+01  0 645000+01  0. 987130-05 

56  -0  320550-07  -0  174510-07  0 750920-08  -0  144770-04  0 449670-05  0 151870-03  -0  32055D-07  0.722500*01  0.750920-08 

57  0.693230-08  0 136930-07  -0  472000-06  -0  266090-05  0 903740-05  0 30124D-04  0 37425D+00  0 722500+01  -0.472000-06 

59  -0.254990-20  -c  865600-08  -0  641300-06  -0  810900-17  0.108750-04  0.577720-16  0.748500+00  0 722500*01  -0.641300-06 

59  -0  693230-08  0 136930-07  -0  472000-06  0 266890-05  0 903740-05  -0.301240-04  0 112270+01  0.722500+01  -0.472000-06 

60  0 320550-07  -0.174510-07  0 750920-08  0 14477D-04  0 449670-05  -0  1S187D-03  0 149700+01  0 72250D+OI  0. 750920-08 


61 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 800000+01 

0.0 

62 

0 0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 . 37425D+00 

o.eooooD+oi 

0.0 

63 

0.0 

0 0 

0 0 

0 0 

0 0 

0.0 

0.748500*00 

0.800000+01 

0.0 

I 
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1 


i 


i 


i 


64  0 

.0  0.0 

0.0 

0.0 

0.0 

0.0 

0.112270+01  0.800000+01 

0.0 

65  0 

.0  0 0 

0 0 

0.0 

0 0 

0.0 

0.149700+01  0.800000+01 

0.0 

REACTION  FORCES  AT  CONSTRAINED  NODES 

NODE 

RX(IBS) 

RY(LBS) 

RZ  ( LBS ) 

MX(LBS-IN) 

MY( LBS-IN) 

MXY( LBS-IN-IN) 

1 

-0  1 43900 -0 1 

0. 218190-02 

0. 

,342600+01 

0 222 19D+00 

0 5975SD+00 

0. 390430-01 

2 

0 197120-01 

-0  125780-01 

0 

657870+01 

0 123190-01 

0. 1 14440+01 

0.214940-02 

3 

-0  866490-15 

0.825240-02 

0 

663550+01 

0 21 1 570-12 

0.  1 t548D  + 0t 

0 379840-13 

4 

-0. 19712D-Q1 

-0  125780-01 

0. 

.657870+01 

-0.123190-01 

0. 1 14440+01 

-0. 21 494D-02 

5 

0. 148900-01 

0.218190-02 

0 

342600+01 

-0.222190+00 

0. 597S5D+00 

-0.390430-01 

61 

-0.  140900-01 

-0  218190-02 

0 

342600+01 

0.222190+00 

-0.597550+00 

-0  39043D-01 

62 

0 197120-01 

0 12S78D-01 

0 

657870+01 

0 1231 90-01 

-0  114440+01 

-0  214940-02 

63 

-0. 3647QD-14 

-0  825240-02 

0. 

.663550+01 

0 576080-13 

-0.115480+01 

-0. 1 1Q0QD-13 

64 

-0. 19712D-01 

0.125780-01 

0 

657870+01 

-0  123190-01 

-0. 1 14440+01 

0.214940-02 

65 

0.  14890D-01 

-0  218190-02 

0 

342600+01 

-0.222190+00 

-0.597550+00 

0.390430-01 

STRAIN 

COMPONENTS  » PR INC  I PAL( T ENSl LE ) 

STRAIN  ANO  DIRECTION  AT  CENTROIO  OF  EACH  ELEMENT 

EPS-X  STRAIN 

EPS- 

-Y  STRAIN 

SHEAR 

STRAIN 

PRINC.  STRAIN(T) 

directionideo.) 

ElEM. 

INNER 

OUTER  INNER 

OUTER 

INNER 

OUTER 

INNER  OUTER 

INNER 

OUTER 

1 -0.750 60-06  0 85480-06  -0  81770-06  0 82250-06  -0.20710-06  0 1715D-06  0.0  0 92590-06  0.0  0.39680402 

2 -0  22510-06  0 20660-06  -0.75120-06  0 74470-06  0 27860-07  0.4083D-07  00  0 74540-06  0.0  0.87830402 

3 -0  22510-06  0.20660-06  -0  75120-06  0 74470-06  -0  27860-07  -0  40830-07  00  0 74540-06  0.0  -0.87830402 

4 -0.75060-06  0 8S4BD-06  -0  81770-06  0 82250-06  0 28710-06  -0.17150-06  00  0 92590-06  00  -0  39680402 

5 -0  32620-05  0 27310-05  0.17890-05  -0  14300-05  -0.23750-05  0 28930-05  0 20540-05  0 3I84D-05  -0.77410402  0.17400402 

6 -C  576 50-06  0 4d00D-06  0 21850-05  -0  17970-05  -0  34600-07  -0  2198D-07  0 2186D-05  0. 48080-06  -0.89640402  -0.27650400 

7 -0  57050-06  0 48080-06  0 21850-05  -0  17970-05  0 34600-07  0 21980-07  0 21860-05  0 48080-06  0 89640402  0.27650400 

8 -0  32620-05  0 27310-05  0 17890-05  -0  14300-05  0 23750-05  -0  28930-05  0 20540-05  0 3104D-05  0 77410402  -0.1740D402 

9 -0  18110-04  0 . 1 850D-04  0 60750-04  -0  S580Q-04  -0  10820-04  0 92030-05  0 61120-04  0 18780-04  -0  86100402  0.35270401 

10  -0  19270-05  0 19400-05  0 62590-04  -0  58060-04  0 51200-06  -0  41170-06  0 62600-04  0 18410-05  0 89770402  -0.19690400 

11  -0  19270-05  0.18400-05  0 62590-04  -0  58060-04  -0  51200-06  0 41170-06  0 62600-04  0.1841D-0S  -0.89770402  0.1969D400 

12  -0  18110-04  0.18500-04  0 60750-04  -0  55880-04  0.10020-04  -0  92030-05  0 61120-04  0 18700-04  0 86100402  -0.3527D40I 

13  -0  31980-03  0 31400-03  0.20290-02  -0  20320-02  0.35000-04  -0  29650-04  0 2029D-02  0 31410-03  0 89570402  -0.36210400 

14  0 6537D-05  -0  8700D-05  0 20480-02  -0  20520-02  -0  38220-05  6 50890-05  0.204UD-02  0 0 -0.89950402  0.0 

15  0 6537D-05  -0  87800-05  0 204BD-02  -0  20520-02  0 3822D-05  -0  50890-05  0 20480-02  00  0 89950402  0.0 

16  -0  31 90D-03  0 3140D-03  0 20290-02  -0  20320-02  -0  35060-04  0 29650-04  0 2029D-02  0 31410-03  -0.89570402  0 36210400 

17  0 43040-03  -0  43670-03  -0  37910-02  0 38790-02  -0  46720-04  0 34920-04  0 4306D-03  0 38790-02  -0.31700400  0 89770402 

18  -0  63470-05  0 35010-05  -0  38410-02  0 39290-02  0 41600-05  -0  52970-05  00  0 39290-02  0.0  -0.89960402 

19  -0  63470-05  0 35010-05  -0  384  10-02  0 39290-02  -0  4lti00-05  0 62970-05  0.0  0 39290-02  0 0 0 89960402 

20  0 43010-03  -0  43670-03  -0  37910-02  0 38790-02  0 46720-04  -0  34920-04  0 43060-03  0 38790-02  0 31700400  -0.69770402 

21  -0  15000-04  0 14520-04  0 24250-03  -0  23010-03  0 39020-04  -0  36570-04  0 24400-03  0 15880-04  0 85710402  -0  42520401 

22  -0  51580-05  0.43370-05  0 25440-03  -0  24250-03  -0  68690-05  0 61660-05  0 25440-03  0 43760-05  -0  B924D402  0 71550400 

23  -0  51580-05  0 43370-05  0 25440-03  -0  24250-03  0 68690-05  -0  61660-05  0 2S44D-03  0 43760-05  0 89240402  -0  71550400 

24  -0  1S00D-C4  0.14520-04  0 24250-03  -0  23010-03  -0  39020-04  0 36570-04  0.24400-03  0 15880-04  -0  85710402  0.42520401 

25  -0  15800-04  0 14520-04  0 24250-03  -0  23010-03  -0.39020-04  0 3o57D-04  0 24400-03  0.15880-04  -0  86710402  0 42520401 

26  -0  51580-05  0 43370-05  0 25440-03  -0  24250-03  0 68690-05  -0  61CGD-05  0 2544D-03  0 43760-05  0 89240+02  -0.71550400 

27  -0  51580-05  0 43370-05  0 25440-03  -0  24250-03  -0  63690-05  0 6166D-05  0 2544D-C3  0.43760-05  -0.89240+02  0 71550+00 

28  -0  15800-04  0 14520-04  0 24250-03  -0  23010-03  0 39020-04  -0  3607D-04  0 24400-03  0 15000-04  0 85710+02  -0.4252D+01 

29  0 43040-03  -0  4J67D-03  -0  37910-02  0 38790-02  0 46720-04  -0  31920-04  0 43050-03  0 38790-02  0 31700+00  -0.89770+02 

30  -0  63470-05  0 35010-05  -0  38410-02  0 39290-02  -0  41600-05  0 52970-05  00  0 39290-02  00  0 8996Dt02 

31  -0  63470-05  0 35010-05  -0  38410-02  0 39290-02  0 41600-05  -0  52970-05  00  0 3929D-02  00  -0  89960+02 

32  0 43040-03  -0  43670-03  -0  37910-02  0 30790-02  -0  46720-04  0 34920-04  0.4306D-03  0 38790-02  -0  3I70D+00  0 09770+02 

33  -0  31980-03  0 3I40D-03  0 20290-02  -0  20320-02  -0  350GD-04  0 29660-04  0 20290-02  0 31410-03  -0  89570+02  0.3621D+00 

34  0 65370-05  -0  37800-05  0 20480-02  -0  20520-02  0 38220-05  0 50890-05  0 204BD-02  00  0 89950+02  0 0 

35  0 65370-05  -0.87600-05  0 20480-02  -0  20520-02  -0  38220-05  0 50890-05  0 20400-02  00  -0  89950+02  0.0 

36  -0  31980-03  0 31408-03  0 20290-02  -0  20320-02  0 35060-04  -0  26650-04  0 20290-02  0 3I41D-03  0.0957D+02  -0  36210+00 

37  -0  181  ID-04  0.13500-04  0 G075D-04  -0  55800-04  0 10020-04  -0  92030-05  0 6112D-04  0 1878D-04  0 B6IOD+02  -0.3527D+01 

38  -0  19270-05  0 1810D-0S  0 62590-04  -0  50060-04  -0  51200-06  0 41170-06  0 6260D-04  0.1B41D-05  -0  89770+02  0.19690+00 

39  -0.1927D-05  0 18400-05  0 62590-04  -0  50060-04  0 51200-06  -0  41170-06  0.6260D-04  0.18410-05  0 89770+02  -0.1969D+00 

40  -0  18110-04  0.18500-04  0 60750-04  -0  55880-04  -0  10020-04  0 92030-05  0 6I12D-04  0 18780-04  -0  06100+02  0. 35270+01 

41  -0  32620-05  0 27310-05  0 17890-05  -0  14300-05  0 23750-05  -0  28930-05  0 2054D-05  0. 31840-05  0.77410+02  -0.17400+02 

42  -0  57050-06  0 4U000-06  0 21350-05  -0  17970-05  0 34600-07  0.21900-07  0 21860-05  0. 48000-06  0 89640+02  0.27650+00 

43  -0  57850-06  0 43060-06  0 21850-05  -0  17970-05  -0  31600-07  -0  21980-07  0 21060-05  0 48080-06  -0  89040+02  -0.2765D+00 

44  -0  32620-05  0 27310-05  0.17690-05  -0  14300-05  -0  23760-05  0 2893D-05  0 20540-05  0.31840-05  -0.7741D+02  0.17400+02 

45  -0.76060-06  0.85480-06  -0  81770-06  0.82250-05  0.28710-06  -0.17150-06  0.0  0.92590-06  0.0  -0.39680+02 


46 

-0.225  ID-06 

0 2066D-06  -0.751 2D-06 

0.7447D-06 

-0  2 "’S  60-07 

-0.4083D-07 

0.0 

0 . 7454D-06 

0.0 

-0.87830+02 

47 

-0.225 10-06 

0 2066D-06  -0  751 2D-06 

0 7447D-06 

0.27860-07 

0.40830-07 

0.0 

0.7454D-06 

0.0 

0 . 8783D+02 

48 

-0  75060-06 

0 8548D-06  -0.8177D-06 

0 82250-06 

-0.2871D-06 

0.17150-06 

0.0 

0.92590-06 

0.0 

0 . 39680+02 

STRAIN 

COMPONENTS, 

PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER- SPEC  I F I ED 

NODES 

EPS- 

X STRAIN  EPS- 

Y STRAIN 

SHEAR  STRAIN 

PRINC.  STRAIN(T) 

DIRECTION(DEG 

NODE 

INNER 

OUTER  INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER  OUTER 

33 

-0  1097D-05 

0 6767D-06  0 8008D-04 

-0.6843D-04 

0 25200-14 

-0. 2520 D- 14 

0.8008D-04 

0 . 6767D-06 

0.9000D+02  -0.1045D-08 

35 

-0  1026D-04 

0 1458D-04  0.24190-04 

-0  1132D-04 

0 . 10260-14 

-0. 1 02  CD- 1 4 

0.24190-04 

0. 1458D-04 

0.9000D+02  -0 . 1 1 35D-08 

38 

-0  13380-05 

0.11BOD-06  -0  6095D-03 

0 6139D-03 

0.2208D-14 

-0.2208D-14 

0.0 

0.61390-03 

0.0 

-0 . 9000D+02 

40 

0.3407D-03 

-0  3334D-03  -0.46460-03 

0. 47360-03 

0 11690-02 

-0. 1 166D-02 

0.64780-03 

0 . 7780D-03 

0.27720+02  -0.6243D+02 

48 

-0  2628D-05 

0 231 3D-0S  -0. 91020-03 

0 91 1 10-03 

0.33380-16 

-0.33720-16 

0.0 

0.911  ID-03 

0.0 

-0.9000D+02 

50 

0.2339D-03 

-0  2316D-03  -0.1079D-02 

0 108  ID-02 

-0.57370-03 

0 5744D-03 

0 . 2938D-03 

0.11410-02 

-0 . 1 1 80D+02  0.781 8D+02 

STRAIN  COMPONENTS,  PR  INC  I PAL(  T ENS I LE ) STRAIN  AND  DIRECTION.  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT  NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (DIR. 1 ) 

ELONG. (DIR. 2) 

PRINC.  STRN(T) 

DIRECTI ON (DEG.) 

1 

INNER 

0 

473920-43 

0 . 1 1 157D-05 

-0.615740-21 

0.0 

0. 1 1 157D-05 

0.111 57D-05 

-0.900000+02 

1 

OUTER 

0 

473920-43 

-0 . 109340-05 

-0  615740-21 

0.0 

-0.109340-05 

0.0 

0 0 

2 

INNER 

0 

967530-07 

0 1 /628D-06 

0 154190-07 

0 9G753D-07 

0. 17628D-06 

0.177030-06 

0.845140+02 

2 

OUTER 

-0. 

1 06310-06 

-0 . 153910-06 

0.154190-07 

-0  10631D-06 

-0. 15391 0-06 

0.0 

0.0 

3 

INNER 

-0 

264750-06 

C .281340-05 

0.113520-09 

-0  26475D- 06 

0 281340-05 

0.281340-05 

0 . 89999D+02 

3 

OUTER 

0. 

1 92450-06 

-0 .252400-05 

0 113520-09 

0. 192450-06 

-0.252400-05 

0.192450-06 

0. 1 1972D-02 

4 

INNER 

-0 

586310-06 

0 . 1 7956D-04 

-0.813000-08 

-0  58631 D- 06 

0. 17956D-04 

0.179560-04 

-0.899870+02 

4 

OUTER 

0 

4 7420D- 06 

-0 . 1 32030-04 

-0.813000-08 

0 474200-06 

-0. 13204D-04 

0.474200-06 

-0. 17029D-01 

5 

INNER 

0 

820190-06 

0 .873150-03 

0.171480-06 

0.820190-06 

0 . 872770-03 

0.8731 5D-03 

0 . 89994D+02 

5 

OUTER 

-0 

241660-05 

-0 .873170-03 

0 171480-06 

-0  211670-05 

-0.87356D-03 

0.0 

0.0 

6 

INNER 

-0 

1 09740-05 

0 800840-04 

0 251960-14 

-0. 1 0974Q- 05 

0 800810-04 

0.80084D-04 

0.900000+02 

6 

OUTER 

0 

676720-06 

-0 .684320-04 

-0.251990-14 

0 67672D-06 

-0.684350-04 

0.676720-06 

-0. 10446D-08 

7 

INNER 

0 

820190-06 

0 .873150-03 

-0.171480-06 

0.820190-06 

0.872770-03 

0 8731 5D-03 

-0.899940+02 

to  7 

OUTER 

-0 

241660-05 

-0 .8731 70-03 

-0  171480-06 

-0.241670-05 

-0.87356D-03 

0.0 

0.0 

-O  8 

INNER 

-0 

58631 D- 06 

0 17956D-04 

0 81 300D-08 

-0.586310-06 

0.179560-04 

0.179560-04 

0 . 89987D+02 

co  8 

OUTER 

0. 

4 74  20D- 06 

-0 .132030-04 

0 81 300D-08 

0.4. 420D-06 

-0.132040-04 

0.47420D-06 

0.170280-01 

9 

INNER 

-0 

264750-06 

0 . 281 34D-05 

-0.113520-09 

-0. 264750-06 

0.281340-05 

0.281 34D-05 

-0.89999D+02 

9 

OUTER 

0 

1 9245D-06 

-0 .252400-05 

-0.113520-09 

0. 192450-06 

-0 . 25240D-05 

0.192450-06 

-0. 1 1972D-02 

1 0 

INNER 

0 

967530-07 

0 . 176280-06 

-0.154190-07 

0.967530-07 

0.176280-06 

0.177030-06 

-0.845140+02 

1 0 

OUTER 

-0 

1 06310-06 

-0 .153910-06 

-0  154190-07 

-0  10631D-06 

-0.15391 D-06 

0.0 

0.0 

1 1 

INNER 

0 

644200-22 

0 . 1 11570-05 

0.487330-20 

0 0 

0.1 11570-05 

0/,1 1 1 57D-05 

0 . 90000D+02 

1 1 

0U1  ER 

-0. 

644200-22 

-0 .109340-05 

0.170710-20 

0.0 

-0.109340-05 

0.0 

0.0 

SYSTEM  ENERG IES( IN-LB) 

WORK  INPUT  TO  STRUCTURE 

STRUCTURE  KINETIC  ENERGY 

STRUCTURE  ELASTIC  ENERGY 

STRUCTURE  PLASTIC  ENERGY 

ENERGY  STORED  IN  ELASTIC  RESTRA  INTS  = 


0 75229950+03 
0 4927275D+03 
0 BS3 4 1 23D+0 1 
0 . 250  9379D+03 
0.0 


* * * * + 

INCR.  NO . = 

10 

TIMC  = 

0.25000-04 

SEC. 

NODE 

U 

V 

w 

PSIX 

PSIY 

TWIST 

X-POS. 

Y-POS. 

Z' 

1 

0 0 

C.O 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 0 

0 . 37425D+00 

0.0 

0.0 

3 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.748500+00 

0.0 

0.0 

l 


279 


4 

0 

0 

0, 

,0 

0. 

.0 

0 

0 

0 

0 

0 . 

.0 

0. 

1 1227D+01 

0 

0 

5 

0 

0 

0. 

,0 

0, 

,0 

0 

0 

0 

0 

0 , 

.0 

0 

1 4970D+01 

0. 

,0 

6 

0 

375390-03 

0 

1 1017D-02 

-o. 

535390-03 

0 

697020-03 

-0 

681630-62 

o. 

. 1 1 1 70D-O1 

0. 

375390-03 

0. 

, 77610D+00 

- 

7 

0. 

172900-03 

0 

10075D-02 

-o. 

,437580-03 

0 

33985D-04 

-0 

5311 10-02 

0, 

.970210-03 

0. 

374420+00 

0 

776010+00 

- 

8 

0 

3203 10-17 

0 

997010-03 

-0 

438050-03 

0 

253970-16 

-0 

519300-02 

0 

1 2393D-1 4 

0. 

,748500+00 

0 

77600D+00 

- 

9 

-0 

172900-03 

0 

100750-02 

-0 

437580-03 

-o, 

,339050-04 

-0. 

,531110  02 

-0. 

.970210-03 

0 

112260+01 

0 

776010+00 

- 

10 

-0 

375390-03 

0 

It  0170-02 

-0 

535390-03 

-0 

697020-03 

-0 

G8163O-02 

-0 

1 11780-01 

0. 

,149660+01 

0. 

776100+00 

- 

1 1 

0 

518930-03 

0 

255610-02 

0 

291390-02 

-0 

427250-02 

0 

6Q749D-02 

-0. 

, 155000-01 

0 

510930-03 

0. 

155260+01 

12 

0 

2214  ID-03 

0. 

.250250-02 

0 

223860-02 

-0 

56948D-03 

0 

357790-02 

-0 

.334840-02 

0 

37447D+00 

0. 

155250+01 

13 

0 

2353 10-16 

0 

24101D-O2 

0 

21 4250-02 

-0 

291770-15 

0 

202330-02 

0 . 

.423870-15 

0 

748500+00 

0. 

155240+01 

14 

-0 

2214  ID-03 

0 

250250-02 

0 

223860-02 

0 

5G9480-03 

0 

357790-02 

0 

334040-02 

0 

112250+01 

0. 

155250+01 

15 

-0 

518930-03 

0 

255610-02 

0 

291390-02 

0 

427250-02 

0 

607490-  02 

0 

155080-01 

0. 

14965D+01 

0 

155260+01 

16 

0 

620800-03 

0 

479300-02 

-0 

12 1310-01 

0 

214740-01 

-0 

16G07D-02 

0 

64964D-01 

0 

628800-03 

0 

232980+01 

- 

17 

0 

375400-03 

0 

432610-02 

-0 

830970-02 

0 

301500-02 

0 

0G6200-02 

0 

.972010-02 

0 

374630+00 

0 

232930+01 

- 

18 

0 

229750-16 

0 

428700-02 

-0. 

.802370-02 

-0 

820760-15 

0 

980360*02 

-0 

934410-14 

0 

743500+00 

0 

232930+01 

- 

19 

-o 

375480-03 

0 

432610-02 

-0 

030970-02 

-0 

301580-02 

0. 

. 06620D-02 

-0 

972010-02 

0 

1 1224D*01 

0. 

.232930+01 

- 

20 

-0 

62880D-03 

0 

479300-02 

-0 

1 2 1310-01 

-0 

214740-01 

-0 

186070-02 

-0 

649640-01 

0 

149640+01 

0 

232900+01 

- 

21 

0 

249810-02 

0 

317330-02 

0 

85074 D- 01 

0 

376440-02 

0 

226320100 

-0 

957070-01 

0 

249810-02 

0. 

, 310320  + 01 

22 

0 

972690-03 

0 

272000-02 

0 

857520-01 

0 

454030-03 

0 

209970*  00 

-o 

. 115090-01 

0 

375220*00 

0, 

,31 027D+01 

23 

-0 

880370-16 

0 

273140-02 

0 

85758D-01 

-0 

291780-14 

0 

208100*00 

-0 

407040-13 

0 

748500*00 

0 

310270+01 

24 

-0 

972690-03 

c 

272800-02 

0 

857520-01 

-0 

.454030-03 

0 

209970*00 

0 

.115090-01 

0 

112100+01 

0 

310270+01 

25 

-o 

249810-02 

0 

3 1 7 J jD-02 

0 

850740-01 

-0 

376440-02 

0 

220320*  00 

0 

957070-01 

0 

149450+01 

0. 

.310320+01 

26 

0 

1521  10-02 

-0 

24657D-02 

0 

1 7 2650  *-00 

-0 

299630-01 

0 

121320*00 

-0 

. 129690-01 

0 

152110-02 

0 

354750+01 

27 

0 

826480-03 

-0 

181 160-02 

0 

167750*00 

-0 

394610-02 

0. 

. 116600-00 

-0 

25997D-02 

0 

375000+00 

0 

354020+01 

28 

-o 

586250-16 

-0 

19584D-02 

0 

167330*00 

0 

185790-14 

0 

1 1 7070 < 00 

-0 

574570-13 

0. 

,748500+00 

0 

354800+01 

29 

“0, 

,826400-03 

-0 

101 160-02 

0 

16775D*00 

0 

39461D-02 

0 

1 16800*  00 

0 

259970-02 

0 

1 12190+01 

0. 

.354020+01 

30 

-0 

1521 10-02 

-0 

246S7D-02 

0 

172650*00 

0 

299630-01 

0 

121320*  00 

0 

12969D-01 

0 

14955D+01 

0. 

.354750+01 

31 

0 

133160-02 

0 

293460-15 

0 

19546D*00 

-0 

236350-01 

0 

247440-13 

-0 

337060-12 

0 

133160-02 

0 

400000+01 

32 

0 

5531 60-03 

0 

126200-15 

0, 

.190090*00 

-0 

290900-02 

0 

259510-14 

-0 

275340-13 

0 

374800+00 

0 

40000D+0 1 

33 

0 

407320-16 

0 

47325D-16 

0 

t 9 0750*00 

0 

332200-14 

0 

CoGl 30- 15 

-0 

271 17D-13 

0 

74050D+0Q 

0 

40000D+0 1 

34 

-o 

55316D-03 

-0 

872780-17 

0 

190890*00 

0 

290900-02 

-o 

00^910-15 

-0 

535130-13 

0 

112220*01 

0 

400000+01 

35 

“0 

1331 6D-02 

-0 

107010-15 

0 

1954oD*00 

0 

23635D-0! 

-o 

148910-13 

-0 

250070-12 

0. 

. 1 4957D+0 1 

0 

40000D+0 1 

36 

0 

1521 10-02 

0 

246570-02 

0 

172650*00 

-0 

29963D-01 

-0 

121320*00 

0 

129690-01 

0 

152110-02 

0 

445250+01 

37 

0 

62640D-03 

0 

181 16D-02 

0 

167750+00 

-0 

394G1D-02 

-0 

1 1C80U*  00 

0 

25997D-02 

0 

37500D*  00 

0 

445100+01 

30 

0 

154200-15 

0 

195840-02 

0 

167330+00 

0 

1 25510-14 

-0 

117070*00 

0 

C3699D- 1 4 

0 

740500*00 

0 

445200+01 

39 

-0 

826480-03 

0. 

.181 160-02 

0, 

.167750+00 

0. 

.394610-02 

-0 

1 16800*00 

-0 

.259970-02 

0. 

. 112190+01 

0 

445180+01 

40 

-o 

1521 10-02 

0 

2 16570-02 

0 

172650+00 

0 

299630-01 

-0 

121320  00 

-0 

129690-01 

0 

149550+01 

0 

445250+01 

41 

0 

2498  ID-02 

-0 

317330-02 

0 

850740-01 

0 

37644D-02 

-0 

22G J2D*  00 

0 

957070-01 

0 

249810-02 

0 

489600+01 

42 

0 

972690-03 

-0 

2"*2  800-02 

0 

857520-01 

0 

454030-03 

-0 

209970*00 

0 

. 1 15090-01 

0 

375220+00 

0 

489730+01 

43 

-o 

101860-15 

-0 

273140-02 

0 

037580-01 

-0 

602560-14 

-0 

208100*00 

0 

806020-13 

0. 

,748500+00 

0 

409730+01 

44 

-0 

972590-03 

-0 

272800-02 

0 

057520-01 

-0 

454030-03 

-0 

209970*90 

-o. 

. 115090-01 

0 

112100*01 

0 

40973D+0 1 

45 

-o 

2198 10-02 

-0 

317J3D-02 

0 

850740-01 

-0 

376440-02 

-0 

226320*00 

-0  , 

.957070-01 

0 

149450*01 

0 

409600+01 

46 

0 

629000-03 

-0 

479300-02 

-o 

121310-01 

0 

214740-01 

0 

186070-02 

-0 

649640-01 

0. 

, 620000-03 

0 

567020+01 

- 

47 

0 

376400-03 

-0 

432610-02 

-o 

830970-02 

0 

30158D-02 

-0 

806200-02 

-o 

. 97201D-02 

0 

374630+00 

0 

567070+01 

- 

48 

0 

419790-17 

-0 

428700-02 

-0 

002370-02 

-0 

94017D-15 

-0 

960360-02 

0 

054220“ 1 4 

0. 

,740500+00 

0 

567070+01 

- 

49 

-0 

375480-03 

-0 

432610-02 

-o 

830970-02 

-0 

301580-02 

-0 

060200-02 

0 

.97201D-02 

0. 

. 1 12240*01 

0 

567070+01 

- 

50 

-o 

620000-03 

-0 

4763CD-02 

-0 

121310-01 

-0 

2 1 4740- 0 1 

0 

18C070- 02 

0 

649640-01 

0 

149640+01 

0 

567020+0 1 

- 

51 

0 

518930-03 

-0 

255610-02 

0 

29 1 390-02 

-0 

427250-02 

-0 

607490-02 

0 

. 155080-01 

0 

518930-03 

0 

644740+01 

52 

0 

22 1 410-03 

-0 

250250-02 

0. 

,223660-02 

-0 

569480-03 

-0 

357790-02 

0 

331040-02 

0 

374470+00 

0 

64475D+01 

53 

0 

306920-17 

-0 

241810-02 

0 

21 4250-02 

-0 

417420-16 

-0 

282330-02 

0 

270670-14 

0 

740500+00 

0 

64476D+01 

54 

-o 

2214 10-03 

-0 

250250-02 

0 

223860-02 

0 

569400-03 

-0 

357790-02 

-0 

334840-02 

0 

1 12250+01 

0 

644750+01 

55 

-0 

510930-03 

-0 

255610-02 

0 

291390-02 

0 

427250-02 

-0 

G07499-02 

-0 

155000-01 

0. 

14965D+01 

0 

644740+01 

56 

0 

375390-03 

-0 

110170-02 

-0 

535390-03 

0 

697020-03 

0 

68 1 630-  02 

-0 

1 1I78D-01 

0 

375390-03 

0 

722390+01 

_ 

57 

0 

1 729  0D-03 

-0 

100750-02 

-0. 

.437580-03 

0 

339650-04 

0 

5311 10-02 

-0 

97021D-03 

0. 

,374420+00 

0 

72240D+0 1 

_ 

58 

0 

34423D-17 

-0 

997810-03 

-0 

438030-03 

-0 

603770-16 

0 

5193C0-02 

0 

592520-15 

0. 

,740500+00 

0. 

.722400+01 

_ 

59 

“0 

172900-03 

-0 

10075D-02 

-0 

437580-03 

-0 

3398SD-04 

0 

531110-02 

0 

970210-03 

0 

112260+01 

0 

722400+01 

- 

60 

-o 

37539D-03 

-0 

110170-02 

-0 

53539D-03 

-0 

697020-03 

0 

601630-02 

0 

.111700-01 

0 

14966D+01 

0 

722390+01 

- 

61 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o. 

.0 

0 

0 

0 

800000+01 

62 

0 

0 

0 

0 

c 

0 

0 

0 

0 

0 

0 

.0 

0 

37425D+00 

0 

800000+01 

63 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

.0 

0 

748500+00 

0 

800000+01 

G4 

0.0 

0, 

.0 

0 

0 

0 

0 

0 

0 

0 

.0 

0. 

. 112270+01 

0 

80000D+01 

65 

0 

0 

0. 

,0 

0 

0 

0 

0 

0 

0 

0 ■ 

.0 

0. 

,149700+01 

0, 

.800000+01 

REACTION  FORCES  AT  CONSTRAINED  NODES 


NODE 


RX(IBS) 


RY(LBS) 


RZ(LBS) 


MXUBS-IN) 


MY ( LBS-IN) 


MXY(LBS-IN-IN) 


I 


0.0 

0.0 

0 535390-03 
0 437580-03 
0.43B05D-03 
0 437580-03 
0 535390-03 
0.291390-02 
0.223660-02 
0.214250-02 
0. 223860-02 
0.291390-02 
0.121310-01 
0.830970-02 
0 . 80237D-02 
0 830970-02 
0.121310-01 
0. 850740-01 
0 857^20-01 
0 857580-01 
0.857520-01 
0.850740-01 
0 1 72650*00 
0.16775D+00 
0.167330*00 
0. 16775D+00 
0 1 7265D*00 
0. 195460*00 
0. I9089D«00 
0.190750*00 
0.190890*00 
0.195460+00 
0. 17265D+00 
0 167750*00 
0.167330*00 
0.167750+00 
0 172650+00 
0.850740-01 
0.857520-01 
0 857580-01 
0 857520-01 
0 85074D-01 
0 121310-01 
0.830970-02 
0 802370-02 
0.83097D-02 
0.121310-01 
0 291390-02 
0 223860-02 
0 214250-02 
0 223860-02 
0 291390-02 
0.53539D-03 
0.437580-03 
0.43B05D-03 
0 43758D-03 
0.53539D-03 
0.0 
0.0 
0.0 
0.0 
0.0 


280 


, 1 

-0. 13544D+03 

-0. 299650+03 

-0  3 12380+02 

-0.247 130+01 

-0.592160+01 

-0 

42464D+00 

2 

-0. 181630+02 

-0.471 270+03 

-0.51 304D+02 

-0  13785D+00 

-0. 10160D+02 

-0 

.94223D-02 

3 

0.  1 6698D-1 2 

-0.457290+03 

-0. 533120+02 

-0  336180-13 

-0  103160+02 

-0 

223260-13 

4 

0. 181630+02 

-0  471270+03 

-0. 513040+02 

0.137850+00 

-0  101600+02 

0 

.942230-02 

S 

0.  1 35440+03 

-0  299C50+03 

-0  312380+02 

0 247130*01 

-0  59216D+01 

0 

42464D+00 

61 

-0. 13544D+03 

0 299o5D+03 

-0.3 1 230D+02 

-0  247130+01 

0 592 1 bD+01 

0 

424640+00 

62 

-0. 18163D+02 

0 471270+03 

-0.513040+02 

-0  137850+00 

0 101600+02 

0 

94223D-02 

63 

-0  6597CO-12 

0.457290+03 

-0  533120+02 

0 257520-12 

0 1 03 1 60+02 

-0 

373I9D-13 

64 

0 181630+02 

0 471 270+03 

-0  5 1 3040  *02 

0.137  850+00 

0 101600+02 

-0 

942230-02 

65 

0 1 35440  v03 

0 299C50+03 

-0  312380+02 

0 247130+01 

0 . 592160  + 0 1 

-0 

424640+00 

STRAIN 

COMPONENTS.  PRINCIPALS  ENSILE  ) 

STRAIN  ANO  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR 

STRAIN 

PRINC.  SIRAIN(T) 

DIRECTION(DEG.) 

ELEM. 

INNER 

OUTER  INNER  OUTER 

INNER 

OUTER 

INNER  OUTER 

INNER 

OUTER 

1 -0.1B09D-03  -0  36010-03  0 99330-03  0.17290-02  0 19270-03  0 26200-03  0 10010-02  0.17370-02  O.B5340+02  0.86410+02 

2 -0.22050-03  -0  24150-03  0 95120-03  0 16360-02  0 90650-04  0 1065D-03  0 9530D-03  0 16380-02  0.87790+02  0.8838D+02 

3 -0  22050-03  -0  24150-03  0 95120-03  0 16360-02  -0  90650-04  -0  10650-03  0 95300-03  0 1638D-02  -0  87790+02  -0.B838D+02 

4 -0  18090-03  -0  36010-03  0 99330-03  0 17290-02  -0  19270-03  -0  26280-03  0.10010-02  0.17370-02  -0.85340+02  -0.86410+02 

5 -0.75610-03  -0  57980-03  0 25680-02  0 12720-02  -0  35070-03  0 20540-03  0 25770-02  0.12700-02  -0  86990+02  0 86840+02 

6 -0  54730-03  -0  50630-03  0 24390-02  0 13530-02  -0  89000-04  -0  97760-04  0 24400-02  0 13550-02  -0  89140+02  -0  88500+02 

7 -0  54730-03  -0  50630-03  0 24390-02  0 13530-02  0 89800-04  0 97760-04  0 2440D-02  0.1355D-02  0 89140+02  0.8850D+02 

8 -0.7561 D-03  -0  57900-03  0 25680-02  0 12720-02  0 35070-03  -0  20540-03  0.25770-02  0 I278D-02  0.06990+02  -0  86840+02 

9 -0.85000-03  -0  61970-03  0 30540-02  0 28270-02  0 10940-02  -0  2I98D-02  0 31290-02  0 31470-02  0 82170+02  -0  73740+02 


10 

-0 

7915D-03  -0 

8032D-03 

0 

308  20-02 

0 

22070-02 

0 

68700-04 

“0. 

. 104  10-03 

0 

3082D-02 

0 

22IOD-02 

0. 

09490+02 

-0 

80250+02 

11 

-0 

7915D-03  -0 

80320-03 

0 

30820-02 

0 

22070-02 

-0 

68700-04 

0 

18410-03 

0 

30Q2D-02 

0. 

22100-02 

-0 

89490+02 

0 

88250+02 

12 

-0 

85000-03  -0 

61970-03 

0 

30540-02 

0 

28270-02 

-0 

109  10-02 

0 

2190D-02 

0 

31290-02 

0 

31470-02 

-0 

8217D+02 

0. 

, 7374D+02 

13 

-0 

56340-02  0 

1014D-02 

0 

19910-01 

-0 

74990-02 

0 

74790-03 

0 

29460-02 

0 

19910-01 

0 

12620-02 

0 

89I6D+02 

0 

9544D+0I 

14 

-0 

231  /D-02  -0 

12840-02 

0 

191  10-01 

-0 

7053D-02 

0 

40890-03 

0 

471 6D-03 

0. 

, 19120-01 

0 

0 

0. 

.89450+02 

0 

0 

15 

-0 

23170-02  -0 

12840-02 

0 

191  10-01 

-0 

70530-02 

-0 

40890-03 

-0, 

,47160-03 

0 

191 2D-0I 

0 

0 

“0 

B945D+02 

0 

0 

16 

-0 

56340-02  0 

1014D-02 

0 

19910-01 

“0 

74990-02 

-0 

74790-03 

“0 

29460-02 

0 

1991D-01 

0 

12620-02 

-0 

8916D+02 

-0 

95440+01 

17 

-0 

8330D-03  -0 

50600-02 

-0, 

,31660-02 

0 

18510-01 

-0 

51710-02 

0 

8464D-03 

0 

83650-03 

0 

18520-01 

“0. 

,32860+02 

0 

88970+02 

18 

-0 

20970-02  “0 

2710D-02 

-0 

24820-02 

0 

1830D-01 

-0 

620 JD-03 

-0 

3G95D-03 

0 

0 

0 

18300-01 

0 

0 

-0 

89500+02 

19 

-0 

20970-02  -0 

27100-02 

-0. 

,21820-02 

0 

1830D-01 

0 

62080-03 

0 

30950-03 

0 

0 

0 

18300-01 

0 

0 

0 

89500+02 

20 

-0 

83380-03  -0 

50500-02 

-0 

31660-02 

0 

10510-01 

0 

51710-02 

-0 

8464D-03 

0 

83650-03 

0 

18520-01 

0 

32060+02 

“0 

88970+02 

21 

0 

137  ID-02  -0 

51570-02 

-0 

75450-02 

0 

19330-01 

-0 

47470-04 

>0 

40160-03 

0 

137  ID-02 

0 

1933D-01 

“0 

15250+00 

-0 , 

,89530+02 

22 

-0 

13560-02  -0 

23300-02 

-0 

787 10-02 

0 

18610-01 

-0 

26140-03 

-0 

75330-03 

0 

0 

0 

16610-01 

0 

0 

-0 

8897D+02 

23 

-0 

13560-02  -0 

23300-02 

-0 

787  10-02 

0 

18610-01 

0 

261 40-03 

0 

75330-03 

0 

0 

0 

16610-01 

0 

0 

0 

8897D+02 

24 

0 

13710-02  “0 

5157D-02 

-0 

75450-02 

0 

19330-01 

0 

47470-04 

0 

401 60-03 

0 

137  ID-02 

0. 

19330-01 

0 

1525D+00 

0 

89530+02 

25 

0. 

.1371D-02  -0 

51570-02 

-0 

75450-02 

0 

19330-01 

0 

47470-04 

0 

40 1 60-03 

0 

137  ID-02 

0 

I933D-01 

0 

15250+00 

0 

8953D+02 

26 

-0 

13560-02  -0 

23300-02 

-0. 

,78710-02 

0 

10610-01 

0 

2G1 40-03 

0 

75330-03 

0 

0 

0 

18610-01 

0 

0 

0. 

,80970+02 

27 

-0 

13560-02  -0 

23300-02 

-0 

787  10-02 

0 

18610-01 

“0 

261 40-03 

“0 

75330-03 

0 

0 

0 

18610-01 

0 + 

.0 

-0 

8U97D+02 

28 

0 

13710-02  -0 

51570-02 

-0 

75450-02 

0 

19330-01 

-0 

47470-04 

-0 

40160-03 

0 

1371D-02 

0 

19330-01 

“0 

15250+00 

-o 

89530+02 

29 

-0 

83380-03  -0 

5060D-02 

-0 

31680-02 

0 

18510-01 

0 

517 10-02 

-0 

0464D-03 

0 

83650-03 

0. 

18520-01 

0. 

.32660+02 

-0. 

,88970+02 

30 

-0 

2097D-02  -0 

27100-02 

-o 

24320-02 

0 

18300-01 

0 

620J0-03 

0 

36950-03 

0 

0 

0 

tB30D-0t 

0, 

.0 

0 

69500*02 

31 

-o 

20970-02  -0 

27100-02 

-0 

243  20-02 

0 

18300-01 

-0 

62030-03 

-0 

36950-03 

0 

0 

0 

1830D-0I 

0. 

.0 

-0 

89500+02 

32 

-0 

83300-03  -0 

50600-02 

-c 

31600-02 

0 

10510-01 

-0 

51710-02 

0 

B464D-03 

0 

8365D-03 

0 

18520-01 

“0. 

.32860+02 

0 

88970+02 

33 

-0 

56340-02  0 

10140-02 

0 

19910-01 

“0. 

.7499D-02 

-0 

74790-03 

-0 

29460-02 

0 

1 99 1 D-01 

0 

12620-02 

“0 

89160+02 

-0. 

.95440+01 

34 

-0 

23170-02  -0 

12840-02 

0 

191 10-01 

-0 

70530-02 

-0 

40890-03 

-0 

47160-03 

0 

191 20-01 

0 

0 

“0 

89450+02 

0 

0 

35 

-0 

23170-02  -0 

12040-02 

0 

191 10-01 

-0 

70530-02 

0 

40890-03 

c 

471 6D-03 

0 

191 2D-01 

0 

0 

0 

89450+02 

0 

0 

36 

-0 

5G3  10-02  0 

10140-02 

0 

199 10-01 

-0 

74990-02 

0 

74790-03 

0 

29460-02 

0 

199 1 D-Ot 

0 

12620-02 

0 

89160+02 

0 

95440+01 

37 

-0 

85000-03  -0 

61970-03 

0 

30540-02 

0 

28270-02 

-0 

108 10-02 

0 

21900-02 

0 

31290-02 

0 

31470-02 

-0 

82170+02 

0 

73740+02 

38 

-0 

79150-03  -0 

80J2D-Q3 

0 

30820-02 

0 

22070-02 

-0 

68780-04 

0 

18410-03 

0 

3082D-02 

0 

2210D-P2 

“0 

89490+02 

0 

8825D+02 

39 

-o 

7915D-03  -0 

803,20-03 

0 

30820-02 

0 

22070-02 

0 

68780-04 

-0 

18410-03 

0 

30820-02 

0 

22100-02 

0. 

.89490+02 

“0 

88250+02 

40 

-0 

85080-03  -0 

6 1 9*70-03 

0 

30540-02 

0 

29270-02 

0 

10940-02 

-0 

21900-02 

0 

3129D-02 

0 

3147D-02 

0 

82170+02 

-0 

7374D+02 

41 

-0 

75610-03  -0 

57980-03 

0 

25680-02 

w’ 

1 J720-02 

0 

35070-03 

-0 

2P54D-03 

0 

2577D-02 

0 

I27BD-02 

0 

86990+02 

“0 

D684D+02 

42 

-0 

5473D-03  -0 

5063D-03 

0 

24390-02 

0 

13530-02 

0 

89800-04 

0 

9770D-04 

0 

24400-02 

0. 

13550-02 

0 

89140+02 

0. 

. 8850D+02 

43 

-0 

54730-03  -0 

50630-03 

0 

24390-02 

0 

13530-02 

-0 

09800-04 

-0 

9776D-04 

0 

2440D-02 

0 

13550-02 

-0. 

.69140+02 

-0, 

.88500+02 

44 

-0 

75610-03  -0 

57900-03 

0 

256  00-02 

0 

12720-02 

-0 

35070-03 

0 

2054D-03 

0 

257 /D-02 

0 

12780-02 

-0. 

.86990+02 

0 

8604D+02 

45 

-0 

13090-03  -0 

36010-03 

0 

993  30-03 

0 

17290-02 

-0 

19270-03 

-o 

262BD-03 

0 

100  ID-02 

0 

17370-02 

-0. 

.85340+02 

-0 

86410+02 

46 

-o 

2205D-03  -0 

24 1 50-03 

0 

951 20-03 

0 

16360-02 

-0. 

.90650-04 

-0. 

, 10650-03 

0 

9530D-03 

0 

163BD-02 

-0 

87790+02 

-0. 

.88300+02 

47 

-0 

22050-03  -0 

24150-03 

0 

951 20-03 

0 

16360-02 

0 

90650-04 

0 

1065D-03 

0 

9530D-03 

0. 

. 163BD-02 

0, 

.87790+02 

0 

88300+02 

48 

-0 

18090-03  -0 

36010-03 

0 

99330-03 

0 

17290-02 

0 

19270-03 

0. 

,26200-03 

0 

10010-02 

0. 

17370-02 

0, 

.85340+02 

0. 

.86410+02 

STRAIN  COMPONENTS.  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 


I 


1 


I 


, EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN! T ) DI RECT IONIOEG. ) 

NODE  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

33  -0.19700-02  -0  98630-03  -0.44990-02  0 13200-01  -0.27090-14  0.28220-14  0 0 0.13200-01  0.0  0.90000+02 

3S  0.18810-02  -0. 54820-02  -0  15000-02  0.12460-01  -0  26030-13  0 25140-13  0.18810-02  0.12460-01  -0.2206D-09  0.90000+02 

38  -0.23770-02  -0  20390-02  -0  16540-01  0.24170-01  0.50480-15  -0.79420-15  0.0  0 24170-01  0.0  -0.90000+02 

40  0.53010-02  -0  81120-02  -0.19440-01  0 27110-01  -0  450GD-02  -0.18610-02  0 55040-02  0.27140-01  -0. 51610+01  -0. 88490+02 

48  -0  80610-03  -0.12000-02  0 13220-01  -0  12720-01  0 66840-15  -0  66620-15  0.13220-01  0.0  0.90000+02  0.0 

50  -0  46230-02  0 37330-02  0 14500-01  -0  13700-01  0.66160-02  -0  6637D-02  0 15060-01  0.43430-02  0 80460+02  -0.1042D+02 


STRAIN  COMPONENTS, 

PRINC1PAL(TENSIL£  ) STRAIN  AND 

1 direction,  and  elongations 

AT  SPECIFIED 

additional  points 

POINT  NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (0IR  t ) 

ELONG  (DIR  2) 

PRINC  STRN(T) 

0IRECTI0N(DEG.) 

1 

INNER 

0 

224320-35 

0 17478D-02 

0 

42363D- 1 7 

0 

0 

0 174630-02 

0 174780-02 

0 90000D+02 

1 

OUTER 

0 

22432D-35 

0 .827200-03 

0 

423630-17 

0 

0 

0.826860-03 

0.B2720D-03 

0. 90000D+02 

2 

INNER 

-0 

1 17760-03 

0 .133430-02 

-o 

668030-05 

-0 

117770-03 

0 133340-02 

0 133430-02 

-0  898680+02 

2 

OUTER 

-0 

1 20690-03 

0 124160-02 

-o 

668030-05 

-0 

120690-03 

0 124090-02 

0 124170-02 

-0  89860D+  02 

3 

INNER 

-0 

513660-03 

0 311130-02 

-o 

838300-04 

-0 

513790-03 

0 310650-02 

0 311100-02 

-0  B9338D+02 

3 

OUTER 

-0 

4 Gv  580- 03 

0 561250-03 

-o 

038300-04 

-0 

4U570D-03 

0. 56109D-03 

0.562920-03 

-0  877110+02 

4 

INNER 

-0 

553750-03 

0 35660D-03 

-0. 

, 186450-03 

-0 

5*’89 10-03 

0 35654D-03 

0 366000-03 

-0  84244D+02 

4 

OUTER 

-o 

890C5D-03 

0 466270-02 

-o 

186450-03 

-0 

890440-03 

0 48708D-02 

0 488420-02 

-0  890750+02 

5 

INNER 

“0 

1 44010-02 

0 171020-01 

-0 

642700-04 

-0 

144120-02 

0 169580-01 

0 171020-01 

-0  8990ID+02 

5 

OUTER 

-o 

169890-02 

-0  117600-01 

-0 

64270D-04 

-0 

170030-02 

-0  1 1 830D-01 

0 0 

0.0 

6 

INNER 

-0 

196980-02 

-0  449330-02 

-o 

272440-14 

-0 

1**7180-02 

-0  450900-02 

0 0 

0 0 

6 

OUTER 

-0 

986290-03 

0 132030-01 

0 

280750-14 

-0 

9HG78D-03 

0. 13117D-01 

0 132030-01 

0 900000+02 

7 

INNER 

-o 

1 44010-02 

0 . 17102D-01 

0 

642700-04 

-0 

14412D-02 

0 169500-01 

0.171020-01 

0 899010+02 

7 

Outer 

-o 

1 0°89Q-02 

-0  1I7G0D-01 

0 

642700-04 

-0. 

, 170030-02 

-0  110300-01 

0 0 

0 0 

8 

; INNER 

“0 

55875D- 03 

0 356600-03 

0 

196  15D-03 

-0 

5'  0910-03 

0 356540-03 

0 366000-03 

0 84244D+02 

8 

OUTER 

-0 

890050-03 

0 48927D-02 

0 

186450-03 

-0 

890440-03 

0.487080-02 

0 488420-02 

0 830750+02 

9 

Inner 

-0 

513660-03 

0.3111 3D-02 

0 

830300-04 

-0 

513790-03 

0 310650-02 

0 31 1 100-02 

0.893380+02 

9 

outer 

-0 

485580-03 

0 561250-03 

0 

83830D-04 

-0 

4U570D-03 

0.561090-03 

0 562920-03 

0 877110+02 

10 

INNER 

-0 

1 1776D-03 

0 .133430-02 

0 

6GG03D-05 

-0 

117770-03 

0 133340-02 

0.133430-02 

0 89668D+02 

to 

OUTER 

-0 

1 20690-03 

0 .124160-02 

0 

660030-05 

-0 

120690-03 

0.124090-02 

0.1241 7D-02 

0.69860D+02 

1 1 

INNER 

0 

298810-20 

0 .174780-02 

-0 

449270-17 

0 

0 

0 174630-02 

0.174780-02 

-0.90000D+02 

K)  1 i 

03  1 1 

OUTER 

-0 

298810-20 

0 .827200-03 

-0 

439070-17 

0 

0 

0.82686D-03 

0.827200-03 

-0.900000+02 

SYSTEM  ENERG1 ESI  IN-LB) 

WORK  INPUT  TO  STRUCTURE  « 0 38488320+04 

STRUCTURE  KINETIC  ENERGY  . 0 33017230+04 

STRUCTURE  ELASTIC  ENERGY  * 0 12309500+03 

STRUCTURE  PLASTIC  ENERGY  ■ 0 42401360+03 

Energy  stored  in  elastic  restraints-  o o 

•••••  INCR.  NO..  20  TIME.  0.50000-04  SEC. 

NODE  U V W PSIX  PSIY  TWIST  X-POS.  Y-POS.  Z-POS. 

1 0.0  0 0 0.0  0.0  0 0 0.0  0 0 0 0 0.0 

200  00  00  00  0.0  0.0  0 374250+00  0 0 0.0 

300  00  00  00  0.0  0.0  0 748500+00  0.0  0.0 

400  00  00  00  00  0.0  0 112270+01  0.0  0.0 

500  00  0.0  00  00  00  0.149700+01  0 0 0.0 

6 0 282990-02  9 70454D-02  0 381470-02  -0  365810-02  0.254340-01  -0.458870-01  0.282990-02  0.782050+00  0.381470-02 

7 0.137570-02  0 622480-02  0 299970-02  -0  900200-03  0.181500-01  -0.640430-02  0 375630+00  0 781220+00  0.299970-02 

8 -0  221720-16  0 607I3D-02  0 296210-02  -0  397200-15  0 170360-01  -0  100360-13  0. 748500+00  0 78107D+00  0.28621D-02 

9 -0  137570-02  0 622480-02  0 299970-02  0 900200-03  0 181500-01  0 640430-02  0 112I4D+01  0 781220+00  0 299970-02 

10  -0  282990-02  0.704540-02  0.381470-02  0 365810-02  0 254340-01  0 45037D-01  0 14942D+01  0 782050+00  0.381470-02 

11  0 376070-02  0 144700-01  -0  135030-01  0 937010-02  -0  605173  01  0.118400+00  0 37607D-02  0 15645D+01  -0  13503D-01 

12  0 176010-02  0 146710-01  -0  107070-01  0 459300-02  -0  450699-01  0 230920-01  0 376010+00  0 I5647D+0I  -0.107070-01 

13  -0  1014  3D-1 5 0 145500-01  -0  989220-02  0 100400-15  -0  422093-01  -0  202000-13  0 74850D+00  0 156460+01  -0.989220-02 

14  -0  176010-02  0 146710-01  -0  107070-01  -0.459360-02  -0  458890-01  -0.230920-01  0 112100*01  0 156470+01  -0.107070-01 

15  -0  376070-02  0 144700-01  -0  135030-01  -0  937010-02  -0  685170-01  -0.118400+00  0 149320+01  0.156450+01  -0.135030-01 

16  0 402930-02  0 2G891D-01  0 122020-01  0 355730-01  0.192710+00  -0.647810-01  0.402930-02  0.235I9D+01  0.122020-01 

17  0 189490-02  0 252420-01  0 2066UO-01  0 124270-01  0 183500+00  -0.701830-02  0 376140+00  0.235020+01  0.206680-01 

18  -0  19669D-15  0 246370-01  0 220090-01  0 168800-14  0 1U.'17i)*00  -0  281010-13  0.748500  + 00  0 23490Dt0l  0.228090-01 

19  -0.189490-02  0 252430-01  0.206680-01  -0  124270-01  0.163500+00  0 701030-02  0 112090+01  0 235020+01  0. 206000-01 

20  -0  402930-02  0 260910-01  0 122020-01  -0  355730-01  0 192710-00  0.647810-01  0 149300+01  0.235190+01  0.122020-01 

21  0.616090-02  0.167560-01  0 214260+00  0 184290-01  0.374000+00  -0.117920+00  0.616090-02  0.311600+01  0.214260+00 


282 


22  0.27626D-02  0.146B8D-01  0.217660+00  0.378910-02  0 3^7000100-0.346910-01  0377010+00  0.311470+01  0.217660+00 

23  -0.326450-15  0.144700-01  0.218220+00  -0.391870-14  0 341730-00  -0  966450-13  0 748500+00  0.311450+01  0.21822D+00 

24  -0  276260-02  0 146880-01  0 217660+00  -0.378910-02  0 347000100  0.346910-01  0.112000+01  0.311470+01  0.217660+00 

25  -0  616090-02  0 167560-01  0.21 4260+00  -0. 1 84290-01  0 374000+00  0-  117920+00  0.14903D+0!  0. 311680+01  0.21426D+00 

26  0 604050-02  -0.894300-02  0.387350+00  -0  437020-01  0 354180+00  -0.192940+00  0.604050-02  0.354110+01  0.387350+00 

27  0 275590-02  -0.636650-02  0 376800+00  -0  149510-01  0 313110+00  -0  428310-01  0 377010+00  0 354360+01  0.376800+00 

28  0 733040-16  -0  6257+30-02  0.374430+00  0.188740-14  0 308730  + 00  -0.182840-12  0 740500+00  0.354370+01  0.374430+00 

29  -0  275593-02  -0  63GG50-02  0 376800+00  0 149510-01  0 313110+00  0. 420310-01  0 112000+01  0 354360+01  0.376800+00 

30  -0  804050-02  -0  e943‘JD-02  0 337350+00  0 437020-01  0 354100  + 00  0.192940  + 00  0 14910D+01  0 354110  + 01  0 387350+00 

31  0 712320-02  -0  107520-14  0 463290+00  -0  987620-01  0 181710-12  -0.18G2SD-I1  0 7I232D-02  0 40000D+01  0.46329D  + 00 

32  0 267690-02  -0  373730-15  0 442760+00  -0.229530-01  0 36GICD-13  -0  14765D-12  0 376930+00  0 40000D+0!  0.44276D+00 

33  0 420620-15  -0  670150-15  0 439230+00  0 115190-13  0 176IID-I3  -0  14384D-12  0.74850D+00  0 40000D+01  0.439230+00 

34  -0  267690-02  -0  873490-15  0 442760+00  0.229530-01  -0  17070D-14  -0.266380-12  0.1I201D+01  0 400000+01  0.44276D+00 

35  -0  712320-02  -0  269100-15  0 463290+00  0 987620-01  -0  100560-12  -0.12605D-11  0. 148990+01  0.40000D+0!  0.463290+00 

36  0 604050-02  0 894380-02  0 387350+00  -0  437020-01  -0  35410D+00  0.192940+00  0 60405D-02  0.445890+01  0.387350+00 

37  0 275590-02  0 633650-02  0.376G00+00  -0  149510-01  -0  313110+00  0.420310-01  0 377010+00  0 445640+01  0. 376800+00 

38  0 991810-15  0 625750-02  0 374430+00  -0  233840-14  -0  30C73D+00  0 26049D-I3  0 74850D+00  0 445630+01  0 37443D+00 

39  -0  275590-02  0 636G5D-02  0 376600+00  0 149510-01  -0  J131 10+00  -0.428310-01  0 112000+01  0 445640+01  0.376800+00 

40  -0  601050-02  0 894300-02  0 387350+00  0.437020-01  -0  354180+00  -0  192940+00  0 149100+01  0 445890+01  0 38735D+00 

41  0 616090-02  -0  167560-01  0 2142GD+00  0 104290-01  -0  374000+00  0.117920+00  0 616090-02  0 408320+01  0.214260+00 

42  0 2/6260-02  -0  146880-01  0 217660+00  0 378910-02  -0  347000+00  0 346910-01  0 377010+00  0 40853D+01  0. 217660+00 

43  -0  697090-15  -0  144700-01  0 218220+00  -0  165910-13  -0  341730+00  0.171606-12  0 748500*00  0 4B855D+0I  0 218220+00 

44  -0  276280-02  -0  146060-01  0 217660+00  -0  37S91D-02  -0  347000+00  -0  346910-01  0 11200D+01  0.468530+01  0.217660+00 

45  -0  616090-02  -0  107660-01  0 214260+00  -0  164290-01  -0  37400D+00  -0.117920+00  0.14908D+01  0 400320+01  0. 214260+00 

46  0 402930-02  -0  2o891D-01  0 122020-01  0 355730-01  -0  192710+00  0 647810-01  0 402930-02  0 564010+01  0 12202D-0I 

47  0 189490-02  -0  25242D-01  0 20C680-01  0 124270-01  -0  183500+00  0 701830-02  0 376140*00  0 564980+01  0.206680-01 

48  -0  3700 GO- 1 5 -0  210370-01  0 228090-01  0 212700-14  -0  1U242J.00  -0  18621D-13  0 740500*00  0 565020+01  0 228090-01 

49  -0  109490-02  -0  252420-01  0 206660-01  -0  124270-01  -0  I6350D+00  -0.701830-02  0 11209D+0I  0 56490D+01  0.20G68D-OI 

50  -0  40293D-02  -0  2u091D-01  0 122020-01  -0  355730-01  -0  19271D+00  -0.647810-01  0 149300+01  0 584010+01  0 122020-01 

51  0 378070-02  -0  144700-01  -0.135030-01  0 937010-02  0 885170-01  -0  H840D+00  0 376070-02  0 64355D+01  -0  135030-01 

52  0 176010-02  -0  116710-01  -0  107070-01  0 459380-02  0 458890-01  -0  230920-01  0 376010+00  0 643530+01  -0.107070-01 

53  -0  19S30D-15  -0  145600-01  -0.90922D-02  0.781330-15  0 422090-01  -0  103120-13  0 748500+00  0 64354D+01  -0.989220-02 

54  -0  176010-02  -0. 14C71D-01  -0  107070-01  -0  45938D-02  0 450090-01  0 230920-01  0 112100+01  0 64353D+01  -0  10707D-0t 

55  -0  376070-02  -0  I1470D-01  -0  135030-01  -0  937010-02  0 G6517O-0I  0 118400+00  0 149320t01  0 643550+01  -0. 135030-01 

56  0 232990-02  -0  704540-02  0 33147D-02  -0  385810-02  -0  254340-01  0 458870-01  0 28299D-02  0.721000+01  0.38147D-02 

57  0 137570-02  -0  622480-02  0 299970-02  -0  90020D-03  -0  181500-01  0 640430-02  0 375630+00  0 721080+01  0.29997D-02 

53  -0  603500-17  -0  607130-02  0 286210-02  0.400560-15  -0  170360-01  -0  271420-14  0.748500t00  0 721090+01  0.28621D-02 

59  -0  137570-02  -0  622480-02  0 299970-02  0 900200-03  -0  181500-01  -0  640430-02  0 112140+01  0 721880+01  0.29997D-02 


60  -0 

232990-02  -0  70454D-02  0.381470-02  0 365310- 

-02  -0  2S434D- 

01  -0.458870-01 

0 149420+01 

0. 721800+01 

0. 381470-02 

61  0 

0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0.800000+01 

0.0 

62  0 

0 

0 0 

0 0 

0 o 

0 0 

0.0 

0 374250+00 

0.800000+01 

0.0 

63  0 

0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 748500+00 

0.80000D+01 

0.0 

64  0 

0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 112270+01 

0. 800000  + 01 

0.0 

65  0 

0 

0 0 

0 0 

0 0 

0 0 

0 0 

0. 14970D+01 

0.800000+01 

0.0 

REACTION  FORCES  AT  CONSTRAINED  NODES 

NOOE 

RX(LBS) 

RY(IBS) 

RZ(LBS) 

MX(IBS-IN) 

MY( LBS-IN) 

MXY(LBS-IN-IN) 

1 

“0. 

753630+03 

-0  145440+04 

0 108470+02 

0 1 I 5780+0 1 

0. 20035D+00 

0.134000+00 

2 

-0 

696000+02 

-0  235 57D+Q4 

0.470660+01 

0 743110-01 

-0  169050+01 

-0  158120-01 

3 

0 

636550-1 1 

-0  229510+04 

0. 472610+01 

0 169720-11 

-0. 196590+01 

0 353180-12 

4 

0. 

695000+02 

-0  235670+04 

0 470660+01 

-0  743110-01 

-0  16905D+0t 

0.158120-01 

5 

0. 

753G3D+03 

-0  145440+04 

0 100470+02 

-0.115780+01 

0.260350+00 

-0.134000+00 

61 

-0 

753639+03 

0 14544D-r04 

0 108470+02 

0.1  15780+01 

-0. 2C035D+00 

-0  I3400D+00 

62 

~0 

6960CD+02 

0 235670+04 

0 470660+01 

0 7431 10-01 

0. 1G905D+01 

0 158120-01 

63 

-0 

G02540-1 1 

0 229510+04 

0 472610+01 

0 303030-12 

0. 19659D+0I 

-0  741070-13 

64 

0 

696000+02 

0 235 67D+04 

0 470560+01 

-0  743110-01 

0 169050+01 

-0. I5812D-01 

65 

0 

753630+03 

0 1 4544D+04 

0 100470+02 

-0.115780+01 

-0. 260350+00 

0. 13400D+00 

STRAIN  COMPONENTS.  PRINC IPAl( T ENSI LE ) 

STRAIN  AND  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 

ELEM. 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR 

STRAIN 

PRINC.  STRAIN(T) 

DIRECTION(OEG.) 

INNER 

OUTER  INNER  OUTER 

INNER 

OUTER 

INNER  OUTER 

INNER  OUTER 

1 -0.22740-02  -0  16080-02  0 95770-02  0 72520-02  0 16090-02  0 162GD-Q2  0 99300-02  0 73260-02  0.86230+02  0.B480D+02 

2 -0.18610-02  -0  18150-02  0 90720-02  0 67960-02  0 69110-03  0 67400-03  0.90830-02  0 68090-02  0.8819D+02  0.8776D+02 

3 -0.18610-02  -0.18150-02  0.90720-02  0 6796D-02  -0.69110-03  -0.6740D-03  .0.90830-02  0.68090-02  -0.88190+02  -0.B776D+02 

V 


I 


I 
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4,  -0.22740-02  -0.160BD-02  0.9B770-02  0.72520-02  -0.16090-02  -0.16260-02  0.99300-02  0.73260-02  -0. 86230+02  -0.84800+02 

5 -0.29650-02  -0  61490-02  0.56800-02  0 15250-01  0.10510-02  -0.83590-03  0 571  10-02  0.15250-01  0.8653D+02  -0.88890+02 

6 -0  40520-02  -0  43270-02  0 71280-02  0.1506D-01  0.21320-03  -0.44Q50-03  0.71290-02  0.15060-01  0.8945D+02  -0.89350+02 

7 -0  40520-02  -0  4327D-02  0 71280-02  0 15060-01  -0.2132D-03  0 440'5D-03  0.71290-02  0.15060-01  -0.89450+02  0 89350+02 

8 -0.29650-02  -0  62490-02  0 56800-02  0 1525D-01  -0.10510-02  0 83590-03  0.57110-02  0 15250-01  -0.86530*02  0.88890+02 

9 -0  92040-02  -0  13580-02  0 30790-01  -0  55570-03  0.72830-03  -0  30310-02  0 30790-01  0 61070-03  0.89480+02  -0.52410+02 

10  -0  64280-02  -0  3314D-02  0 28690-01  -0  10030-02  0 19900-04  -0  97860-03  0 28690-01  00  0 89980+02  0 0 

11  -0  64200-02  -0  33140-02  0 28690-01  -0  10030-02  -0  19900-04  0 97060-03  0 20690-01  00  -0  89980+02  0 0 

12  -0  92040-02  -0  13500-02  0 3079D-0I  -0  55570-03  -0  72830-03  0 30310-02  0 30790-01  0 61070-03  -0  89400+02  0 52410+02 

13  -0  10100-01  -0  42700-02  0 29150-01  0 66160-02  0 14920-02  0 24210-02  0 29160-01  0 6749D-02  0.88910+02  0 83740*02 

14  -0  76810-02  -0  47430-02  0 2770D-01  0 66230-02  0 36340-03  0 12410-02  0 27700-01  0 66570-02  0 89710+02  0 86880+02 

15  -0.76930-02  -0  4743D-02  0 2770D-01  0 66230-02  -0.36340-03  -0  12440-02  0 27700-01  0 66570-02  -0  69710+02  -0.86880+02 

16  -0  10100-01  -0  427GD-02  0 29150-01  0 66I6D-02  -0  14920-02  -0  2421D-02  0 29160-01  0 67490-02  -0  88910+02  -0  03740+02 

17  -0  84490-02  -0.9347D-02  0 15400-01  0 22200-01  -0  10040-01  0 5273D-02  0 16420-01  0 22420-01  -0  78580+02  0 0526D+02 

18  -0  66720-02  -0  80590-02  0 14430-01  0 22320-01  -0  26200-02  0 80490-03  0.14510-01  0 22330-01  -0  86460+02  0 8924D+02 

19  -0  66720-02  -0  80690-02  0.1443D-01  0 22320-01  0 26200-02  -0  80490-03  0 14510-01  0 22330-01  0 86460+02  -0  89240+02 

20  -0  84499-02  -0  9347D-02  0 15400-01  0 22200-01  0 1004D-01  -0  52730-02  0 16420-01  0 22420-01  0 78580+02  -0  85260+02 

21  -0  100SD-02  -0  1756D-01  -0  9126D-02  0 84910-01  -0  77240-02  0 33620-02  0 53470-03  0 64940-01  -0  21790+02  0. 88830+02 

22  -0  431  60-02  -0  10I4D-0I  -0  111  ID-01  0 58600-01  -0  15810-02  -0  52420-03  0.0  0 58600-01  0 0 -0  89780+02 

23  -0  43160-02  -0 . 101 4D-01  -0  11110-01  0.58600-01  0 15010-02  0 52420-03  00  0 58680-01  00  0 89700+02 

24  -0  1 00 9D-02  -0 . 1 7560-01  -0  91260-02  0 6491D-01  0 77240-02  -0  33620-02  0 53470-03  0 64940-01  0.21790+02  -0  80830+02 

25  -0  10090-02  -0  17560-01  -0  91200-02  0 64910-01  0.7724D-02  -0  33620-02  0 53470-03  0 64940-01  0 21790+02  -0  00830+02 

26  -0  43160-02  -0  10I4D-01  -0  11I1C-0I  0 5060D-01  0 15810-02  0 52420-03  00  0 58680-01  00  0 89700+02 

27  -0.43+  60-02  -0  10140-01  -0.  1 1 1 ID-01  0 59680-01  -0  15010-02  -0  52420-03  0 0 0 50600-01  0 0 -0  097UD+02 

28  -0  1009D-02  -0  1756D-01  -0  91260-02  0 6491D-01  -0  77249-02  0 33620-02  0 5317D-03  0 64940-01  -0  21790+02  0 88830+02 

29  -0  84490-02  -0  93470-02  0 15400-01  0 22200-01  0 10010-01  -0  52730-02  0 16420-01  0.22420-01  0 78580+02  -0  85260*02 

30  -0  66720-02  -0  B069D-02  0.1443D-01  0 22320-01  0 28200-02  -0  80490-03  0 14510-01  0 22330-01  0 8G46D+02  -0  89240+02 

31  -0  6G72D-02  -0  80690-02  0 14430-01  0 22320-01  -0  26200-02  0 00490-03  0 14510-01  0 22330-01  -0  86460+02  0 8924D+02 

32  -0  84490-02  -0  9)470-02  0 1540C-01  0 2220D-01  -0  10040-01  0 52730-02  0.16420-01  0 22420-01  -0.7858D+02  0 85260+02 

33  -0  1010D-OI  -0  427GD-02  0 29150-01  0 6G1GD-02  -0  14920-02  -0  24210-02  0 29160-01  0 67490-02  -0.80910+02  -0  8374Dt02 

34  -0  76830-02  -0  47430-02  0 27700-01  0 66230-02  -0  36310-03  -0  12440-02  0 27700-01  0 66570-02  -0  89710+02  -0  86800+02 

35  -0  76810-02  -0  4743D-02  0 27700-01  0.6623D-02  0 36340-03  0 124.10-02  0 27700-01  0 66570-02  0 89710+02  0 0680D+02 

36  -0  10100-01  -0  42760-02  0 29I5D-01  0 6616D-02  0.14920-02  0 24210-02  0.29160-01  0 6749D-02  0.08910+02  0 8374D+02 

37  -0  92040-02  -0  13580-02  0 30790-01  -0  55570-03  -0  72830-03  0 30310-02  0.3079D-01  0 61070-03  -0  89400+02  0.52410+02 

38  -0.64280-02  -0  33+40-02  0 28690-01  -0  I003D-02  -0.19900-04  0. 97860-03  0 28690-01  00  -0  89900+02  0 0 

39  -0  6128D-02  -0.33140-02  0 28690-01  -0  10030-02  0 I990D-04  -0  97080-03  0.28690-01  00  0 89900+02  0 0 

40  -0  9204D-02  -0  13500-02  0 30790-01  -0  55570-03  0.72830-03  -0  30310-02  0 30790-01  0 61070-03  0 89400+02  -0.52410+02 

41  -0  29650-02  -0  6249D-02  0 56800-02  0 15250-01  -0  10510-02  0 83590-03  0 57110-02  0 1525D-0I  -0  86530+02  0 08890+02 

42  -0.40520-02  -0  43270-02  0 71280-02  0 15060-01  -0  21320-03  0 44050-03  0 71290-02  0 1506D-01  -0  89450+02  0.89350+02 

43  -0  40520-02  -0  43270-02  0 7128D-02  0 15060-01  0.21320-03  -0  44050-03  0 71290-02  0.15060-01  0.89450+02  -0  89350+02 

44  -0  29650-02  -0  6249D-02  0 56800-02  0 15250-01  0 10510-02  -0  83590-03  0 57110-02  0.15250-01  0.86530+02  -0  8889D+02 

45  -0  22740-02  -0  16080-02  0.90770-02  0 7252D-02  -0  16090-02  -0  16260-02  0 99300-02  0.73260-02  -0  86230+02  -0  84800+02 

46  -0  10610-02  -0  tai5D-02  0 90720-02  0 6796D-02  -0  69110-03  -0  67400-03  0.90830-02  0 68090-02  -0  88190+02  -0. 87760+02 

47  -0  10610-02  -0  13150-02  0 90720-02  0 67960-02  0 69110-03  0 67400-03  0 90830-02  0 08090-02  0 88190+02  0 8776D+02 

48  -0  22740-02  -0  16080-02  0 98770-02  0 72520-02  0 16090-02  0 16260-02  0 99300-02  0 73260-02  0.86230+02  0.84800+02 

STRAIN  COMPONENTS.  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPEC  I F I EO  NODES 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN(T)  0 I R EC T I ON ( DEG . ) 

NODE  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

33  -0  56770-02  -0  86280-02  -0  14480-0!  0 4230D-01  -0  14330-13  0.15020-13  00  0 42300-01  00  0 90000*02 

35  0.82330-02  -0  22240-01  -0.1460D-0!  0 54350-01  -0  13640-12  0 12070-12  0.82330-02  0.5435D-0I  -0.17110-09  0.90000+02 

38  -0  62530-02  -0  84740-02  0 6246D-03  0 61300-01  0 21400-14  -0  31720-14  0 624C0-03  0 61300-01  0 90000+02  -0  90000+02 

40  -0  29750-02  -0  1261.0-01  0 13090-01  0 75130-01  -0  2720C-01  0 12160-01  0.20850-01  0 75550-01  -0  60200  + 02  0 8G0GD+02 

48  -C  62510-02  -0  3772D-02  0 3277D-01  0 40540-03  -0.19100-14  0 18500-14  0 32770-01  0 40540-03  -0. 90000+02  0.9000D+02 

50  -0  93480-02  -0  7SJ2D-03  0 35850-01  0 42470-02  -0  2G090-02  0 10610-01  0 35890-01  0 76010-02  -0. 88350+02  0.57690+02 

STRAIN  COMPONENTS,  PRINC  I PAL(  T ENS  l LE  ) STRAIN  AND  DIRECT!*!-  -NJ  ELONGATIONS  AT  SPECIflEO  ADDITIONAL  POINTS 

POINT  NO.  SURFACE  EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  ELONG. (OIR. 1 ) ELONG  (DIR. 2)  PRINC.  STRN(T)  DIRECTION! DEG. ) 


1 

INNER 

0 I023ID-33 

0 .70499D-02 

-0.286090-16 

0.0 

0.702520-02 

0.704990-02 

-0  900000+02 

t 

OUTER 

0 t 0231 0-33 

0 .861790-02 

-0  26609D- 1 6 

0 0 

0.858110-02 

0 861790-02 

-0 . 90000D+02 

2 

INNER 

-0  9G584D-03 

0 .803360-02 

-0  105830-03 

-0  9‘  6310-03 

0.800180-02 

0 003410-02 

-0  896630+02 

2 

OUTER 

-0  931420-03 

0 . 7o3530-02 

-0  105U0D-03 

-0  3I1I.5D-03 

0.760640-02 

0 763560-02 

-0.896460+02 

3 

INNER 

-0  307900-02 

0 641320-02 

-0  384770-03 

-0  368650-02 

0.639270-02 

0.641680-02 

-0.869300+02 

3 

OUTER 

-0.40693D-02 

0 .164920-01 

-0. 384770-03 

-0.407760-02 

0. 153740-01 

0.154940-01 

-0.894370+02 
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4 

INNER 

4 

OUTER 

5 

INNER 

5 

OUTER 

6 

INNER 

6 

OUTER 

7 

INNER 

7 

OUTER 

8 

INNER 

a 

OUTER 

9 

INNER 

9 

OUTER 

10 

INNER 

10 

OUTER 

1 1 

INNER 

1 1 

OUTER 

-0  575910-02 
-0  337930-02 
-0  693990-02 
-0  483180-02 
-0  667720-02 
-0  862800-02 
-0  693990-02 
-0  483180-02 
-0.576910-02 
-0  387930-02 
-0  387900-02 
-0  406930-02 
-0  965840-03 
-0  931420-03 
0 138440-18 
-0  1 3844D-  1 8 


0 .241650-01 
0 .242150-02 
0 213500-01 
0 .266030-02 
-0 . 144830-01 
0 .422950-01 
0 213500-01 
0 . 266030-02 
0 . 241650-01 
0 .242150-02 
0 .641320-02 
0 . 154920-01 
0 .803380-02 
0 -763S3D-02 
0.704990-02 
0.861790-02 


-0.56794D-03 
-0  567940-03 
-0.905360-03 
-0  905360-03 
-0  141950-13 
0 151490-13 
0 905360-03 
0.905360-03 
0 567940-03 
0. 567940-03 
0.3847/0-03 
0 384770-03 
0 105880-03 
0 105800-03 
0.691 170-17 
0.623860-17 


-0.5.7580-02 
-0.31,8690-02 
-0 . 6C>642D-  02 
-0  4H435D-02 
-0  569340-02 
-0  866560-02 
-0  696420-02 
-0.484350-02 
-0  577580-02 
-0.388690-02 
-0.388650-02 
-0.407760-02 
-0.966310-03 
-0.931850-03 
0.0 
0.0 


0.238800-01 
0.241860-02 
0.21 127D-Q1 
0 265680-02 
-0.145890-01 
0.414370-01 
0.211270-01 
0 . 26568D-02 
0 . 23880D-0 1 
0.241860-02 
0.63927D-02 
0. 153740-01 
0.800180-02 
0.76064D-02 
0.70252D-02 
0.85811D-02 


0.241 68D-01 
0.243430-02 
0.213570-01 
0.268760-02 
0.0 

0 . 42295D-Q 1 
0.21 357D-0 1 
0.268760-02 
0 241680-01 
0 243430-02 
0.641 68D-Q2 
0. 15494D-01 
0.803410-02 
0.76356D-02 
0 . 70499D-02 
0.861 790-02 


SYSTEM  ENERG IES( IN-LB) 

WORK  INPUT  TO  STRUCTURE 
STRUCTURE  KINETIC  ENERGY 
STRUCTURE  ELASTIC  ENERGY 
STRUCTURE  PLASTIC  ENERGY 
ENERGY  STORED  IN  ELASTIC 


= 0.38488320+04 

= 0.23814370+04 

= 0.27360410+03 

= 0 11937910+04 

RESTRA  INTS=  0.0 


-0.89456D+02 
-0.874250+02 
-0. B9084D+02 
-0.865550+02 
0.0 

0.900000+02 
0.890840+02 
0.865550+02 
0.89456D+02 
0.874250+02 
0 . B8930D+02 
0.894370+02 
0 . 89663D+02 
0 . B9646D+02 
0 . 900000+02 
0 . 90000D+02 
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) 


*****  INCR.  NO . = (40  TIME=  0 3500D-03  SEC. 


NODE  U 


1 

0 

0 

2 

0 

0 

3 

0 

0 

4 

0 

0 

5 

0 

0 

6 

0 

1 1 168D- 

7 

0 

53935D- 

8 

0 

3921 80- 

9 

-0 

539350- 

10 

-0 

1 1 1680- 

1 1 

0 

10482D- 

12 

0 

535090- 

13 

0 

105980- 

14 

-0 

535090- 

15 

-0 

104820- 

16 

0 

99764D- 

17 

0 

485270- 

18 

0 

124650- 

19 

-0 

485270- 

20 

-0 

997640- 

21 

0 

820920- 

22 

0 

3883  ID- 

23 

0 

901  1 00- 

24 

-0 

3883 10- 

25 

-0 

820920- 

26 

0 

854450- 

27 

0 

439430- 

28 

0 

4754  90- 

29 

-0 

439430- 

30 

-0 

854450- 

31 

0 

122520- 

32 

0 

460560- 

33 

0 

181580- 

34 

-0 

460560- 

35 

-0 

1225  20- 

36 

0 

854450- 

37 

0 

439430- 

33 

-0 

1382  20- 

39 

-0 

439430- 

V 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

01 

-0 

160630-01 

02 

-0 

168820-01 

12 

-0 

169380-01 

02 

-0 

16H82D-01 

01 

-0 

16063D-01 

01 

-0 

47561 0-0  t 

02 

-0 

462370-01 

1 1 

-0 

459740-01 

02 

-0 

46237D-01 

01 

-0 

475610-01 

02 

-0 

497290-0 1 

02 

-0 

47/600-01 

1 1 

-0 

469770-01 

02 

-0 

4/7  COD-0 1 

02 

-0 

497290-01 

02 

-c 

31 /63D-01 

02 

-0 

313070-01 

12 

-0 

308980-01 

02 

-0 

313070-01 

02 

-0 

sr'oao-ot 

02 

-0 

214970-01 

02 

-0 

2I507D-0! 

12 

-0 

213140-01 

02 

-0 

215070-01 

02 

-0 

214970-01 

01 

-0 

128280-1 1 

02 

0 

198150-11 

12 

0 

973870-1 1 

02 

0 

193620-11 

01 

-0 

260070-12 

02 

0 

214970-01 

02 

0 

215070-01 

12 

0 

213140-01 

02 

0 

215070-01 

W 

0.0 
0 0 
0.0 
0.0 
0 0 

0 22  456D+00 
0 22  3730  + 00 
0.22341D+00 
0 22  37 3D+00 
0 22  456D+00 
0 51 2250+00 
0 51 0970+00 
0 51 063D+00 
0.51 097D+00 
0.51 225D+00 
0.75  11  10+00 
0 745550+00 
0.74  362D+00 
0 7 4 555D+00 
07511 10+00 
0 .892330+00 
0 839730+00 
0 888100+00 
0 . 88  973D+00 
0 89  283D  + 00 
0 . 95G2GD+00 
0.9481 6D+00 
0 945630+00 
0 948160+00 
0 956260+00 
0 962310+00 
0 95  365D+00 
0 . 95  040D+00 
0 95  365D+00 
0.962310+00 
0.956260+00 
0 94  8 1 6D+00 
0.945630+00 
0. 948160+00 


PSIX 

0 0 
0.0 
0 0 
0.0 
0.0 

-0.383880-02 
-0. 1 4533D-02 
-0  54197D-12 
0. 145330-02 
0.383880-02 
-0  9 8638D- 02 
-0.235900-02 
-0  22515D-11 
0 235900-02 
0 . 98638D-02 
-0  200500-01 
-0  9961 9D-02 
0 273220-11 
0 996190-02 
0 200500-01 
-0  62094D- 02 
-0  820740-02 
0 69554D- 1 2 
0 . 82074D-02 
0 . 62094D- 02 
-0  309290-01 
-0.1 2569D-0 1 
-0.957750-12 
0. 1 2569D-01 
0. 30929D-01 
-0  178670-01 
-0  207400-01 
-0.285190-12 
0 . 20740D-01 
0. 1 7 867D- 0 1 
-0.309290-01 
-0.1 25690-01 
0.1 1766D-1 1 
0.1 2569D-0 1 


PSIY 

0 0 
0 0 
0 0 
0 0 
0 0 

0 350400400 
0 360990+  00 
0 362610+00 
0 . 360990+00 
0 . 350400+  00 
0 39266D+00 
0 38957D+  00 
0 389470+00 
0 38957D+00 
0 39266D+  00 
0 337550+00 
0 3241  2D  +00 
0 32257D+  00 
0 324120+00 
0 337550+00 
0. 245660+00 
0 2 1 480D  + 00 
0 208970+00 
0. 2 I 480D+  00 
0 245660+00 
0. 139370+00 
0.  1 1210D+  00 
0. 108689+00 
0 112100+00 
0 139370+00 
0. 925880-10 
0. 195220-10 
-0. 198810-10 
0 12620D-10 
0 . 664540-10 
-0. 13937Dr00 
-0. 1 121 OD  +00 
-0  108680+00 
-0.  1 1 21 OD  + 00 


TWIST 

0.0 
0.0 
0 .0 
O.C 
0.0 

0.206500-01 
0 . 130460-01 
-0 .21 121D-1 1 
-0 . 130460-01 
-0 . 206500-01 
-0  626000-01 
0 .816120-03 
-0-313440-11 
-0 .816120-03 
0 626000-01 
-0 . 133260+00 
-0  644960-02 
-0. 952710-11 
0 644960-02 
0 .133260+00 
-0 .175560+00 
-0 .363510-01 
-0 .425410-12 
0 .363510-01 
0 . 17556D+00 
-0 . 141550+00 
-0  22280D-01 
-0  927130-12 
0 . 22280D-01 
0 . 141550+00 
-0-544990-09 
0. 19140D-09 
-0-266750-10 
-0 .18811 D-09 
0-390310-09 
0 . 141550+00 
0.222800-01 
0-958830-12 
-0 .222800-01 


X-POS. 

0.0 

0.374250+00 
0.74850D+00 
0. 1 1227D+01 
0. 14970D+01 
0.1 1 168D-01 
0.379640+00 
0 74850D+00 
0.1 11740+01 
0.148580+01 
0.104820-01 
0 379600+00 
0. 748500+00 
0.111740+01 
0.148650+01 
0.997640-02 
0.379100+00 
0 748500+00 
0.11 1790+01 
0.148700+01 
0.82092D-02 
0.378130+00 
0.748500+00 
0. 1 1 189D+01 
0.148880+01 
0.854450-02 
0.378640+00 
0.748500+00 
0.11 1840+01 
0. 148850+01 
0.122520-01 
0.378860+00 
0.748500+00 
0.1 1 181D+01 
0.148470+01 
0.854450-02 
0.378640+00 
0 . 74850D+00 
0.111840+01 


Y-POS. 

0.0 

0.0 

0.0 

0.0 

0.0 

0.758940+00 
0 758120+00 
0.758060+00 
0.758120+00 
0.758940+00 
0.150240+01 
0. 15038D+01 
0. 15040D+01 
0. 15038D+01 
0. 150240+01 
0.22753D+01 
0.227720+01 
0. 227800+01 
0. 227720+01 
0 . 22753D+0 1 
0.30682D+01 
0. 306.870+01 
0. 306*910+01 
0.306870+01 
0.306820+01 
0.352850+01 
0 . 35285D+0 1 
0 . 35287D+0 1 
0.352850+01 
0 . 35285D+0 1 
0.400000+01 
0.40000D+01 
0. 40000 D+ 01 
0 .400  000+0 1 
0 . 40000D+0 1 
0.447150+01 
0.447150+01 
0.447130+01 
0.447150+01 


Z-POS. 

0.0 

0.0 

0.0 

0.0 

0.0 

0.224560+00 
0 . 22373D+00 
0.22341 D+00 
0.223730+00 
0.22456D+00 
0.51 225D+00 
0.510970+00 
0.510630+00 
0.51 097D+00 
0.51 225D+00 
0.751 1 1D+00 
0 . 74555D+00 
0 . 74  362D+00 
0.745550+00 
0.751 1 1D+00 
0 . 89283D+00 
0 . 88973D+00 
0.8881 OD+OO 
0 . 88973D+00 
0 . 89283D+00 
0 . 95626D+00 
0 . 9481 6D+00 
0 . 94563D+00 
0.9481 6D+00 
0. 95626D+00 
0.96231 D+00 
0 . 95365D+00 
0 . 95040D+00 
0.95365D+00 
0.96231D+00 
0 . 95626D+00 
0.94816D+00 
0. 945630+00 
0.94S16D+00 


286 


,40  -0  854450-02  0 214970-01  0 956260+00  0.309290-01  -0  13937D100  -0.14I55D+00  0 148850+01  0.447150+01  0.956260+00 

‘41  0.820920-02  0 317630-01  0.892830+00  -0.620940-02  -0  24566D*00  0.17556D+00  0.82092D-02  0.493180+01  0.892830+00 

42  0.388310-02  0 313070-01  0-889730+00  -0  820740-02  -0  214800*00  0.363StD-0t  0.378130+00  0.493t3D+0t  0.88973D+00 

43  -0  787890-12  0 309980-01  0 888100+00  0 387510-12  -0  208370100  0.48970D-1I  0 748500+00  0.493090+01  0.888100+00 

44  -0.388310-02  0.313070-01  0 839730+00  0 820740-02  -0  2148ODI0O  -0  363510-01  0 11189D+01  0.49313D+01  0.889730+00 

45  -0  820920-02  0 317630-01  0 892830+00  0 620940-02  -0  245660*00  -0.175560+00  0 148880+01  0 493180+01  0.89283D+00 

46  0 9976 4D-02  0 497290-01  0 751110+00  -0  200500-01  -0  337500*00  0 13326D+00  0.997640-02  0 572470+01  0.751110+00 

47  0 48527D-02  0 477600-01  0 745550+00  -0  996190-02  -0  324120+00  0 644960-02  0.379100+00  0.57228D+0I  0 74SSSD+00 

48  -0  171270-11  0 469770-01  0 743620+00  -0  634370-12  -0  322570*00  -0  222170-10  0 748500+00  0 572200+01  0.74362D+00 

49  -0  465270-02  0.477600-01  0.745550+00  0 996190-02  -0  324120+00  -0  644960-02  0 111790+01  0 57228D+01  0.74555D+00 

50  -0  997640-02  0 497290-01  0 751110+00  0 200500-01  -0  337550*00  -0  13326D+00  0 148700+01  0 572470+01  0.751110+00 

51  0 104820-01  0 475610-01  0 512250+00  -0  986300-02  -0  392660*00  0 626000-01  0 101B2D-0I  0 649760+01  0 51225D+00 

52  0 535090-02  0 462370-01  0 510970*00  -0  235900-02  -0  389570*00  -0  816120-03  0 379600+00  0 64962D+0I  0.51097D+00 

53  -0  1 697 7D- 1 1 0 459740-01  0.510530+00  0 372650-11  -0  339470*00  -0  694040-11  0 748500+00  0.649600  + 01  0.5I063D+00 

54-0.535090-02  046237D-01  0510970+00  0235900-02-0  369570*00  0-816120-03  0.111740+01  064962D+01  0.51097D+00 

55  -0  104820-01  0 475610-01  0 512250+00  0 986380-02  -0  392660*00  -0  62600D-01  0 14865D+01  0.649760+01  0 5I225D+00 

56  0 111600-01  0 160630-01  0 224560+00  -0.363080-02  -0  350400*00  -0  206500-01  0 III68D-0I  0 724110+01  0.224560+00 

57  0 539350-02  0 160620-01  0 223730+00  -0  145330-02  -0.360990*00  -0  130460-01  0.379640+00  0.724190+01  0.223730+00 

58  -0  496910-12  0 1693oD-0l  0 223410+00  0 271860-12  -0  362610*00  -0.392240-11  0 748500*00  0 72419D+01  0 22341D+00 

59  -0  539350-02  0 160020-01  0 223730+00  0 145330-02  -0  360990+00  0.13046D-01  0 111740+01  0. 724190+01  0 22373D+00 

60  -0  111680-01  0 160030-01  0 224560+00  0.383880-02  -0  3S040D*00  0.20650D-01  0 148500+01  0.72411D+01  0.224560+00 

61  00  00  00  00  00  0.0  0 0 0.800000+01  0.0 

62  00  00  00  00  00  0.0  0 374250+00  0.000000+01  0.0 

63  00  00  00  00  0.0  0.0  0 74050D+00  0 800000+01  0.0 

64  00  00  00  00  00  0.0  0.H227D+01  0 800000+01  0.0 

65  0.0  0.0  00  00  00  0.0  0 149700+01  0. 800000+01  0.0 

REACTION  FORCES  A'  CONSTRAINED  NOOCS 


NODE 

RX(LBS) 

RY(LBS) 

RZ(LBS) 

mx(lbs-in) 

MY ( LBS-IN) 

MXY(LBS-IN-IN) 

1 

-0 

208510+03 

-0.557 17D+03 

-0 

1 9C68D  + 03 

-0. 17373D+02 

-0  391410+02 

-0  257090+01 

2 

-0 

582130+02 

-0  672760+03 

-0 

359760+03 

0 196490+00 

-0  6721 3D+02 

-0.392300-01 

3 

-0 

1 1835D-07 

-0  656540+03 

-0 

356820+03 

0 20692D-09 

-0. G8003D+02 

0 971450-10 

4 

0 

582130+02 

-0  672780+03 

-0 

35976D+03 

-0. 196490+00 

-0.672130+02 

0 392300-01 

5 

0 

2085 1 D + 03 

-0  557170+03 

-o. 

. 19668D  + 03 

0.173730+02 

-0. 391410+02 

0 257090+01 

61 

-0 

208510+03 

0 557170+03 

-0 

196680+03 

-0.173730+02 

0 391410+02 

0. 25709D+01 

62 

-0 

5S213D+02 

0 672780+03 

-0 

359760+03 

0 19649D+00 

0. 672130+02 

0 392300-01 

63 

0 

142400-08 

0 656540+03 

-0 

358820+03 

0 970570-09 

0 680030+02 

-0  230370-10 

64 

0 

532 1 3D  + 02 

0 672760+03 

-0 

359760+03 

-0  196490+00 

0. 672130+02 

-0  392300-01 

65 

0 

208510+03 

0.557170+03 

-0 

196680+03 

0.173730+02 

0 391410+02 

-0.25709D+01 

STRAIN  COMPONENTS.  PR  INC  1 PAL ( T ENS I L£  ) STRAIN  AND  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 


EP5-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN 

ELEM.  INNER  OUTER  INNER  OUTER  INNER  OUTER 

1 -0  74250-02  -0  79510-02  0 61570-01  0 14710-01  0 68110-02  0 9373D-02 

2 -0  69310-02  -0  74750-02  0.60510-01  0 1281D-01  0 2e830-02  0.34040-02 

3 -0  693.10-02  -0  74750-02  0 60510-01  0.12810-01  -0  28830-02  -0  34040-02 

4 -0  74210-02  -0  79510-02  0 61570-01  0 14710-01  -0  68410-02  -0  9373D-02 

5 -0  14830-01  -0  14300-01  C 31260-01  0 27030-01  -0  39660-03  0 15150-02 

6 -0  14260-01  -0  144EO-01  0 31780-01  0 28200-01  0 29950-04  0.1I07D-03 

7 -0  14260-01  -0  11150-01  0 31780-01  0 23200-01  -0  29)60-04  -0  11070-03 

8 -0.14830-01  -0  14300-01  0 31260-01  0 270J0-0I  0 39660-03  -0  I5I5D-02 

9 -0  13310-01  -0  14040-01  0 32570-01  0 40890-01  -0  12410-03  0.40900-02 

10  -0  12000-01  -0  11370-01  0.31130-01  0 40190-01  -0  38/20-03  0 11040-02 

11  -0  1288D-01  -0  14370-01  0 31430-01  0 40190-01  0 36720-03  -0  11040-02 

12  -0  133  ID-01  -0  14040-01  0 32570-01  0 40890-01  0 124  10-03  -0  409BD-02 

13  -0  12210-01  -0  12993-01  0 25140-01  0 38750-01  0 39750-02  -0  2944D-02 

14  -0  10020-01  -0.12510-01  0 24250-01  0 39100-01  0 10300-02  -0  2392D-03 

15  -0  10820-01  -0  12510-01  0 242E0-01  0 39IC0-0I  -0  10)00-02  0 23920-03 

16  -0  12210-01  -0  12990-01  0 25440-01  0 38750-01  -0  39750-02  0 2944D-02 

17  -0  99390-02  -0  12170-01  0 17050-01  0 40530-01  -0  I002D-02  0 5740D-03 

18  -0  95170-02  -0  12560-01  0 16460-01  0 39320-01  0 38790-03  0 98450-03 

19  -0  95170-02  -0  12560-01  0.16460-01  0 39320-01  -0.38790-03  -0  9845D-03 

20  -0  99390-02  -0  12470-01  0 17050-01  0 40530-01  0.10020-02  -0.57400-03 

21  -0  13420-01  -0.17360-01  0.34200-01  0 61430-01  0 51160-02  0 39740-02 


PRINC  STRAIN! T ) 
INNER  OUTER 

0 61740-01  0 15640-01 

0 60540-01  0 12950-01 

0 6054D-01  0. 12950-01 

0 6174D-01  0 1564D-01 

0. 31260-01  0 2705D-0I 

0 31 7BD-01  0 28200-01 

0 31 7BD-01  0 2820D-0 1 

0 31260-01  0 2705D-0I 

0 3257D-01  0 4097D-01 

0.31430-01  0 40190-01 

0 3143D-01  0.40190-01 

0 3257D-01  0 4097D-01 

0 2554D-0I  0 38BOD-01 

0.2426D-0I  0 3910D-01 

0 24260-01  0 3910D-0I 

0 25540-01  0 38800-01 

0 17060-01  0 40530-01 

0. 16460-01  0 39320-01 

0 16460-01  0.3932D-01 

0. 1706D-0I  0.40530-01 

0 34330-01  0 61480-01 


OIRECTlONfDEQ.) 

INNER  OUTER 

0.87170+02  0. 7876D+02 

0.68780+02  0.85240+02 

-0  8878D+02  -0.85240+02 
-0.8717D+02  -0 . 7876D+02 
-0.89750+02  0 . 6895D+02 

0 8998D+02  0 B992D+02 

-0  89980+02  -0  89920+02 
0 0975D+02  -0  BU95D+02 
-0  89920+02  0 B787D+02 

-0  8975D+02  0 8942D+02 

0 B975D+02  -0  B942D+02 
0 89920+02  -o  B787D+02 
0 86990+02  -0  8837D+02 
0 8916D+02  -0  89870+02 
-0  89160+02  0 89870+02 

-0  86990+02  0.8837D+02 

-0.08940+02  0 69690+02 

0 . 8957D+02  0 89460+02 

-0  89570+02  -0  8946D+02 
0.00940+02  -0  89690+  02 
0.86930+02  0.8B56D+02 


I 


22 

-0, 

, 955  2D-02 

23 

“0 

9552D-02 

24 

-0. 

.13420-01 

25 

-0 

13420-01 

26 

-o 

9552D-C2 

27 

-o 

95520-02 

28 

-0. 

.134  20-01 

29 

-o 

993  9D~  02 

30 

-o 

931 7D-02 

31 

-0 

951 70-02 

32 

-0 

99390-02 

33 

-o 

122 10-01 

34 

-0 

10820-01 

35 

-o 

10820-01 

36 

-0 

122  ID-01 

37 

-0 

133 10-01 

38 

-o 

128GD-01 

39 

-0 

12300-01 

40 

-0 

13310-01 

41 

-o 

1 1330-01 

42 

-o 

14260-01 

43 

-0 

14260-01 

44 

-0 

14830-01 

45 

-o 

74250-02 

46 

-o 

6933D-02 

47 

-0 

69330-02 

48 

-o 

74250-02 

STRAIN  COM°Ou£NTS 
EPS- 

NODE 

INNER 

33 

-0 , 

.10850-01 

! 35 

-0 

23790-01 

l 38 

-0. 

.S632D-02 

40 

-0 

80250-02 

48 

-o 

1 1470-01 

50 

-o, 

. 1200D-01 

0.14430-01 
■0.  (4430-01 
0.17360-01 
0 17360-01 
0 14-130-01 
0.14 130-01 
0 17360-01 
12470-01 
12560-01 
12560-01 
12170-01 
12900-01 
12510-01 
12510-01 
12990-01 
1404D-01 
14370-01 
1437D-01 
1 :04D-01 
14300-01 
14 150-01 
14450-01 
14300-01 
79510-02 
7 175D-02 
74 '50-02 
79510-02 


0. 

.3S25D-01 

0 

60040-01 

0 

SOI 3D-03 

0. 

.352  50-01 

0 

60040-01 

-0. 

.50130-03 

0 

34200-01 

0 

61430-01 

-o. 

.51160-02 

0 

34200-01 

0 

61430-01 

-0 

51 1 60-02 

0 

35250-01 

0 

600  10-01 

-0 

50130-03 

0 

3525D-01 

0 

60040-01 

0 

50130-03 

0 

34200-01 

0 

61430-01 

0 

51 1 G0-02 

0 

17050-01 

0 

4053D-01 

0 

10020-02 

0 

16460-01 

0 

3932D-01 

-0 

30790-03 

0 

16460-01 

0 

39320-01 

0 

387  90-03 

0 

17050-01 

0 

40530-01 

-0 

10020-02 

0 

25440-01 

0 

39750-01 

-0.39760-02 

0 

24250-01 

0 

39100-01 

-0. 

.10300-02 

0 

2425D-01 

0 

39100-01 

0 

1 030D-02 

0 

25440-01 

0 

30750-01 

0 

39750-02 

0 

32570-01 

0 

40890-01 

0 

12410-03 

0 

31430-01 

0 

40190-01 

0 

38720-03 

0 

3I43D-01 

0 

40190-01 

-0 

38720-03 

0 

32570-01 

0 

40890-01 

-0 

12410-03 

0 

31260-01 

0 

27030-01 

0 

33SC0-03 

0 

31760-01 

0 

28200-01 

-0 

29950-04 

0 

3I78D-01 

0. 

.28200-01 

0 

29950-04 

0 

31260-01 

0 

2703D-01 

-0 

39660-03 

0 

6157D-01 

0 

14710-01 

-0 

68410-02 

0 

60510-01 

0 

12810-01 

-0 

20830-02 

0 

60510-01 

0 

1281D-01 

0 

28830-02 

0 

61570-01 

0. 

.14710-01 

0 

604  10-02 

0 66540-03 
-0  66540-03 
-0.39740-02 
-0  39740-02 
-0  66540-03 
0 66540-03 
0 39740-02 
-0  57400-03 
-0  96450-03 
0 93450-03 
0 57400-03 
0 29440-02 
0 2J920-03 
-0  23920-03 
-0  29440-02 
-0  40980-02 
-0  11040-02 
0 11040-02 
0 40980-02 
-0  15150-02 
-0  1187D-03 
0 11070-03 
0 15150-02 
-0  93730-02 
-0  34040-02 
0 34040-02 
0 93730-02 


PR  INC  164  L (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED 


OUTER 


-0  13850-01 


EPS-Y  STRAIN 
INNER 
0 64790-01 
0.70230-01 
0 24060-01 
0 29490-01 
0 51080-01 
0 52100-01 


SHEAR  STRAIN 
OUTER  INNER  OUTER 

0 29940-01  -0. 3463D- 1 1 0 19780-11 

0 25330-01  0.30410-10  -0  41210-10 

0 56410-01  -0  24820-12  -0  44380-12 
0 60520-01  -0  14280-01  0 14590-01 

0 72420-01  -0  83440-12  0 36980-11 

0 82240-01  -0  16570-01  0 10620-01 


0 35250-01 
0 3S25D-01 
0 34330-01 
0,34330-01 
0.35250-01 
0 35250-01 
0.34330-01 
0 17060-01 
0 16460-01 
0 16460-01 
0 17060-01 
0 25540-01 
O 24260-01 
0 24200-01 
0 2554D-0 1 
0 32570-01 
0 3143D-01 
0 31430-01 
0 32570-01 
0 31260-01 
0 31700-01 
0 31700-01 
0 31260-01 
0 61740-01 
0 60540-01 
0 60540-01 
0 61740-01 


0 60040-01 
0.60040-01 
0.61400-01 
0.61400-01 
0 60040-01 
0 60040-01 
0 61400-01 
0 40530-01 
0 39320-01 
0 39320-01 
0 40530-01 
0 38800-01 
0 39100-01 
0 39100-01 
0 38000-01 
0 40970-01 
0 40190-01 
0 40190-01 
0 40970-01 
0 27050-01 
0 20200-01 
0 28200-01 
0.27050-01 
0 15640-01 
0 12950-01 
0.12950-01 
0 15640-01 


0.89680*02 
-0.89680+02 
-0  86930+02 
-0  86930+02 
-0.89680+02 
0 89680+02 
0 86930+02 
0 88940+02 
-0  89570+02 
0 89570+02 
-0  88940+02 
-0  06990+02 
-0  89160+02 
0 89160+02 
0 86990+02 
0 89920+02 
0 89750+02 
-0.89750+02 
-0  89920+02 
0 B975D+02 
-0  89900+02 
0 89900+02 
-0  89750+02 
-0  87170+02 
-0  88700+02 
0 88780+02 
0 07170+02 


0.8974D+02 
-0.89740+02 
-0.88560+02 
-0  88560+02 
-0.89740+02 
0.89740+02 
0.88560+02 
-0.89690+02 
-0  894UD+02 
0 89460+02 
0 89690+02 
0 88370+02 
0 89870+02 
-0  89870+02 
-0.88370+02 
-0  87870+02 
-0  89420*02 
0 89420+02 
0.878  70+02 
-0.80950+02 
-0 ,8992Dt02 
0 89920+02 
0.88950+02 
-0  787GD+02 
-0.85240+02 
0. 85240+02 
0. 7876D+02 


NOOES 


0 

0 

0 

0 

0 

0 


PR  INC 
INNER 
64790-01 
70230-01 
24060-01 
30810-01 
51000-01 
53150-01 


. StRAlN(T)  DIRECTIOti(DCG.) 

OUTER  INNER  OUTER 
0 29940-01  -0  90000+02  0.90000+02 
0.25330-01  0.90000+02  -0.9000D+02 
0 56410-01  -0  90000+02  -0.9000D+02 
0.61240-01  -0.79580+02  0.84400+02 
0.72420-01  -0  90000+02  0. 90000+02 
0 82530-01  -0  8275D+02  0.86880+02 


STRAIN  COMPONENTS,  PR  INC  I PAL ( T ENSI LE ) STRAIN  AND  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT  NO. 
1 
1 
2 
2 
3 

3 

4 

4 

5 

5 

6 
6 
7 

7 

8 
8 
9 
9 

10 
10 
11 
1 1 


SURFACE 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNCR 

OUIER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUIER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 


EPS-X  STRAIN 
0 320100-25 
0 320100-25 
-0  367130-02 
-0  376690-02 
-0  141410-01 
-0  I4616D-01 
-0  I3460D-01 
-0  1 12770-01 
-0  105*60-01 
-0  134970-01 
-0  108470-01 
-0  137660-01 
-0  105960-01 
-0  134970-01 
-0  1346CD-01 
-0  14277D-0I 
-0  141410-01 
-0. 1 4616D-01 
-0  3671  3D- 02 
-0  376690-02 
0 358980-18 
-0  358980-18 


EPS-Y  STRAIN 
0 442410-01 
-0  879520-01 
0 458700-01 
-0  427260-01 
0 295370-01 
0 27802D-01 
0 301340-01 
0 54  1590-01 
0 191910-01 
0 52J3ID-01 
0 .64/930-01 
0 299370-01 
0 .191910-01 
0 523310-01 
0 301340-01 
0 544590-01 
0 235370-01 
0.278020-01 
0 453700-01 
-0  427260-01 
0 442410-01 
-0 .879520-01 


SHEAR  STRAIN 
0 506040-12 
0 . 50604D- 1 2 
-0 . 387  7OD-04 
-0  307/60-04 
0 973360-04 
0 97336D-04 
0 II50OD-02 
0 1.5090-02 
0 17374D-02 
0 17374D-02 
0 1729o0-10 
0 227370-10 
-0.173740-02 
-0  173740-02 
-0  115090-02 
-0  1 15030-02 
-0  973360-04 
-0.973380-04 
0 387760-04 
0.387760-04 
0.641 170-12 
0 641170-12 


EL0NI3  (OIR.  1 ) 
0 0 
0 0 

-0  307800-02 
-0  3/7400-02 
-0  142420-01 
-0  147240-01 
-0.135510-01 
-0  1 13H0D-01 
-0  1 0G53D- 01 
-0  I J590D-01 
-0  1O9CGO-0I 
-0  1 10620-01 
-0  106530-01 
-0  1 15900-01 
-0  1 +5510-01 
-0  I 13000-01 
-0.142420-01 
-0  1 4724D-0 1 
-0  367800-02 
-0  3/7400-02 
0 0 
0 0 


ELONG  (OIR  2) 
0.433030-01 
-0.922020-01 
0.448640-01 
-0  436800-01 
0 291130-01 
0 274260-01 
0.29G930-OI 
0 530520-01 
0.190100-01 
0 510290-01 
0.628200-01 
0 295010-01 
0 190100-01 
0.510290-01 
0 296930-01 
0 530520-01 
0.291130-01 
0 274260-01 
0.448640-01 
-0.43680D-01 
0.433030-01 
-0.922020-01 


PRINC  STRN(T) 
0 442410-01 
0 0 

0 458700-01 
0 0 

0 295370-01 
0 278020-01 
0 301410-01 
0 544C4D-01 
0 192160-01 
0 523420-01 
0 647930-01 
0 299370-01 
0.192160-01 
0 523420-01 
0.301410-01 
0 S4464D-01 
0 295370-01 
0.278020-01 
0 458700-01 
0.0 

0.442410-01 

0.0 


DIRECT  I ON (DEG.) 
0 900000+02 
0 0 

-0.699780+02 
0 0 

0 899360+02 
0 899340+02 
0 892440+02 
0 895200+02 
0 883310+02 
0 892440+02 
0.900000+02 
0 900000+02 
-0  803310+02 
-0  892440+02 
-0  892440+02 
-0  895200+02 
-0  899360+02 
-0  899340+02 
0 899780+02 
0.0 

0. 900000+02 

0.0 


SYSTEM  ENERGIES! IN-LB) 
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WORK  INPUT  TO  STRUCTURE  ■ 
STRUCTURE  KINETIC  ENERGY  • 
STRUCTURE  ELASTIC  ENERGY  • 
STRUCTURE  PLASTIC  ENERGY  • 

energy  stored  in  elastic  restraints. 


0 . 38488320+04 
0. 87946300+02 
0.674 19080+02 
0.36934660+04 
0.0 


»•»•+  INCR.  NO. * ISO  TIME.  0.37500-03  SEC. 


NODE 

u 

V 

w 

PSIX 

PSIY 

TWJST 

X-POS. 

1 

0 

0 

0 

0 

0 

0 

0. 

,0 

0. 

0 

o.o 

0.0 

2 

0 

0 

0. 

.0 

0 

0 

0 

0 

0 

0 

0.0 

0 . 374250.00 

3 

0. 

,0 

0 

0 

0. 

.0 

0 

0 

0. 

,0 

o.o 

0 . 74850D+00 

4 

0 

0 

0 

0 

0. 

.0 

0 

0 

0 

0 

0.0 

0.112270+01 

5 

0 

0 

0 

0 

0. 

.0 

0. 

.0 

0. 

0 

o.o 

0.149700+01 

6 

0. 

, 105770-01 

-0 

154720-01 

0 

21 8550+00 

-0. 

. 6 2583D-02 

0. 

. 33756D*  00 

0 1 5768D-Q1 

0.10577D-01 

7 

0 

510890-02 

-0, 

.159570-01 

0 

21 7090+00 

-0. 

.262100-02 

0 

347610*00 

0.131240-01 

0. 379360+00 

8 

0 

17067D-12 

-0 

159160-01 

0 

21 6550+00 

“0 

857200-12 

0 

349260*  00 

-0  293450-11 

0.74B50D+00 

9 

-0 

510890-02 

-0 

159570-01 

0 

21 7090+00 

0 

262100-02 

0 

347610-00 

-0.131240-01 

0. 111760+01 

10 

-o 

105770-01 

-0 

154720-01 

0 

21 8550+00 

0 

625830-02 

0 

337560*00 

-0. 157600-01 

0 148640+01 

1 1 

0 

9916*10-02 

-o 

425560-01 

0 

490510+00 

-0, 

.905160-02 

0 

37709D*  00 

-0 . 66297D-01 

0.991640-02 

12 

0 

506320-02 

-0 

412450-01 

0 

489220+00 

-0 

236590-02 

0 

374390+00 

0.243230-02 

0.379310+00 

13 

0 

809720-12 

-0 

409760-01 

0 

488870+00 

-0 

231430-11 

0. 

374600*00 

-0.230260-11 

0.748500*00 

14 

-0 

506320-02 

-0 

412450-01 

0 

489220+00 

0 

236590-02 

0 

374390+00 

-0.243230-02 

0.111770+01 

15 

-o 

991640-02 

-0 

425560-01 

0 

490510+00 

0 

985160-02 

0. 

. 377090  + 00 

0.662970-01 

0 148710+01 

16 

0 

9-56300-02 

-0 

424520-01 

0 

71 7070+00 

-0. 

.152070-01 

0 

333670*00 

-0. 13143D  + 00 

0.946300-02 

17 

0 

*1510  10-02 

-0 

407970-01 

0. 

.71 2430+00 

-0 

883880-02 

0 

320490+00 

-0.581650-02 

0 37886D+00 

18 

0 

100400-1 1 

-0 

400750-01 

0 

71 0670+00 

0 

233170-11 

0 

319060*  00 

-0. 109140-10 

0 740500+00 

19 

-o 

4610  10-02 

-o 

407970-01 

0, 

.71 2430+00 

0 

883880-02 

0 

320490*00 

0 581650-02 

0 11 1810+01 

20 

-0 

946300-02 

-0 

424520-01 

0 

71 7070+00 

0 

152070-01 

0 

333670*00 

0 131430+00 

0.148750+01 

21 

0 

78979D-02 

-o 

280010-01 

0, 

.870380+00 

-0 

570920-02 

0 

2705QD+00 

-0  170120+00 

0 789790-02 

22 

0 

3705  ID-02 

-0 

279120-01 

0 

06  704D+00 

-0 

919650-02 

0 

237Q4D*  00 

-0  397520-01 

0.377900.00 

23 

0 

742220-12 

-0 

270760-01 

0 

86  51 90+00 

-0 

779610-12 

0 

231350*00 

0 39302D- 1 t 

0.740500+00 

24 

~o 

370510-02 

-0 

270120-01 

0 

067040+00 

0 

919650-02 

0 

237840*00 

0 . 397520-01 

0 111900+01 

M 25 

-0 

789790-02 

-0 

280010-01 

0, 

.87  03804  00 

0 

570920-02 

0 

270590*00 

0 . 1781 2D+00 

0 148910+01 

00  2 6 

0 

822570-02 

-o 

206830-01 

0 

940590+00 

-0 

30349D-O1 

0 

1 70720*00 

-0 . 161770+00 

0 82257D-02 

00  2 7 

0 

419500-02 

-0 

203510-01 

0 

938430+00 

-0 

1 6392D- 0 1 

0 

139050*00 

-0  206220-01 

0 378440+00 

28 

0 

3315 10-12 

-0 

201120-01 

0 

935170+00 

-0 

280750-12 

0 

134430*00 

0 2O016D-11 

0 74850D+00 

29 

-o 

41950D-02 

-0 

20 J510-0 1 

0 

930430+00 

0 

1 63920-0  t 

0 

139050*00 

0 28622D-01 

0 111860+01 

30 

-o 

822570-02 

-0 

20683D-0 1 

0 

940590+00 

0 

383490-01 

0 

170720*00 

0 16177D+00 

0. 148880+01 

31 

0 

1187 10-01 

0 

47J1 10-13 

0 

96  1970+00 

-0 

299990-01 

0 

127270-09 

-0.592000-09 

0.1 1871 D-Ot 

32 

0 

436070-02 

0 

209480-1 1 

0 

950080+00 

-0 

263950-01 

0 

G712UD- 10 

0 . 18001D-09 

0 378610+00 

33 

0 

1 624  4D~ 1 2 

0 

102880-10 

0. 

.945750+00 

-0 

422580-13 

0 

24093D- 10 

-0  274190-10 

0 748500+00 

34 

-0 

436070-02 

0 

191350-1 1 

0 

9503UD*00 

0 

2 C395D- 0 1 

0 

487630-10 

-0  109040-09 

0 111Q4D+0I 

35 

-o 

1 187 10-01 

0 

708150-12 

0 

96 1970+00 

0 

299990-01 

0 

901540-10 

0 429410-09 

0 148510+01 

36 

0 

022570-02 

0 

206830-01 

0 

94  859D+00 

-0 

303490-01 

-0 

170720*00 

0 161770+00 

0 822570-02 

37 

0 

419500-02 

0 

20 J5 1 0-0 1 

0 

930430+00 

-0 

1 63920-01 

-0 

13^050*00 

0 206220-01 

0 378440*00 

38 

0 

893240-14 

0 

201 120-01 

0 

935170+00 

0 

2732QD-1 1 

-0 

134430*00 

0 95934D- 1 1 

0 74850D+00 

39 

*0 

419500-02 

0 

203510-01 

0 

930430+00 

0 

1 6392D- 0 1 

-0 

139050*00 

-0  206220-01 

0 1ll'i6D(0l 

40 

-o 

822570-02 

0 

206830-01 

0 

948590+00 

0 

383490-01 

-0 

1 70720*00 

-0  161770+00 

0 14880D+01 

41 

0 

789790-02 

0 

260010-01 

0 

870330+00 

-0 

570920-02 

-0 

27058D*  00 

0 17812D+00 

0 789790-02 

42 

0 

370510-02 

0 

275120-01 

0 

867040+00 

-0 

9 1 9G50- 02 

-0 

237040*00 

0 397520-01 

0 377960+00 

43 

“0 

41G37D-12 

0 

270760-01 

0 

665190+00 

0 

601 150-1 1 

-0 

231350*00 

0. 101830-Ip 

0 740500+00 

44 

-o 

3705  ID-02 

0 

275120-01 

0 

867040+00 

0 

9 1 9650-02 

-0 

237040*00 

-0  397520-01 

0 111900+01 

45 

-0 

7097  9D-02 

0 

280010-01 

0 

070380+00 

0 

570920-02 

“0 

270580*00 

-0  178120+00 

0 14B91D+0I 

46 

0 

946300-02 

0 

424520-01 

0 

71 7070+00 

-0 

1 5207D-0 1 

-0 

33367D*  00 

0 . 1 3 1 4 3D  + 00 

0 946300-02 

47 

0 

461010-02 

0 

407J70-01 

0 

71 2430+00 

-o 

8036GD-02 

-0 

320490*00 

0 581650-02 

0 370860+00 

48 

-0 

102550-1 1 

0 

40L  750-0 1 

0 

710670+00 

0 

264250-11 

-0 

319060*00 

-0  2 *UG0D- 1 0 

0 74050D+00 

49 

-o 

461010-02 

0 

407970-01 

0 

71 243D+00 

0 

803800-02 

-0 

320490*00 

-0  50165D-02 

0.1 1 1B1D+0I 

50 

-o 

946300-02 

0 

42 1520-01 

0 

717070+00 

0 

152070-01 

-o 

3336701 00 

-0  131430+00 

0 14875D+0I 

51 

0 

991640-02 

0 

425560-01 

0 

490510+00 

-0 

905160-02 

-0 

377090*00 

0 662970-01 

0. 991640-02 

52 

0. 

,506320-02 

0 

4 1 245D-0 1 

0 

489220+00 

-o 

236590-02 

-o 

374390*00 

-0.243230-02 

0 379310+00 

53 

-o 

110430-1 1 

0.409760-01 

0 

488870+00 

0 

631940-1  1 

-0 

374600+00 

-0  815920-11 

0.748500+00 

54 

-o 

500320-02 

0 

412450-01 

0 

409220+00 

0 

236590-02 

-0. 

374390* 00 

0.243230-02 

0.1 1 I77D+01 

55 

-o, 

99164D-02 

0 

425560-01 

0 

49  C5 1 0+00 

0 

9051GD-02 

-o 

377090*00 

-0  662970-01 

0. 148710+01 

56 

0 

1 057  7D-01 

0. 

■ 15-.72D-01 

0 

21 b55D+00 

-0 

625030-02 

-0 

33/560*00 

-0 . 157680-01 

0 105770-01 

57 

0 

51089D-02 

0. 

.159570-01 

0 

21 7090+00 

-0 

262100-02 

-0 

347610-00 

-0 .131240-01 

0.379360+00 

Y-POS. 

0.0 
0.0 
0.0 
0 0 
0.0 

0.75953D+00 
0. 75904D+00 
0.759080+00 
0.759040+00 
0.759530+00 
0.150740+01 
0 1 508BD+0 I 
0.150900+01 
0 150800+01 
0 1 5074D+0 1 
0 228250+01 
0 228420+01 
0 220490+01 
0.228420+01 
0 22825D+0 1 
0 307200+01 
0 307250+01 
0 307290(01 
0 307250+01 
0 307200+01 
0 352930+01 
0 352960+01 
0 352990+01 
0 352960+01 
0 352930+01 
0 400000+01 
0 400000+01 
0.400000+01 
0 400000+01 
0 40000D+0 I 
0 447070+01 
0.447040+01 
0.447010+01 
0 447040+01 
0 447070+01 
0 492800+01 
0.49275D+01 
0 492710+01 
0 492750+01 
0 492B0D+01 
0.571 75D+01 
0 57  I 580+0  I 
0 57I51D+01 
0 571500+01 
0 571750+01 
0 649260*01 
0 649120+01 
0 649100+01 
0.649120+01 
0.649260+01 
0.724050+01 
0. 724100+01 


Z-POS. 

0.0 

0.0 

0.0 

0.0 

0.0 

0.218550+00 
0.217090+00 
0.21 655D+00 
0.21 709D+00 
0 218550+00 
0.490510+00 
0 489220+00 
0 488870+00 
0 489220+00 
0.49051D+00 
0.717070+00 
0.712430+00 
0.71 067D+00 
0.71 243D+00 
0.717070+00 
0 . 87  038D+00 
0.867040+00 
0.865190+00 
0 86704D+00 
0 870380+00 
0 948590+00 
0 938430+00 
0.935170+00 
0.938430+00 
0 948590+00 
0.961970+00 
0.950000+00 
0 945750+00 
0.950000+00 
0 961970+00 
0.948590*00 
0 93843D+00 
0 935170+00 
0.930430+00 
0.948590+00 
0.870380+00 
0 867040+00 
0.865190+00 
0.867040+00 
0 870380*00 
0 . 7 1 707D+00 
0.71 243D+00 
0.710670+00 
0.712430+00 
0.71 707D+00 
0.490510+00 
0.489220+00 
0.480070+00 
0.489220+00 
0.490510+00 
0.218550+00 
0.217090+00 
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I 


• SB  ,-0.1730  1D-I2 

' 59  -0.510890-02 

0.I5916D-0I 

0.21  65504-00 

0. 1 39740- 1 1 -0  349260*00 

-0 .650510-11 

0 .740500+00 

0.724090401 

0.216550400 

0.159570-01 

0 21 7090*00 

0 262100-02  -0  347610400 

0 . 131240-0t 

0.111760+01 

0.724100401 

0.217090400 

60  -0. 105770-01 

0.154720-01 

0.21 6550400 

0 625630-02  -0.337560400 

0 . 157680-01 

0. 14064D+O1 

0.724050401 

0.21 6550400 

61  0.0 

0 0 

0.0 

0 0 0.0 

0.0 

0 0 

0.600000401 

0.0 

62  0 0 

0.0 

0 0 

0 0 0 0 

0.0 

0 . 37425D+00 

0.60000D401 

0.0 

63  0.0 

0 0 

0.0 

0 0 0.0 

0 0 

0 .748500+00 

0.800000401 

0.0 

64  0 0 

0 0 

0 0 

0 0 0 0 

0 0 

0 11227D+01 

0 800000401 

0.0 

65  0 0 

0.0 

0 0 

0.0  0.0 

0 .0 

0.149700+01 

0.800000401 

0.0 

REACTION  FORCES  AT  CONSTRAINED  NODES 


NODE 

RX( IBS) 

RY(LBS) 

RZ(LBS) 

MX(LBS-IN) 

«Y{ LBS-IN) 

MXY { LBS-IN-IN) 

1 

-0.  1 79010+03 

-0  141560+03 

-0.418180+02 

-0.597450+01 

-0.664430401 

-0  306510400 

2 

-0  30362D+02 

-0  305660+02 

-0.755480+02 

0 286690-01 

-0  434000401 

-0  I7978D-01 

3 

0. 44715D-0Q 

-0  446000+02 

-0  75675D+02 

-0  606520-09 

-0  432630401 

0.222400-11 

4 

0. 30362D+02 

-0  305 6CD+02 

-0  755400+02 

-0. 286690-01 

-0  434000401 

0 . 1 797BD-01 

5 

0 17901D+03 

-0  1 4 1 5GDt03 

-0.418180+02 

0 597450401 

-0  664430401 

0 306510400 

61 

-0  1 790 1 D +03 

0 141560+03 

“0  418160+02 

-0  597450401 

0 664430401 

0 306510400 

62 

-0  30362D+02 

0 305660*02 

-0  755460+02 

0 286090-01 

0 434000401 

0 179780-01 

63 

-0  1 67650-07 

0 446000+02 

-0  756750+02 

0 142770-08 

0 . 43263D401 

-0  40298D-I0 

64 

0 30362D+02 

0.305G6D+02 

“0  755490+02 

-0 . 286G9D-0  1 

0 434000401 

-0  1797BD-01 

65 

0. 179010+03 

0 141560+03 

-0  410180+02 

0 597450401 

0 664430401 

-0.38651D400 

STRAIN  COMPONENTS.  PR  INC  I PAL ( T ENS I LE ) STRAIN  AND  DIRECTION  AT  CENTROID  OF  EACH  ELEMENT 


EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN(T)  D I RECT I ON ( DEG . ) 


ELEM. 

1 

-0 

INNER 

69950-02  -0 

OUTER 

75610-02 

0 

INNER 

58600-01 

0, 

OUTER 

.13490-01 

0 

inner 

62270-02 

0 

OUTER 

93480-02 

0 

INNER 

58740-01 

0 

OUTER 

14400-01 

INNER 

0.87290+02 

0. 

OUTER 

,78030+02 

2 

“0 

64720-02  “0, 

.71750-02 

0 

57570-01 

0 

11630-01 

0 

26180-02 

0 

33750-02 

0 

57600-01 

0. 

117  80-01 

0.68830402 

0. 

,84910+02 

3 

-0 

61720-02  “0 

71750-02 

0 

57570-01 

0 

11630-01 

-0 

2b 1 80-02 

-0 

33750-02 

0 

57600-01 

0. 

1 178D-01 

-0.88B3D+02 

“0. 

,84910+02 

4 

-0 

69950-02  “0 

75610-02 

0. 

• 533  0D-0I 

0 

13490-01 

“0. 

.62270-02 

-0 

93480-02 

0 

58740-01 

0 

14480-01 

-0.87290+02 

“0. 

, 7803D+02 

5 

-0, 

,13970-01  -0 

I3o00-01 

0 

205 10-01 

0 

24590-01 

-0 

761 40-04 

0 

12630-02 

0 

28510-01 

0 

24600-01 

-0.89950402 

0 

89050+02 

6 

-0. 

,13390-01  -0 

13790-01 

0 

29060-01 

0 

25690-01 

0 

13050-03 

0 

4G85D-04 

0 

2906D-01 

0 

25690-01 

0.89910+02 

0, 

,89970*02 

M l 

-0 

13390-01  “0 

13790-01 

0 

290  60-01 

0 

25690-01 

-o. 

,13050-03 

“0 

46850-04 

0 

29060-01 

0 

2569D-0I 

-0. 89910+02 

-0 

89970*02 

co  8 

-0. 

,13970-01  -0 

13600-01 

0 

28510-01 

0, 

.24590-01 

0 

761 40-04 

-0 

42630-02 

0 

28510-01 

0 

24600-01 

0 89950402 

“0 

89050*02 

VO  9 

-0 

1276D-0I  -0 

1 3 1 50-01 

0 

31290-01 

0 

3GQ4D-01 

0 

32920-03 

0 

37870-02 

0 

31290-01 

0 

381 10-01 

0.09790+02 

0. 

.876QD+02 

10 

-0 

1227D-01  -0, 

.13570-01 

0 

301  50-01 

0 

37400-01 

-0 

27490-03 

0 

111  10-02 

0 

301 50-01 

0 

37410-01 

-0  B98ID+02 

0. 

,89380*02 

1 1 

-0 

12270-01  “0 

13570-01 

0 

30150-01 

0 

37400-01 

0 

27490-03 

-0 

1 1 1 10-02 

0 

30150-01 

0 

37410-01 

0 89310*02 

“0 

89380*02 

12 

-0 

12760-01  -0 

13150-01 

0 

31290-01 

0 

30040-01 

“0 

32920-03 

“0 

37870-02 

0 

31290-01 

0 

38110-01 

-0  8979D+02 

“0 

87030+02 

13 

-0 

12040-01  -0 

12100-01 

0.25330-01 

0 

35000-01 

0 

3 1200-02 

-0 

25920-02 

0 

25410-01 

0 

35040.01 

0 07390*02 

-0 

8042D*  02 

14 

-0 

10320-01  -0 

1 1800-01 

0 

24220-01 

0 

35640-01 

0 

81240-03 

“0 

11990-03 

0 

2422D-01 

0 

356‘IDf  01 

0 89330*02 

-0 

89930*02 

15 

-0 

10320-01  -0 

1 108D-01 

0 

21220-01 

0 

3564D-01 

-0 

B124D-03 

0 

1 1990-03 

0 

24220-01 

0. 

3564Dr0l 

-0  89330*02 

0 

89930*02 

16 

-o 

1 204D-01  -0 

12100-01 

0 

25330-01 

0 

35000-01 

-0 

34200-02 

0 

25920-02 

0 

254 10-01 

0 

35040.0) 

-0  87390*02 

0 

86420+02 

17 

-0 

9523D-02  -0 

12120-01 

0 

15560-01 

0 

38010-01 

-0 

25790-02 

0 

12670-02 

0 

1562D-01 

0 

38020-01 

-0  07060*02 

0 

89280+02 

18 

-0 

86990-02  “0. 

. 1 2J6D-01 

0 

143 10-01 

0 

3687D-01 

-0 

21350-03 

0 

10260-02 

0 

148  ID-01 

0 

3GB0D-01 

-0.8974D*02 

0. 

.89400*02 

19 

-0 

86990-02  -0 

12360-01 

0 

14910-01 

0 

36970-01 

0 

21350-03 

~0 

10260-02 

0 

14810-01 

0 

368BD-01 

0 89740*02 

“0 

89400*02 

20 

-0 

95230-02  “C 

121 20-0 1 

0 

15560-01 

0 

38010-01 

0 

25790-02 

-o 

12670-02 

0 

15620-01 

0 

3002Dr0l 

0 87060*02 

-0 

89280+02 

21 

-0 

12050-01  -0 

17530-01 

0 

2S7SD-01 

0 

6247D-01 

0 

42240-02 

0 

461 4D-02 

0 

28800-01 

0. 

62540£p1 

0 67050*02 

0 

88350*02 

22 

-0 

82410-02  “0 

14510-01 

0 

29510-01 

0 

60310-01 

0 

1 ',990-03 

0 

7 9390-03 

0 

29620-01 

0 

603Ufr01 

0 89360*02 

0 

89700*02 

23 

-0 

62410-02  “0 

14510-01 

0 

296  10-01 

0 

69310-01 

-0 

17990-03 

• 0 

79390-03 

0 

29620-01 

0 

60310.01 

-0  69060*02 

-0 

89700+02 

24 

-0 

12050-01  -0 

1 7580-01 

0 

237b0-0l 

0 

G247D-01 

-0 

42240-02 

-o 

46140-02 

0 

28080-01 

0 

62540.01 

-0  G705D+02 

-0 

6035D*02 

25 

-0 

12050-01  -0 

17500-01 

0 

28700-01 

0 

6247D-01 

-o. 

.422 10-02 

-o 

46140-02 

0 

28880-01 

0 

6254D-01 

-0  87050+02 

“0 

00350*02 

26 

-0 

824  ID-02  -0 

14S1D-01 

0 

29610-01 

0 

60310-01 

-0 

17590-03 

- 0 

79390-03 

0 

29620-01 

0 

603  ID-01 

-0  891160*02 

“0 

89700*02 

27 

-0 

82410-02  -0 

1 1510-01 

0 

23310-01 

0 

603 10-01 

0 

17590-03 

0 

79390-03 

0 

29620-01 

0 

60310-01 

0 898GD*02 

0 

89700*02 

28 

-0 

120  50- C 1 -0 

1758D-01 

0 

207  CD-01 

0 

62470-01 

0 

42240-02 

0 

461 40-02 

0 

22680-01 

0 

62540-01 

0 . 87  05D*  02 

0 

0O35D*  02 

29 

-0 

95230-02  -0 

12120-01 

0. 

.15560-01 

0 

38010-01 

0 

25790-02 

-0 

12670-02 

0 

15C2D-01 

0 

38020-01 

0 87C6D+02 

-0 

09200+02 

30 

-0 

8b9  90-02  -0 

123GD-01 

0 

14310-01 

0 

3o870**0t 

0 

21360-03 

“0 

10260-02 

0 

1481D-01 

0 

36080-01 

0 8974D*02 

“0 

0940D+02 

31 

-0 

0b9  1D-02  -0 

12360-01 

0 

14310-01 

0 

36070-01 

-0 

21350-03 

0. 

, 102CD-02 

0 

148  ID-01 

0 

3GB0D-01 

-0  0974D*  02 

0 

8940D+02 

32 

-0 

9523D-02  -0 

121 2D-01 

0 

15500-01 

0 

39010-01 

“0 

257 "0-02 

0 

12670-02 

0 

15620-01 

0 

38020-01 

-0  Q70GD+02 

0 

89200*02 

33 

-0, 

,12040-01  -0 

121 00-01 

0 

25330-01 

0 

35000-01 

-0 

3 1200-02 

0 

25920-02 

0 

25410-01 

0 

35040-01 

-0  0739D*02 

0 

00420*02 

34 

“0 

i o j 2o-o i 

1 I'jbD-Ol 

9 

24220-01 

0 

35G40-01 

-0 

812  10-03 

0 

11990-03 

0 

24220-01 

0. 

.36640-01 

-0  89330*02 

0 

09930*02 

35 

-0. 

,10320-01  -0 

1 ILC0-01 

6 

24220-01 

0 

35G4D-01 

0 

81240-03 

-o 

t I99D-03 

0. 

.24220-01 

0. 

.35640-01 

0 09330*02 

“0. 

.89930+02 

36 

-0 

12040-01  -0 

121 00-01 

0 

25330-01 

0 

36000-01 

0 

3 1300-02 

“0 

25920-02 

0 

26410-01 

0 

35040-01 

0 8739D*02 

-0, 

.88420+02 

37 

-0 

12760-01  -0 

131 50-01 

0 

31250-01 

0 

JJO  10-01 

“0 

32)20-03 

0 

378 /D-02 

0 

31290-01 

0 

381 10-01 

-0.8979D+02 

-0 

87000+02 

38 

-0 

12270-01  -0 

13570-01 

0 

30150-01 

0 

37400-01 

0 

27 190-03 

-o 

1 1 1 10-02 

0 

30150-01 

0 

37410-01 

0.89310+02 

“0. 

•8930D+02 

39 

-0 

12270-01  -0 

13570-01 

0 

301 50-01 

0 

3740D-01 

“0 

27490-03 

0, 

,111 10-02 

0. 

.30150-01 

0* 

,37410-01 

-0.89810*02 

0. 

. 8936D+02 

40 

-0 

1276D-01 

-0  13150-01 

0 

31 29D-01 

0 

3804D-01 

0 

3J92D-03 

0 

^7870-02 

0 3129D-01 

0.381  ID-01 

0.8979D+02 

0 . 8788D+02 

41 

-0 

1397D-01 

-0. 1 3600-01 

0 

285  ID-01 

0 

2469D-01 

0 

7o1 40-04 

- 0 

1 2630-0? 

0 2B51D-01 

0.2460D-01 

0 . 8995D+02 

-0.B905D+02 

42 

-0 

133UD-01 

-0. I379D-01 

0 

2S06D-01 

0 

2569D-01 

-0 

1305D-03 

- 0 

4686D-04 

0 2906D-01 

0 . 2569D-01 

-0.8991D+02 

-0 . 8997D+02 

43 

-0 

1 J39D-01 

-0  1379D-01 

0 

2906D-01 

0 

2569D-01 

0 

130GD-03 

0 

4085D-04 

0 . 2906D-0 1 

0 . 2569D-01 

0.8991D+02 

0 . 8997D+02 

44 

-0. 

. 1397D-01 

-0  136CD-01 

0 

205  ID-01 

0 

2459D-01 

-0 

76140-04 

0 

12630-02 

0 2851D-01 

0.2460D-01 

-0 . 8995D+02 

0.8905D+02 

45 

-0 

699  E-D-02 

-0  736 1D-C2 

0 

5350D-01 

0 

1349D-01 

-0 

62270-02 

- 0. 

.93400-02 

0.5G74D-01 

0 1 448D-01 

-0 . 8729D+02 

-0.7803D+02 

46 

-0 

647  2D-02 

-0  7I75D-02 

0 

5/570-01 

0 

1 163D-01 

-0 

261 8D-02 

-0 

3375D-02 

0 5760D-01 

0.11 78D-01 

-0 . 8883D+02 

-0.8491D+02 

47 

-0 

64 7 2D-C2 

-0.  /17ED-02 

c 

57570-01 

0 

11C3D-01 

0 

261 8D-02 

0 

3375D-02 

0.5760D-01 

0.11 78D-01 

0 . B883D+02 

0.8491D+02 

48 

-0 

6995D-02 

-0.756  ID-02 

0 

5860D-01 

0 

1349D-01 

0, 

■6227D-02 

0 

9348D-02 

0.5874D-01 

0. 1448D-01 

0 . 8729D+02 

0 . 78030+02 

STRAIN  COMPONENTS,  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USEI'-SPEC I F I ED  NODES 


EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC.  STRAIN(T)  DI RECT I ON ( DEG . ) 


NODE 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

33 

-0  9395D-02  -0 

13910-01 

0. 

.591 6D-01 

0 

3022D-01 

-0 

337  ID-11 

0 2223D-1 1 

0.591 60-01 

0 . 3022D-0 1 

-0.90000+02 

0 . 9000D+02 

35 

-0  220  3D  -01  -0 

171 9D-01 

0 

6145D-01 

0 

2749D-01 

0 

44950-10 

- 0.42650-10 

0 64450-01 

0.2749D-01 

0 . 9000D+02 

-0.9000D+02 

38 

-0  05460-02  -0 

1 307D-01 

0 

2047D-01 

0 

5777D-01 

0 

8271D-12 

-0  1130D-11 

0 . 2047D-0 1 

0.57770-01 

0 .90000+02 

-0 . 9000D+02 

40 

-0. 68470-02  -0 

1 34  2D-01 

0 

2737D-01 

0 

64000-01 

-0. 

. 1775D-01 

0 1 52  5D-01 

0 . 2954D-01 

0 6475D-01 

-0 . 7629D+02 

0.8441D+02 

40 

-0.1088D-01  -0 

1 375D-01 

0 

52 1 6D-01 

0 

6758D-0 1 

-0 

12^10-11 

0 3782D-11 

0 5216D-01 

0.6758D-01 

-0 . 9000D+02 

0 . 9000D+02 

50 

-0  1220D-01  -0 

1342D-01 

0 

534  ID-01 

0 

76710-01 

-0 

15360-01 

0.1 1450-01 

0 . 5430D-01 

0 . 7707D-01 

-0.8342D+02 

0 . 8638D+02 

STRAIN  COMPONENTS,  PR  INC  I P AL( T ENS I LE  ) STRAIN  AND  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT 

NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG. (DIR. 1 ) 

ELONG. (DIR  2) 

PRINC.  STRN(T) 

DIRECTION! DEG. ) 

1 

INNER 

0 

60618D-26 

0 . 43023D-0 1 

0 . 2202 1 D- 1 2 

0 0 

0 42903D-01 

0.438230-01 

0 . 90000D+02 

1 

OUTER 

0 

60618D-26 

-0  843980-01 

0 22021D-12 

0 0 

-0.888440-01 

0.0 

0.0 

2 

INNER 

-0 

3 4469D- 02 

0 446270-01 

0 281 110-04 

-0.315290-02 

0.436730-01 

0.-44627D-01 

0.899830+02 

2 

OUT  ER 

-0 

3 5987 D- 02 

-0 .413830-01 

0.281 1 10-04 

-0. 3<.052D-02 

-0.422760-01 

0.0 

0.0 

3 

INNER 

-0 

1 32410-01 

0 . 26606D-0 1 

0.28584D-03 

-0. 1 * J30D-01 

0. 262620-01 

0 . 26607D-0 1 

0.897950+02 

3 

OUTER 

-0 

1 3S90D- 0 1 

0 267650-01 

0 28504D-03 

-0. 140900-01 

0.264160-01 

0.26765D-01 

0 . 89799D+02 

4 

INNER 

-0 

1 2756D-01 

0 27426D-01 

0.1 10900-02 

-0  120390-01 

0.27060D-01 

0 . 27434D-01 

0 . 8921 00+02 

4 

OUTER 

-0 

1 3520D-01 

0 517280-01 

0 110900-02 

-0  19C1 30- 01 

0.504550-01 

0 51 733D-01 

0 . 8951 3D+02 

N> 

5 

INNER 

-0. 

1 0031 D- 0 1 

0 . 192000-01 

0 165850-02 

-0. 100020-01 

0 . 190190-01 

0.192230-01 

0.883760+02 

o 

5 

OUTER 

-0 

1 28090-01 

0 .481250-01 

0.165850-02 

-0  179730-01 

0 . 47020D-01 

0.481 37D-01 

0 . 89221 D+02 

6 

INNER 

-0 

93955D-02 

0 .591640-01 

0.187010-10 

-0  914000-02 

0 5751 1 D-01 

0 . 591 64D-01 

0 . 90000D+02 

6 

OUTER 

-0 

1 390BD-01 

0 .302210-01 

0.242940-10 

-0. 1 1006D-0 1 

0.297780-01 

0.30221D-01 

0.900000+02 

7 

INNER 

-0 

1 00310-01 

0 . 192000-01 

-0  165050-02 

-0. 10002D-0t 

0. 1 901 9D-01 

0.192230-01 

-0.88376D+02 

7 

OUTER 

-0 

1 28890-01 

0 48125D-01 

-0. 165850-02 

-0. 179730-01 

0.470200-01 

0.481 37D-01 

-0.892210+02 

8 

INNER 

-0 

1 2756D- 0 1 

0 274260-01 

-0.1 1090D-02 

-0. 123390-01 

0.270600-01 

0.27434D-01 

-0.092100+02 

8 

OUTER 

-0 

1 3520D-01 

0 517280-01 

-0. 1 1090D-02 

-0  13613D-01 

0.50455D-01 

0.517330-01 

-0 . 8951 3D+02 

9 

INNER 

-0 

1 3241 D- 0 1 

0 266060-01 

-0.20584D-03 

-0. 1 13300-01 

0.26262D-01 

0.266070-01 

-0.89795D+02 

9 

OUTER 

-0 

1 3990D- 0 1 

0 267650-01 

-0  285840-03 

-0.  I<’090D-01 

0. 26416D-01 

0 . 26765D-01 

-0.897990+02 

10 

INNER 

-0 

34469D- 02 

0 446270-01 

-0.2811 10-04 

-0  345290-02 

0. 43673D-01 

0.44627D-01 

-0.89983D+02 

10 

OUTER 

-0. 

35987D- 02 

-0 .413830-01 

-0.281 110-04 

-0.360520-02 

-0.42276D-01 

0.0 

0.0 

1 1 

INNER 

0 

59735D- 1 8 

0 . 43823D-0 1 

0.223240-12 

0.0 

0.42903D-01 

0.43823D-01 

0.900000+02 

1 1 

OUTER 

-c 

59735D- 1 8 

-0 . 84898D-01 

0 223240-12 

0.0 

-0.88844D-01 

0.0  < 

0.0 

SYSTEM  ENERGIES(IN-LB) 

WORK  INPUT  TO  STRUCTURE  = 0 3843832D+04 
STRUCTURE  KINETIC  ENERGY  = 0 . 1 1 3 55260+ 03 
STRUCTURE  ELASTIC  ENERGY  = 0 . 4064 1 70D+02 
STRUCTURE  PLASTIC  ENERGY  = 0 3694637D+04 
ENERGY  STORED  IN  ELASTIC  RESTRA 1NTS=  0.0 


f 
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SECTION  8 


CIVM-PLATE  1 CODE  EXAMPLE: 

FRAGMENT- IMPACTED  NARROW  RECTANGULAR  PLATE 

To  illustrate  the  use  of  the  CIVM-PLATE  1 computer  program,  a narrow 
rectangular  plate  with  both  ends  ideally  clamped  and  its  two  sides  restrained 
by  only  z-direction  line  elastic  springs  is  analyzed.*  The  plate  is  subjected 
only  to  impact  by  a single  non-deformable  spherical  "fragment".  Two  alternate 
finite-element  modelings  of  the  plate  are  described,  and  the  associated  input 
data  for  each  are  shown.  However,  for  conciseness,  solution  output  data  are 
given  for  only  one  of  these  modelings;  these  results  can  be  employed  by  the 
user  to  check  the  adaptation  of  CIVM-PLATE  1 to  his  particular  computing 
facilities. 

8.1  Problem  Description 

A narrow  rectangular  uniform-thickness  aluminum  plate  (0.200  x 1.60  x 
6.80  in)  with  an  aluminum  stiffener  of  0.1  by  0.2  m cross  section  "integrally 
attached",  located  at  the  plate's  midwidth  upper-surface  station,  and  extend- 
ing for  the  full  6.80-m  span  — as  depicted  in  Fig.  18  — is  the  example 
structure.  Its  two  ends  are  ideally  clamped.  Along  its  other  two  sides 
there  are  only  z-direction  line  springs  of  k^  = 3,000  lb/ (in-m  of  span); 

hence ,k  =k  = k„  = k , = 0 . 
x y 0 (ji 

This  plate  is  impacted  by  a solid  (non-deformable)  steel  sphere  of  1-mch 
diameter;  the  initial  point  of  impact  is  near  the  midwidth-midspan  station  of 
the  plate.  The  pre-impact  line  of  flight  of  the  sphere  is  in  the  y,z 
"symmetry"  plane  and  is  approaching  along  a line  at  60°  from  the  y (spanwise) 
axis  as  shown  in  Fig.  18.  Prior  to  impact  the  sphere  is  assumed  to  have  a 
translational  velocity  of  2794  m/sec  and  to  be  rotating  about  the  x axis 
with  = 1650  rad/sec;  hence,  initially  = 0.  Also,  it  is 

assumed  that  a fixed  value  of  the  coefficient  of  friction  u = 0.20  applies 
* 

Additional  examples  and  transient  response  predictions  obtained  by  using  the 
CIVM-PLATE  1 program  are  described  in  Subsection  7.6  of  Ref.  14  as  the 
"small  strain"  calculations. 
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during  impact-interaction  between  the  fragment  and  the  plate.  Fragment-plate 
impact  is  assumed  to  be  perfectly-elastic;  hence,  e = 1 is  used  for  the 
coefficient  of  restitution.  Hence,  the  pertinent  fragment  data  are: 


vfx  = 

0 

0).  = 1650  rad/sec 

fx 

vfy  = 

1397.0  m/sec 

o 

II 

>1 

3 

vfZ  = 

2419.675  in/sec 

0J-  = 0 

2 £a 

m i —4  2 

m.  = 0.3815  x 10  ------  I,  = 0.3816  x 10  in- lb-sec 

f m f 


Also,  during  an  impact,  the  value  of  the  impact-affected  "circle  radius"  L ^ 

is  assumed  to  be  Lgff  =0.42  inch  which  is  slightly  greater  than  twice  the 

thickness  (h  = 0.20  in)  of  the  uniform  plate. 

Both  the  plate  and  the  stiffener  are  assumed  to  consist  of  the  same  type 

of  aluminum.  Its  mass  per  unit  volume  is  assumed  to  be  0.25384  x 10  ^ 

2 4 

(lb-sec  )/m  . The  uniaxial  stress-strain  (cr,E)  properties  of  this  material 

are  represented  by  a 3-sublayer  version  of  the  mechanical-sublayer  material 

model,  defined  by  CT^,£^  = 44,200  psi,  0.00442  m/in;  a2'Z2  = 4®'200  psi, 

0.0760;  and  = 76,400  psi,  0.615.  For  this  example,  the  material  is 

assumed  to  be  insensitive  to  strain  rate;  hence,  it  is  specified  that 

D = p = 0.  The  material's  elastic  modulus  and  Poisson  ratio  are  assumed 

0 

to  be,  respectively,  10  x 10  psi  and  1/3. 


Modeling  and  Input  Data 


For  illustrative  purposes,  two  different  structural  models  of  the 
stiffened-plate  specimen  depicted  m Fig.  18  are  described  in  the  following. 
First,  the  entire  plate  is  modeled  by  56  LLC  plate  elements  as  shown  m 
Fig.  19.  Next,  since  this  problem  involves  symmetry  only  about  the  y,z 
plane,  a 28-element  half-plate  model  with  symmetry  invoked  along  the  plate’s 
midwidth  station  is  used.  The  two  models  otherwise  employ  the  same  basic 
finite-element  layout.  For  each  of  these  models,  the  selected  numbering 
of  elements  and  nodes  is  shown  m Fig.  19. 

Pilot  calculations  showed  that  the  largest  linear-system  natural 
frequency  of  the  full-plate  structural  model  is  &Jmax  = 0.1748  x 10?  rad/sec. 
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Hence,  if  the  timewise  central-difference  model  were  used  to  predict  the 
linear  transient  response  of  this  model,  a At  not  exceeding  At  = 2/u)^y  = 1.14 
ysec  would  be  required.  However,  since  the  CIVM-PLATE  1 program  uses  the 
Houbolt  (and  a modified  Houbolt)  operator,  a reasonable  choice  is  At  = 2.0 
Usee,  as  discussed  in  Subsection  5.5.2. 

Solution  output  data  will  be  requested  at  the  end  of  every  10  time  steps 
or  cycles;  however,  for  conciseness,  these  data  will  be  included  here  only 
at  the  end  of  time  cycles  (or  time  steps)  0,1,  2,  3,  4,  140,  and 
150  (last)  .+  The  desired  solution  output  data  are  indicated  as  the  following 
print  options  (Card  51  of  Subsection  4.2) : 

IOPl  Displacements  and  current  (global)  X,Y,Z  coordinates  of 

each  node+. 

I0P4  Strain  (Green)  components,  principal  (tensile)  strain  and 

direction,  and  elongation  (in  user-specified  directions) 
at  additional  spanwise  locations  (evaluated  at  both  upper 
and  lower  surfaces  at  each  spanwise  location)  as  specified 
by  the  user. 

I0P7  System  energies  (i.e.,  work  input  to  structure,  structure 

kinetic  energy,  structure  elastic  energy,  structure  plastic 
energy,  energy  stored  in  elastic  restoring  springs,  and 
fragment  translational  and  rotational  kinetic  energies) 

I0P8  Strain  (Green)  components,  principal  (tensile)  strain  and 

direction  at  the  upper  and  lower  plate  surfaces  at  user- 
specified  nodes  (by  nodal  averaging) . 

Print  options  IOP2,  I0P3,  and  I0P5  are  not  desired;  hence,  set  these 
quantities  equal  to  zero  on  Card  51  (of  Subsection  4.2).  Summarized  concisely 
as  follows  are  the  affected  element  or  node  numbers  for  each  of  these  two 
finite-element  models  (see  Fig.  19)  : 

Automatically  at  each  printout  time,  one  obtains  the  global  X,Y,Z  location 
of  the  fragment  as  well  as  its  translational  and  rotational  velocity 
components . 
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Output 

Full-Plate 

Half-Plate 

Option 

Model 

Model 

I0P1 

All  Nodes 

All  Nodes 

I0P4 

Elements  30,31,34,35 

Elements  15  and  17 

I0P7 

Entire  System 

Entire  System 

I0P8 

Nodes  38,39,43,44, 

Nodes  22,23,25,26 

48,49,53,54 

28,29,31,32 

The  associated  input  data  on  each  card  are  described  for  the  full-plate  and 
the  half-plate  model  m Subsections  8.2.1  and  8.2.2,  respectively.  However, 
solution  output  data  are  presented  in  Subsection  8.3  only  for  the  full-plate 
model . 


8.2.1  Input  Data  for  the  Full-Plate  Model 


The  values  to  be  punched  on  the  data  cards  are  as  follows  (see  Fig.  19a) 


Card  1 

MAXEL 

MNSL 

MNXST 

MNYST 

NBE 

MB  WE 

MNC 

NIAN 

Card  2 

IMESH 

IMCONT 

IPUNCH 

Card  3 

NEAD 

NECD 


= 56 
= 3 
= 1 
= 28 
= 1 
= 1 

= 16335 
= 75 

= 0 
= 0 
= 0 

= 4 
= 14 


8110 


2014 


2014 
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Card  4a 

EPAN 

ANUP 

DENSP 

TH 

XDIST 

Card  4b 

YDIST 

ZPOS 

Card  5 

XG(1) 

XG(2) 

XG(3) 

XG(4) 

XG(5) 

Card  6a 

YG(1) 
YG(2) 
YG(3) 
YG  (4) 
YG(5) 

Card  6b 

YG  (6) 
YG(7) 
YG  (8) 

YG(9) 

YG(10) 

Card  6c 

YG(ll) 

YG(12) 

YG(13) 

YG(14) 

YG(15) 


= 0.1D8 
= . 3333333D0 
= 0.25384D-3 
= 0.200D0 
= 1.600D0 

= 6.8D0 
= 0.0D0 

= 0.0D0 
= . 400D0 
= . 800D0 
= 1.200D0 
= 1.600D0 

= O.ODO 
= 0.40D0 
= 0.80D0 
= 1.40D0 
= 2.0D0 

= 2.60D0 
= 3.0D0 
= 3.4DO 

= 3.8D0 
= 4.2D0 

= 4.80D0 
= 5.40D0 
= 6.0D0 
= 6.4D0 
= 6.8D0 


5D16.7 


5D16.7 


5D16.7 


5D16.7 


5D16.7 


5D16.7 
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Card  7 


2014 


NCSB(l) 

= 2 

NCSB (2) 

= 0 

NCSB  ( 3) 

= 2 

NCSB (4) 

= 0 

Card  8 

2014 

NAST 

= 0 

NCST 

= 2 

Card  17* 

5D16.7 

APCST(l) 

= 0.775D0 

APCST (2) 

= 0.825D0 

Card  18 

5D16.7 

RHC{1) 

= 0.2D0 

RHC(2) 

= 0.2D0 

Card  19 

5D16.7 

RWC(l) 

= 0.05D0 

RNC(2) 

= 0.05D0 

Card  20 

5D16.7 

ECS (1) 

= 0.1D8 

ECS (2) 

= 0.1D8 

Card  21 

5D16.7 

ANUCS(l) 

= 0.3333333D0 

ANUCS (2) 

= 0 . 3333333D0 

Card  22 

5D16.7 

DENCS(l) 

= 0. 25384D-3 

DENCS ( 2 ) 

= 0.25384D-3 

Card  23 

5D16.7 

XFCST(l) 

= -0.2D0 

XFCST (2) 

= -0.2D0 

★ 

For  omitted  cards  see  page  308. 
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Card  24 


2014 


MATCS(l) 

= 1 

MATCS (2) 

= 1 ' 

Card  25 

2014 

NAXS 

= 0 

NAYS 

a 0 

Card  44* 

2014 

NMAT 

= 1 

Card  45 

- 

2014 

NSUB 

= 3 

Card  46 

5D16.7 

SIG(l) 

= 44.2D3 

SIG(2) 

= 49.2D3 

SIG(3) 

= 76.4D3 

Card  47 

5016. 7 

EPS  ( 1) 

= . 00442D0 

EPS (2) 

= . 0760D0 

EPS (3) 

= 0.615D0 

Card  48 

5D16.7 

DSR(l) 

= 0.0D0 

PSR(l) 

= 0.0D0 

Card  49 

2014 

ITIMEF 

= 150 

INCRT 

= 1 

IOUT 

= 1 

Card  50 

5D16.7 

DELTAT 

= 2.0D-06 

TIMEF 

= 3.00D-04 

★ 

For  omitted 

cards  see  page  308. 

297 


Card  51 


2014 


I0P1 

= 1 

I0P2 

= 0 

IOP3 

= 0 

IOP4 

= 1 

IOP5 

= 0 

IOP6 

= 0 

I0P7 

= 1 

I0P8 

» 1 

Card  54* 

2014 

NASP 

= 4 

Card  55a 

I4,2D16 

LNASP(l) 

= 30 

SLASP (1) 

= 0.5D0 

ELASP(l) 

= 0.5D0 

Card  55b 

14,2016 

LNASP (2) 

= 31 

SLASP  (2) 

= 0.5D0 

ELASP (2) 

= 0.5D0 

Card  55c 

14, 2D16 

LNASP (3) 

= 34 

SLASP  ( 3) 

= 0.5D0 

ELASP (3) 

= 0.5D0 

Card  55d 

I4,2D16 

LNASP (4) 

= 35 

SLASP  (4) 

= 0.5D0 

ELASP (4) 

= 0.5D0 

Card  56 

2014 

NAS  PE 

= 2 

* 

For  omitted  cards  see  page  308. 
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Card  57a 


I4/2D16. 7 


NSP 

DIR1 

DIR2 

Card  57b 
NSP 
DIR1 
DIR2 

Card  61* 
NNSA 

Card  62 

NVSA ( 1) 
NVSA(2) 
NVSA (3) 
NVSA (4) 
NVSA(5) 
NVSA  (6) 

Card  63 

NELES 

Card  64a 
INUM 
IS  IDE 

Card  65a 
SS(1) 

SS  (2) 
SS(3) 

SS  (4) 
SS(5) 

Card  64b 
LNUM 
ISIDE 

★ 

For  omitted 


= 1 

= 45.0D0 
= 135. 0D0 

= 2 

= 45.0D0 
= 135. 0D0 

= 8 

= 33 
= 35 
= 38 
= 40 
= 48 
= 50 

= 28 

= 4 
= 2 

= 0.0D0 
= 0.0D0 
= 0. 3000D+04 
= 0.0D0 
= 0.0D0 


= 8 
= 2 

cards  see  page  308. 


I4,2D16. 7 


2014 

2014 


2014 

2014 


5D16.7 


2014 
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Card  65b 


5D16.7 


SS(1) 

= 0.0D0 

SS(2) 

= O.ODO 

SS  { 3) 

= 0.3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

— 

Card  64c 

2014 

LNUM 

= 12 

— 

ISIDE 

= 2 

Card  65c 

5D16.7 

— 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

— 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64d 

2014 

LNUM 

= 16 

ISIDE 

= 2 

Card  65d 

5D16.7 

SS(1) 

= O.ODO 

SS{2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

— 

SS  (5) 

= O.ODO 

Card  64e 

2014 

LNUM 

= 20 

ISIDE 

= 2 

— 

Card  65e 

5D16.7 

SS(1) 

= O.ODO 

— 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 
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Card 

64f 

2014 

LNUM 

= 

24 

IS  IDE 

= 

2 

Card 

65f 

5D16.7 

SS(1) 

= 

0.0D0 

SS(2) 

= 

0.0D0 

SS(3) 

= 

0 . 3000D+04 

SS  ( 4) 

a 

0.0D0 

SS(5) 

= 

O.ODO 

Card 

64g 

2014 

LNUM 

= 

28 

IS  IDE 

= 

2 

Card 

65g 

5D16.7 

SS(1) 

= 

O.ODO 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0 . 3000D+04 

SS  (4) 

= 

O.ODO 

SS  (5) 

= 

O.ODO 

Card 

64h 

2014 

LNUM 

= 

32 

ISIDE 

= 

2 

Card 

65h 

5D16.7 

SS(1) 

= 

O.ODO 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0.3000D+04 

SS  (4) 

= 

O.ODO 

SS(5) 

= 

O.ODO 

Card 

64r 

2014 

LNUM 

= 

36 

ISIDE 

= 

2 

301 


Card  65 i 


5D16.7 


SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64] 

2014 

LNUM 

= 40 

IS  IDE 

= 2 

Card  65] 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS{5) 

= O.ODO 

Card  64k 

2014 

LNUM 

= 44 

ISIDE 

= 2 

Card  65k 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0.3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  645, 

2014 

LNUM 

= 48 

ISIDE 

= 2 

Card  655, 

5D16 

SS(1) 

= O.ODO 

SS  ( 2) 

= O.ODO 

SS  ( 3} 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 
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Card  64m 


2014 


LNUM 

= 52 

IS  IDE 

= 2 

Card  65m 

5D16 

SS(1) 

= 0.0D0 

SS(2) 

= O.ODO 

SS  (3) 

= 0.3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64n 

2014 

LNUM 

= 56 

IS  IDE 

= 2 

Card  65n 

5D16 

SS  ( 1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64o 

2014 

LNUM 

= 1 

ISIDE 

= 4 

Card  65o 

5D16 

SS(I) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64p 

2014 

LNUM 

= 5 

ISIDE 

= 4 
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Card  65p 


5D16.7 


SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64q 

2014 

LNUM 

= 9 

IS  IDE 

= 4 

Card  65q 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64r 

2014 

LNUM 

= 13 

IS  IDE 

= 4 

Card  65r 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64s 

2014 

LNUM 

= 17 

IS  IDE 

= 4 

Card  65s 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 
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Card  64 t 


2014 


LNUM 

= 21 

ISIDE 

= 4 

Card  65 t 

5D16.7 

SS(1) 

= 0.0D0 

SS  (2) 

= 0.0D0 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64u 

2014 

LNUM 

= 25 

ISIDE 

= 4 

Card  65u 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  ( 3) 

= 0 . 3000D+04 

SS  ( 4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64v 

2014 

LNUM 

= 29 

ISIDE 

= 4 

Card  65v 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64w 

2014 

LNUM 

= 33 

ISIDE 

= 4 
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Card  65w 


5D16.7 


SS(1) 

= 0.0D0 

SS  (2) 

= O.ODO 

SS(3) 

= 0.3000D+4 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64x 

2014 

LNUM 

= 37 

ISIDE 

= 4 

Card  65x 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+4 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64y 

2014 

LNUM 

= 41 

ISIDE 

= 4 

Card  65y 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+4 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64z 

2014 

LNUM 

= 45 

ISIDE 

= 4 

Card  65 z 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+4 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 
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Card 

64aa 

2014 

LNUM 

= 

49 

IS  IDE 

= 

4 

Card 

65aa 

5D16.7 

SS(1) 

= 

0.0D0 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0 . 3000D+4 

SS  (4) 

= 

O.ODO 

SS  (5) 

= 

O.ODO 

Card 

64bb 

2014 

LNUM 

= 

53 

ISIDE 

= 

4 

Card 

65bb 

5D16.7 

SS(1) 

= 

O.ODO 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0 . 3000D+4 

SS  (4) 

= 

O.ODO 

SS  (5) 

= 

O.ODO 

Card 

66 

5D16.7 

XF 

= 

0.8D0 

YF 

= 

3.394412D+00 

ZF 

= 

-0.6098787D+0 

Card 

67 

5D16.7 

VF(1) 

= 

O.ODO 

VF  (2) 

= 

1397.0D+00 

VF  (3) 

= 

2419.675D+00 

Card 

68 

5D16.7 

OMEGF(l) 

= 

1650. ODO 

OMEGF ( 2 ) 

= 

O.ODO 

OMEGF(3) 

= 

O.ODO 
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Card  69 


5D16.7 


RF 

= 

0.5D0 

FMASS 

= 

0.38153D-03 

FMOI 

= 

0 . 38160D-04 

Card  70 

COEFR 

__ 

1.0D0 

5D16.7 

FRNC 

= 

0.2D0 

Card  71 

NSYM 

„ 

0 

2014 

IPSS 

= 

0 

ICUT 

= 

0 

IUSEF 

= 

1 

Card  73* 
EFFL 

= 

0.42D0 

5D16 . 7 

Cards  9 through 

16 

are  omitted  because  NAST  on  card  8 is  zero 

(that  is,  there 

are  no  complete  X-direction  stiffeners) • 

Cards  26  through  34  are  omitted  because  NAXS  on  Card  25  is  zero  (that  is, 
there  are  no  additional  X-direction  stiffeners) . 

Cards  35  through  43  are  omitted  because  NAYS  on  Card  25  is  zero  (that  is, 
there  are  no  additional  Y-direction  stiffeners) . 

Cards  52  and  53  are  omitted  because  I0P3  on  Card  51  is  zero. 

Cards  58  through  60  are  omitted  because  I0P6  on  Card  51  is  zero. 

Card  72  is  omitted  because  ICUT  on  Card  71  is  zero. 

The  following  is  the  computer  input  deck  for  this  example: 


* 

For  omitted  cards  see  page  308. 
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1)11]])})} 


56 

3 

1 

28  1 

1 16335 

75 

0 0 

0 

4 14 

0.108 

.333333300 

.253B4D-3 

. 200DO 

1 .600DO 

6.800 

0 000 

0.000 

.4000000 

.80000 

1 .2D0 

1 .6D0 

0 000 

0.400 

O.8D0 

1 .4D0 

2.0D0 

2.6D0 

3.000 

3.4D0 

3.BD0 

4.2D0 

4.800 

5 400 

6.000 

6.4D0 

6.8D0 

2 0 

2 0 

0 2 

.77500 

.82500 

200 

.200 

.0500 

.0500 

0.108 

0.108 

3333333 

000. 

33333333  DO 

0.25384  0-3  0 

.25304  0-3 

-0.200 

-0.200 

1 1 

0 0 

1 
3 


44  203 

49  203 

76.403 

. 0 0442D0 

.076000 

0.61580 

0.000 

O.ODO 

50 

1 

1 

2 . 0D-06 

3.00-04 

1 

0 

0 1 0 

0 

1 1 

4 

30 

0.500 

p.500 

31 

0.500 

P.5D0 

34 

0.500 

0.500 

35 

0 500 

0.500 

2 

1 

45.0D0 

135.000 

2 

45  000 

135.000 

8 

38 

39 

43  44  48 

49 

53  54 

28 

4 

2 

0.000 

O.ODO 

0.3000  0+04 

O.ODO 

O.ODO 

8 

2 

0.000 

0 000 

0.3000  0+04 

O.ODO 

O.ODO 

12 

2 

O.ODO 

O.ODO 

0.3000  D+04 

O.ODO 

O.ODO 

16 

2 

0.000 

O.ODO 

0.3000  0+04 

O.ODO 

O.ODO 

20 

2 

0.000 

0.000 

0.3000  D+04 

O.ODO 

O.ODO 

24 

2 

0.000 

0.000 

0.3000  D+04 

O.ODO 

0.000 
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2a 

2 

0.0D0 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

32 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

36 

2 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

40 

2 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

44 

2 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

48 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

52 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

56 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

1 

4 

O.ODO 

O.ODO 

0.3C00 

D+04 

O.ODO 

O.ODO 

5 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

9 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

13 

4 

O.ODO 

0 000 

0.3000 

D+04 

O.ODO 

O.ODO 

17 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

21 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

25 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

29 

4 

O.ODO 

O.ODO 

0 . 3000 

D+04 

O.ODO 

O.ODO 

33 

4 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

37 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

41 

4 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

45 

4 

O.ODO 

0.000 

0.3000 

D+04 

O.ODO 

O.ODO 

49 

4 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

53 

4 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

0 8D0 

3.394412  D+00 

-0.6098737 

D+0 

O.ODO 

1397 

OD+OO 

2419.675 

D+00 

1 650.0 

D+00 

0 ODO 

O.ODO 

0.5D0 

0.381513 

D-03 

0.38160 

D-04 

1 .ODO 

0.2D0 

0 

0 

0 1 
0.42DO 

8.2.2  Input  Data  for  the  Half-Plate  Model* 

The  values  to  be  punched  on  the  data  cards  are  as  follows  (see  Fig.  19b) 


Card  1 

8110 

MAXEL 

= 28 

MNSL 

= 3 

MNXST 

= 1 

MNYST 

= 14 

NBE 

= 1 

MBWE 

= 1 

MNC 

= 6561 

NIAN 

= 45 

Card  2 

2014 

IMESH 

= 0 

IMCONT 

= 0 

IPUNCH 

= 0 

Card  3 

2014 

NEAD 

= 2 

NECD 

= 14 

Card  4a 

5D16.7 

EDAN 

= 0.1D8 

ANUP 

= . 3333333D0 

DENSP 

= 0.25384D-3 

TH 

= 0.200D0 

XDIST 

= 0.800D0 

Card  4b 

5D16.7 

YDIST 

= 6.8D0 

ZPOS 

= 0.0D0 

Card  5 

5D16.7 

XG(1) 

= O.ODO 

XG(2) 

= . 40000D0 

XG(3) 

= . 800D0 

Certain  input  cards  are  omitted;  see  page  308, 
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Card  6a 


5D16.7 


YG(1) 

= O.ODO 

YG  (2) 

= 0.4D0 

YG(3) 

= 0.8DO 

YG  (4) 

= 1.4D0 

YG(5) 

= 2.0D0 

Card  6b 

5D16 

YG(6) 

= 2.6DO 

YG(7) 

= 3.0D0 

YG  (8) 

= 3.4D0 

YG(9) 

= 3.8DO 

YG(10) 

= 4.2D0 

Card  6c 

5D16 

YG (11) 

= 4.80D0 

YG(12) 

= 5.40D0 

YG(13) 

= 6.0D0 

YG(14) 

= 6.4D0 

YG(15) 

= 6.8D0 

Card  7 

2014 

NCSB(l) 

= 2 

NCSB (2) 

= 0 

NCSB ( 3) 

= 2 

NCSB (4) 

= 1 

Card  8 

2014 

NAST 

= 0 

NCST 

= 1 

Card  17 

5D16 

APCST(l) 

= 0.025D0 

Card  18 

5D16 

RHC(l) 

= 0.2D0 

Card  19 

5D16 

RWC(l) 

= 0 .05D0 
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Card  20 


5D16.7 


ECS (1) 

= 0.1D8 

Card  21 

5D16.7 

ANUCS(l) 

= 0.3333333D0 

Card  22 

5D16.7 

DENCS(l) 

= 0.25384D-3 

Card  23 

5D16.7 

XFCST(l) 

= -0.2DO 

Card  24 

2014 

MATCS ( 1) 

= 1 

Card  25 

2014 

NAXS 

= 0 

NAYS 

= 0 

Card  44 

2014 

NMAT 

= 1 

Card  45 

2014 

NSUB 

= 3 

Card  46 

5D16.7 

SIG(l) 

= 44.2D3 

SIG(2) 

= 49.2D3 

SIG(3) 

= 76.4D3 

Card  47 

5D16.7 

EPS ( 1) 

= . 00442D0 

EPS (2) 

= . 0760D0 

EPS (3) 

= 0.615D0 

Card  48 

5D16.7 

DSR(l) 

= 0.0D0 

PSR(l) 

= O.ODO 

2014 
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2014 


Card 

49 

ITIMEF 

150 

INCRT 

= 

1 

IOUT 

= 

1 

Card 

50 

DELTAT 

2.0D-06 

TIMEF 

= 

3.0D-04 

Card 

51 

IOP1 

= 

1 

I0P2 

= 

0 

I0P3 

= 

0 

I0P4 

= 

1 

I0P5 

= 

0 

IOP6 

= 

0 

IOP7 

= 

1 

IOP8 

= 

1 

Card 

54 

NASP 

= 

2 

Card 

55a 

LNASP(l) 

= 

15 

SLASP(l) 

= 

0.5DO 

ELASP(l) 

= 

0.5D0 

Card 

55b 

LNASP (2) 

= 

17 

SLASP (2) 

= 

0.5DO 

ELASP (2) 

= 

0.5D0 

Card 

56 

NASPE 

= 

1 

Card 

57 

NSP 

= 

1 

DIR1 

= 

45 . 0D0 

DIR2 

ss 

135. 0D0 

5D16.7 


2014 


2014 

I4,2D16 .7 


14 ,2D16 . 7 


2014 

14 , 2D16 . 7 
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Card  61 


2014 


NNSA 

Card  62 

NVSA(l) 
NVSA(2) 
NVSA( 3) 
NVSA(4) 
NVSA(5) 
NVSA(6) 
HVS A ( 7 ) 
NVSA(8) 

Card  63 

NEEES 

Card  64a 
ENUM 
IS  IDE 

Card  65a 
SS(1) 

SS  (2) 
SS(3) 

SS  ( 4) 

SS  (5) 

Card  64b 
ENUM 
IS  IDE 

Card  65b 
SS(1) 

SS  (2) 

SS  (3) 

SS  (4) 

SS  (5) 


= 8 

= 22 
= 23 
= 25 
= 26 
= 28 
= 29 
= 31 
= 32 

= 14 

= 2 
= 2 

= 0.0D0 
= O.ODO 
= 0. 3000D+04 
= O.ODO 
= O.ODO 

= 4 
= 2 

= O.ODO 
= O.ODO 
= 0 . 3000D+04 
= O.ODO 
= O.ODO 


2014 


2014 

2014 


5D16.7 


2014 


5D16.7 
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Card  64c 

2014 

— 

LNUM 

= 6 

ISIDE 

= 2 

Card  65c 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

^ 0 . ODO 

SS  (3) 

= 0.3000D+04 

SS  (4) 

= O.ODO 

— 

SS  (5) 

= O.ODO 

Card  64d 

2014 

— 

LNUM 

= 8 

ISIDE 

= 2 

- 

Card  65d 

5D16.7 

SS(1) 

= O.ODO 

— 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64e 

2014 

LNUM 

= 10 

ISIDE 

= 2 

Card  65e 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

— 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

— 

Card  64f 

2014 

LNUM 

= 12 

— 

ISIDE 

= 2 
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Card  65  f 


5D16.7 


SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64g 

2014 

LNUM 

= 14 

IS  IDE 

= 2 

Card  65g 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  ( 3) 

= 0 . 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64h 

2014 

LNUM 

= 16 

ISIDE 

= 2 

Card  65h 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64i 

2014 

LNUM 

00 

rH 

11 

ISIDE 

= 2 

Card  65 i 

5D16 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 
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Card  64} 

2014 



LNUM 

= 20 

ISIDE 

= 2 

Card  65 j 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0. 3000D+04 

SS  (4) 

= O.ODO 

— 

SS  (5) 

= O.ODO 

Card  64k 

2014 

— 

LNUM 

= 22 

ISIDE 

= 2 

— 

Card  65k 

5D16.7 

SS(1) 

= O.ODO 

— 

SS  (2) 

= O.ODO 

SS  (3) 

= 0.3000D+04 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

Card  64£ 

2014 

LNUM 

= 24 

ISIDE 

= 2 

Card  65 £ 

5D16.7 

SS(1) 

= O.ODO 

SS  (2) 

= O.ODO 

SS  (3) 

= 0 . 3000D+04 

— 

SS  (4) 

= O.ODO 

SS  (5) 

= O.ODO 

— 

Card  64m 

2014 

LNUM 

= 26 

— 

ISIDE 

= 2 
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Card 

65m 

5D16.7 

SS(1) 

= 

0.0D0 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0.3000D+04 

SS  (4) 

= 

O.ODO 

SS  (5) 

=* 

O.ODO 

Card 

64n 

2014 

LNUM 

= 

28 

IS  IDE 

= 

2 

Card 

65n 

5D16.7 

SS  (1) 

= 

O.ODO 

SS  (2) 

= 

O.ODO 

SS  (3) 

= 

0. 3000D+04 

SS  (4) 

= 

O.ODO 

SS  (5) 

= 

O.ODO 

Card 

66 

5D16.7 

XF 

= 

0.8D0 

YP 

= 

3 . 399412D+00 

ZF 

= 

-0.6098787D+0 

Card 

67 

5D16.7 

VF  (1) 

= 

O.ODO 

VF  (2) 

= 

1397.0D+00 

VF  ( 3) 

= 

2419 . 675D+-00 

Card 

68 

5D16.7 

OMEGF(l) 

= 

1650. ODO 

OMEGF (2) 

= 

O.ODO 

OMEGF (3) 

= 

O.ODO 

Card 

69 

5D16.7 

RF 

= 

0.5DO 

FMASS 

= 

0 . 38153D-03 

FMOI 

= 

0 . 38160D-04 
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Card 

70 

5D16.7 

COEFR 

= 

1.0D0 

FRNC 

= 

0.2D0 

Card 

71 

2014 

NSYM 

= 

0 

IPSS 

— 

0 

I CUT 

= 

0 

IUSEF 

= 

1 

Card 

73 

5D16.7 

EFFL 

a 

0 . 42D0 
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The  following  is  the  complete  input  deck  for  this  example 


28 

3 

1 

14  1 

1 

0 

0 

0 

2 

14 

0 . 1 03 

.333333300 

. 253840-3 

.20000 

S.3DC 

0 0D0 

O.ODO 

.4000000 

.80000 

O.ODO 

0 .400 

0.800 

1 .400 

2.6C0 

3 COO 

3.4  00 

3.300 

4.3D0 

5.400 

6.000 

6.400 

2 

0 

2 1 

0 

1 

.02500 
.2000 
.0500 
0.1  D8 

0.2333333  DC 
0.25384  D-3 

-0.200 


1 

0 0 


3 


44.2D3 

49.203 

76.403 

. 

00442D0 

. 0760D0 

0.61500 

O.ODO 

0 ODO 

50 

1 

1 

2.00-06 

3.00-04 

1 

0 

0 1 

0 

0 

1 1 

2 

1 5 

0. 

500 

0.500 

17 

1 

1 

0 

500 

0.500 

45. 

ODO 

135.000 

8 

22 

23 

25  26 

28 

29 

31  32 

1 4 

2 

2 

O.ODO 

0.000 

0.3000  0 + 04 

O.ODO 

4 

2 

O.ODO 

0 .coo 

0.3000  0+04 

O.ODO 

6 

2 

0.000 

O.ODO 

0.3000  0+04 

O.ODO 

a 

2 

0.000 

0.000 

0.3000  0+04 

0.000 

10 

2 

0 ODO 

0 ODO 

0.3000  0+04 

0.000 

12 

2 

O.ODO 

O.ODO 

0.3000  0+04 

O.ODO 

1 4 

2 

O.ODO 

0.000 

0.3000  D+04 

0.000 

45 

0.800D0 

2.0D0 

4.2D0 

6.8D0 


0 . 000 
0.0D0 
0.0D0 
O.ODO 
0.0D0 
O.ODO 
O.ODO 
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0.0D0 

O.CDO 

0.3000 

0+04 

O.ODO 

0.000 

18 

2 

0 .000 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

20 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

22 

2 

O.CDO 

O.ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

24 

2 

O.ODO 

O.ODO 

0.3000 

D+04 

0.000 

O.ODO 

28 

2 

0 ODO 

O.ODO 

0.3000 

D+04 

0.000 

O.ODO 

20 

2 

O.ODO 

0 ODO 

0.3000 

D+04 

O.ODO 

O.ODO 

0 ODO 

3.394412  D+00 

-0 .6093787 

D+0 

0 ODO 

1 397 . OD+CO 

2419.675 

D+00 

1 850. 0 

D-rQO 

0 CDO 

i 

O.ODO 

0.5DO 

0.381513  D-03 

0.38160 

D-04 

1 .ODO 

0.2D0 

1 

4 

0 1 
0.42D0 
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The  FORTRAN  listing  of  the  main  program  for  the  full  CIVM  plate  example 
is  given  on  pages  232-234.  For  the  half-plate  model,  the  associated  main 
program  is  the  same  except  for  the  following  DIMENSION  statement: 


OIMENS  ION  DE  L0( 450 ) , OIS ( 450 ) ,DISP(450) ,DISM1 (450 ) ,0ISM2(450) . IMAN0063 
2FLN(450) ,FLVA<450)  ,FLVM( 450 ) , F LVP ( 450 ) , VE L ( 450 ) , ICOL(450) , IMAN0064 
3 INUM(  4 50 ) , KR  0l«  (450 ) ,NDEX (450) , STF( 16335) .AMASS (4 50) , IMAN0065 
4NP ( 4 , 5 6 ) , NOD  E( 1344) ,TAUSS(56. 1 2 , 9 ) , TAUSE ( 5 6 , 1 2 , 9 ) . T AUE E ( 56 , 1 2 . 9) . IMAN0066 
5EPSSI( 9.56) , EP5S0( 9 , 56 ) , £PEEI( 9,56) ,EPEE0( 9,56) , EPSEI( 9,56) , IMAN0067 
6EPSE0( 9,56) , NSC (60 ) ,BC(60) , RFM ( 1 , 1 ) , I LAST ( 1 ) ,UCF1 (1 ) ,UCF2(1 ) , IMAN0068 
7XG( 75 ) , YG( 75 ) , ZG( 75 ) . XGI ( 75 ) , V GI ( 75 ) , TAGSS ( 1 , 1 2 . 3 ) , LNX S ( 1 ) , IMAN0069 
8XSPR0P (7, 1 ) , MATXS ( 1 ) , TSG EE ( 28 . 1 2 , 3 ) , LNYS ( 2 8 ) , YSP ROP ( 7 . 28 ) , MATYS ( 28 IMAN0070 
9 ) , LNRS ( 28) , I SKS(28 ) , SC( 5 , 28 ) , N VSA( 8 ) ,NC0N( 4 , 8 ) , PMASS ( 7 5 ) , VN ( 3 , 75 ) , IMAN0071 
A VNB(3 ,75) ,S 1(75) ,NEFF{75) .ALPHA ( 75 ) IMAN0072 


For  the  half-plate  example,  replace  the  original  above  DIMENSION 
statement  with  this  DIMENSION  statement: 


DIMENSION  OE  LD(270 ) ,DIS(  270) , 0 I SP ( 270 ) , DI SMI ( 270 ) , 0 ISM2 ( 270 ) . IMAN1064 
2FLN(270)  ,FLVA(270)  ,FLVM(  270 ) , F LVP( 270 ) , VEL ( 270 ) , ICOL(2  70)  IMAN1065 
3, INUM(  270) ,KROW(270) ,NDEX(270)  ,STF(6561  ) ,AMASS(270) , IMAN1066 
4NP ( 4 , 2 8 ) , NOD  E ( 672 ) , T AUSS ( 28 , 1 2 , 9 ) , TAUSE ( 28 ,12,9)  , TAUEE ( 28 . 1 2 . 9 ) , IMAN1067 
5EPSSI(  9,28) , EPSS0( 9,28) , cPEEI ( 9 , 28) , EPEE0( 9 , 28 ) , EPSEI ( 9 . 28 ) , IMAN1068 
6EPSE0( 9,28) , NBC ( 8 1 ) , BC( 8 1 ) , RFM ( 1 , 1 ) , I LAST ( 1 ) , UCF 1 ( 1 ) , U CF2 ( 1 ) , IMAN1069 
7 XG ( 45 ) ,YG(45 ) ,ZG(45) ,XGI ( 45 ) , Y GI ( 45 ) , TAGSS ( 1 , 1 2 , 3 ) . LNX S ( 1 ) . IMAN1070 
8XSPR0P (7,1 ) , MATXS ( 1 ) ,TSGEE(14,  12,3) , LNYS( 1 4 ) , YSPR0P( 7 , 1 4 ) ,MATYS(  1 4 IMAN1  071 
9) , LNRS ( 14) , I SRS( 14) ,SC(5 , 14) ,NVSA(8) ,NC0N(4,8) ,PMASS(45) ,VN(3.45) , IMAN1072 
A VNB(3 ,45) ,S  1(45)  ,NEFF(45) ,ALPHA(45)  IMAN1073 
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8.3  Solution  Output  Data  for  the  Full-Plate  Model 


The  following  is  the  output  for  150  cycles  (300  ysec)  for  the  fragment- 
impacted  narrow  plate  specimen  depicted  in  Fig.  18;  the  associated  finite- 
element  model  is  shown  in  Fig.  19. 

The  first  segment  of  the  output  describes  the  initial  geometry  and 
material  properties  of  the  basic  plate  and  the  integrally  attached  stiffener. 
The  element  numbers  and  global  node  numbers  of  the  finite-element  model  of 
the  structure  are  shown.  The  boundary  conditions  employed  and  the  associated 
constrained  degrees  of  freedom  are  identified.  Next,  pertinent  geometric 
and  material  properties  for  the  stiffener  are  listed.  Then,  the  properties 
for  each  sublayer  of  the  mechanical-sublayer  material  model  are  given: 

(a)  stress,  (b)  strain,  (c)  yield  stress,  and  (d)  sublayer  weighting  factor. 
Finally,  the  time-step  size  used  and  the  intended  calculation  run  time  and 
periodic  printout  times  are  identified. 

The  next  segment  describes  the  output  to  be  given  at  every  printout 
cycle,  the  properties  of  all  elastic  restoring  springs,  all  pre-impact 
fragment  data,  and  the  selected  coefficient  of  restitution  and  friction 
coefficient  for  impact.  This  output  consists  of  (a)  the  generalized  displace- 
ments at  and  the  global  location  of  each  node,  (b)  the  global  location  of 
as  well  as  the  components  of  the  translational  and  rotational  velocities  of 
the  fragment,  (c)  strain  components  as  well  as  principal  (tensile)  strain 
and  direction  at  8 specified  nodes,  (d)  strain  components,  principal  (tensile) 
strain  and  direction,  and  relative  elongations  at  4 specified  additional 
stations,  and  (e)  a tabulation  of  the  various  energies  of  the  system.  Also 
noted  are  the  number  of  impacts  which  have  occurred  and  the  current  effective 
impact  location. 

In  the  interest  of  conciseness,  only  a portion  of  the  called-for  output 
is  shown.  Included  are:  (1)  all  input-verification  information  and  (2) 

scheduled  output  at  the  end  of  time  cycles  0,  1,  2,  3,  140,  and  150  (last)+. 
This  output  listing  is  intended  for  use  m verifying  the  (successful)  adapta- 
tion of  the  CIVM-PLATE  1 program  to  a user's  computer  facility. 

An  auxiliary  computer  run  was  made  with  printout  every  cycle  to  give  the 
output  shown  at  the  end  of  cycles  1,  2,  3,  and  4. 
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CIVM-PLATE  1 COMPUTER  CODE  (SMALL  STRAIN  THEORY) 
MAXEL  • 56 

MNSL  • 3 

MNXST  • 1 

MNYST  > 28 

NBE  . 1 

MEWE  . 1 

MNC  • 16335 

NIAN  • 75 


: USER  INPUT  FOR  ARRAY  DIMENSIONS 


AUTO-GENERATEO  FINITE-ELEMENT  MESH  INFORMATION  FOR  STIFFENEO  OR  UNSTIFFENED  FLAT-PLATE  PROBLEM 


X-LENGTH (IN) 

Y-LENGTH( IN) 

Z-POSITION(IN) 

THICKNESS(IN) 

youngs  mooulus(psi) 

POISSONS  RATIO 

OENS 1 TV ( LB-SEC++2/IN++4) 

NO.  OF  ELEM.  IN  x-direction 
NO  OF  ELEM  IN  Y-DIRECTION 
NQ  OF  0 0 F /ELEM. 

TOTAL  NO  Or  l LEMENTS 
TOTAL  NO  OF  0.0  F 
NO  OF  X-OIR  STIFFENERS 
NO  OF  Y-01R  STIFFENERS 


0 . 16000000+01 
0 .68000000+01 
0 .0 

0 .20000000+00 
0 .10000000+06 
0.33333330+00 
0 .25384000-03 
4 
14 
24 
56 
450 
0 

28 


to 

ui 


kl  NODE 

NUMBERS 

ASSOCIATED  WITH  1 

WENT 

global 

NODE 

NUMBERS 

1 

i 

2 

7 

6 

2 

2 

3 

8 

7 

3 

3 

4 

9 

8 

4 

4 

5 

10 

9 

5 

6 

7 

12 

11 

6 

7 

a 

13 

12 

7 

a 

9 

14 

13 

a 

9 

10 

15 

14 

9 

11 

12 

17 

16 

10 

12 

13 

18 

17 

1 1 

13 

14 

19 

18 

12 

14 

15 

20 

19 

13 

16 

17 

22 

21 

14 

17 

IB 

23 

22 

15 

16 

19 

24 

23 

16 

19 

20 

25 

24 

17 

21 

22 

27 

26 

16 

22 

23 

28 

27 

19 

23 

24 

29 

26 

20 

24 

25 

30 

29 

21 

26 

27 

32 

31 

22 

27 

2B 

33 

32 

23 

28 

29 

34 

33 

24 

29 

30 

35 

34 

25 

31 

32 

37 

36 

26 

32 

33 

38 

37 

27 

33 

34 

39 

38 

28 

34 

35 

40 

39 

29 

36 

37 

42 

41 

30 

37 

38 

43 

42 

31 

38 

39 

44 

43 

32 

39 

40 

45 

44 

33 

41 

42 

47 

46 

34 

42 

43 

48 

47 

35 

43 

44 

49 

43 

36 

44 

45 

50 

49 

37 

46 

47 

52 

51 

38 

47 

48 

53 

52 

39 

48 

49 

54 

53 

40 

49 

50 

55 

54 

41 

51 

52 

57 

56 

42 

52 

53 

58 

57 

43 

53 

54 

59 

58 

44 

54 

55 

60 

59 

45 

56 

57 

62 

61 

46 

57 

58 

63 

62 

47 

58 

59 

64 

63 

48 

59 

60 

65 

64 

49 

61 

62 

67 

66 

50 

62 

63 

68 

67 

51 

63 

64 

69 

68 

52 

64 

65 

70 

69 

53 

66 

67 

72 

71 

54 

67 

68 

73 

72 

55 

68 

69 

74 

73 

56 

69 

70 

75 

74 

BOUNDARY  CONDITIONS  (SEE  WRITEUP  FOR  CONVENTION  FOR  SIDE  NUMBER  AND  BOUNDARY  CONDITION) 


SIDE  NUMBER 
1 
2 

3 

4 


BOUNDARY  CONDITION 
IDEALLY  CLAMPED 
FREE 

IDEALLY  CLAMPEO 
FREE 


THE  FOLLOWING  60  OEGREES  OF  FREEDOM  ARE  CONSTRAINED 


1 2 

3 4 

5 6 7 8 

9 

10  11 

12  13  14 

15  16  17 

18  19  20 

u,  21  22 

23  24  25  26  27  28 

29 

30  421 

422  423  424 

425  426  427 

428  429  430 

to  431  432 

O' 

433  4 34  435  436  437  438 

439 

440  441 

442  443  444 

445  446  447 

448  449  450 

INFORMATION 

FOR  Y-DIRECTION  STIFFENERS 

STIFF.  NO. 

ON  ELEM.  MAT.  NO.  THICKNESS 

WIDTH 

YOUNGS  MOD. 

POISSON  RATIO 

DENSITY 

PSI-LOC. 

OFFSET, ZF 

1 

2 1 

0 2000  OD  + OO 

0 

500000-01 

0.100000*08 

0 33333D.00 

0.253840-03 

0. 93750D+00 

-0.200000+00 

2 

6 1 

0 2000  OD+OO 

0 

50000D-01 

0. 10000D*08 

0 . 33333D.00 

0 253840-03 

0.937500+00 

-0.200000+00 

3 

10  1 

0 2000  OD+OO 

0 

50000D- 01 

0.100000*08 

0 33333D+00 

0.253840-03 

0.937500+00 

-0.200000+00 

4 

14  1 

0 200000*00 

0 

500000-01 

0 100000*08 

0.333330+00 

0 253840-03 

0 937500+00 

-0.20000D+00 

5 

18  1 

0 2000 ODr 00 

0 

500000-01 

0.100000*08 

0. 33J33D.00 

0 .253840-03 

0 937500+00 

-0.20000D+00 

6 

22  1 

0 200000+00 

0 

50000D- 01 

0 100000*08 

0 333330+00 

0.25384D-03 

0.937500+00 

-0  20000D+00 

7 

26  1 

0 2000  OD  + OO 

0 

50000D-01 

0 100000*08 

0 33333D+00 

0 253B4D-03 

0.937500+00 

-0  20000D+00 

8 

30  1 

0 200000+00 

0 

500000-01 

0.100000*08 

0 333330+00 

0.253840-03 

0 93750D+00 

-0  20000D+00 

9 

34  1 

0 2000  QC  + OO 

0 

50000D-0 1 

0 1 00020*08 

0 33333D+ 00 

0 25304D-03 

0 937500+00 

-0  20000D+00 

10 

38  1 

0 2000  OD+OO 

0 

500000-01 

0 100000*08 

0 333330.00 

0 253840-03 

0 937500+00 

-0  200000+00 

1 1 

42  1 

0 2000  OD+OO 

0 

500000-01 

0 100000*08 

0 333330+00 

0 25304D-03 

0 937500+00 

-0  200000+00 

12 

46  t 

0. 200000+00 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253840-03 

0 937500+00 

-0  200000+00 

13 

50  1 

0 2000  OD+OO 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253840-03 

0 937500+00 

-0  200000+00 

14 

54  1 

0 200000*00 

0 

500000- 0 1 

o ioooo')*oa 

0 333330 t 00 

0 253640-03 

0 93750D+00 

-0  20000D+00 

15 

3 1 

0 2C000C+00 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253840-03 

0 62500D-01 

-0  20000D+00 

16 

7 1 

0 2000  OC+OO 

0 

500000-01 

0 100000*00 

0 333330+00 

0.253840-03 

0 62500D-0 1 

-0.20000D+00 

17 

11  1 

0 200000+00 

0 

500000-01 

0.100000*08 

0 333330+00 

0 253840-03 

0 625000-01 

-0 . 20000D+00 

18 

15  1 

0 200000+00 

0 

500000-01 

0 100000*08 

0 333330*00 

0 253Q4D-03 

0 62500D-01 

-0  200000+00 

19 

19  1 

0 200000*00 

0 

500000-01 

0 100000*08 

0 33..33D  + 00 

0 253840-03 

0 62500D-0 1 

-0  200000+00 

20 

23  1 

0 2000 OD  + OO 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253040-03 

0 625000-01 

-0.200000+00 

21 

27  1 

0 200009*00 

0 

500000-01 

0 100000*08 

0 33333D+00 

0.253840-03 

0 625000-01 

-0. 200000+00 

22 

31  1 

0 2000  OC  + OO 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253840-03 

0.625000-01 

-0  200000+00 

23 

35  1 

0 2000 OC+OO 

0 

500000-01 

0 100000*08 

0 333330+00 

0 253840-03 

0.62500D-01 

-0.200000+00 

24 

39  1 

0 2000  OD  + OO 

0 

500000-01 

0 100000*08 

0 33333D+  00 

0 253040-03 

0 62500D-0I 

-0  200000+00 

25 

43  1 

0.200000+00 

0 

500000-01 

0.100000*08 

0 333330+00 

0 253840-03 

0.625000-01 

-0.200000+00 

26 

47  1 

0.2000  OD+OO 

0 

500000-01 

0.100000*08 

0.333330+00 

0.253840-03 

0.625000-01 

-0.200000+ QO 

) 


1 


I 


27  SI  1 0.200000+00  0.500000-01  0.100000+08  0.333330+00  0.253840-03  0.625000-01  -0.200000+00 

28  55  1 0.200000+00  0.500000-01  0.10000D+08  0.333330+00  0.253840-03  0.62500D-01  -0.20000D+00 

MAX  SIZE  IS  16335 

PROPERTIES  FOR  USER-SPECIFIED  MATERIALS 
properties  for  material  number  i 

SUBLAYER  stress  point  strain  point  yield  stress  weighting  factor 

1 0.44200000+05  0.44200000-02  0.44200000+05  0.99378610+00 

2 0.49200000+05  0.76000000-01  0.84885000+06  0.17256920-02 

3 0 76400000+05  0.61500000+00  0.69092000+07  0 4468190D-02 

STRAIN  RATE  PARAMETERS.  D«  0 0 P.  0.0 

TIMEWISE  SOLUTION  PARAMETERS 
TIME-STEP  SIZE*  0 20000000-05  SEC. 

RUN  will  TERMINATE  AT  TIME  • 0 30000000-03  SEC.  OR  AT  CYCLE  NUMBER  150 

REGULAR  PRINTOUT  WILL  BE  GIVEN  EVERY  10  CYCLES 

OUTPUT  CONTROL  INFORMATION  *.... 


THE  FOLLOWING  RESULTS  WILL  BE  GIVEN  AT  EVERY  REGULAR  PRINTOUT  CYCLE. 

NODAL  DISPLACEMENTS  AND  LOCATION 

STRAIN  COMPONENTS,  PRINCIPAL  STRAIN  AND  DIRECTION  AT  THE  FOLLOWING  8 NODES  (OBTAINED  BY  NODAL  AVERAGING)! 
38  39  43  44  48  49  53  54 


w 

to 

-J 


STRAIN  COMPONENTS.  ELONGATION  IN  SPECIFIED  DIRECTIONS.  PRINCIPAL  STRAIN  AND  DIRECTION  AT  THE  FOLLOWING  A ADDTL. 
ADDTL.  POINT  ON  ELEM  PSI-LOCATION  ETA-LOCATION  ELONG  DIR.-I(DEG)  ELONG.  OIR.-2(DEG) 


1 

30 

0 50000000+00 

0.50000000+00 

0 . 4500  OOOD+02 

0. 1 350000D  + 03 

2 

31 

0.50000000+00 

0 500000  0D  + 00 

0 45000000+02 

0.  1 350000D  + 03 

3 

34 

0 50000000+00 

0 5000000D+00 

0 0 

0 . 9000000D  + 02 

4 

SYSTEM  ENERGIES 

35 

0 50000000+00 

0. 50000000+00 

0.0 

0 90000000+02 

LOCATION  AND  PROPERTIES  OF  LINE  TRANSLATIONAL  AND  ROTATIONAL  LINEAR  RESTORING  SPRINGS 


POINTS! 


ELEM.  NO. 

ELEM.  SIDE 

KX(LB/IN/IN) 

KY ( LB/ IN/ IN  ) 

KZ( LB/IN/IN) 

K~THETA( IN-LB/RAD/IN) 

K-PSK  1N-LB/RAD/IN) 

4 

2 

0.0 

0 o 

0 3000000D+04 

0.0 

0.0 

a 

2 

0.0 

0 0 

0 30000000+04 

0.0 

0.0 

12 

2 

0.0 

0 0 

0 . 30  0000QD  + 04 

0 0 

0.0 

16 

2 

0 0 

0 0 

0. 3000000D+04 

0 0 

0.0 

20 

2 

0 0 

0 0 

0 30000000+04 

0 0 

0 0 

24 

2 

0 0 

0 0 

0 30000000+04 

0 0 

0.0 

26 

2 

0.0 

0 0 

0 30000000+04 

0 0 

0.0 

32 

2 

0 0 

0 0 

0 30000000*04 

0 0 

0.0 

36 

2 

0 0 

0 0 

0 30000000+04 

0 0 

0.0 

40 

2 

0.0 

0 o 

0 30000000+04 

0.0 

0.0 

44 

2 

0 0 

0.0 

0 30000000+04 

0 0 

0 0 

40 

2 

0.  0 

0 0 

0 30  OOOOOD  + 04 

0 0 

0.0 

52 

2 

0.0 

0 0 

0 30000000+04 

0 0 

0 0 

56 

2 

0 0 

0 0 

0 30000000+04 

0 0 

0.0 

1 

A 

0 0 

0 0 

0 30000000*04 

0 0 

0.0 

5 

A 

0 0 

0 0 

0 30  00000D* 04 

0.0 

0.0 

9 

A 

0.0 

0 0 

0.30000000*04 

0 0 

0.0 

13 

A 

0 0 

0 0 

0 30000000*04 

0 0 

0.0 

17 

A 

0.  0 

0 0 

0 30000000*04 

0 0 

0 0 

21 

A 

0 0 

0.0 

0 30000000*04 

0 0 

0 0 

25 

A 

0 0 

0.0 

0 30000000+04 

0.0 

0.0 

29 

A 

0 0 

0 0 

0 30000000+04 

0 0 

0 0 

33 

A 

0 0 

0 0 

0 30  000000*04 

0 0 

0.0 

37 

A 

0.0 

0 0 

0 30000000*04 

0 0 

0.0 

41 

A 

0.0 

0 0 

0 30000000+04 

0 0 

0.0 

45 

A 

0 0 

0 0- 

0 30000000+04 

0 0 

0.0 

49 

A 

0.0 

0 0 

0 30 OOOOOD  + 04 

0 0 

0.0 

53 

A 

0.0 

0 0 

0 30000000+04 

0.0 

0.0 

HIGHEST  NATURAL  FREQUENCY (RAD/ SEC)*  0.17486520+07 
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HIGHEST  EIGENVECTOR  NORMALIZED  BY  LARGEST  VALUE 

NODE  U V W PSIX  PSIY  TWIST 

10.0  0.0  00  0.0  00  0.0 

2 0.0  0.0  00  0.0  0.0  0.0 

30.0  0.0  00  00  0.0  0.0 

4 00  00  0.0  0.0  0 0 0.0 

500  0.0  00  00  00  0.0 

6-0.351390-08  0.44238D-07  0 60626D-02  0 354440+00  0.404510-01  0.0 

7 -0.135760-06  0 211640-05  -0  196160-02  0 I8590D+00  -0  587770-01  0.0 

8 0 378850-08  0 420800-04  -0  544130-03  0 170G7D-01  -0  104360-01  0 0 

9 0.1 3G00D-06  0 213750-05  0 958790-03  0 97152D-01  0 254370-01  0.0 

10  -0  622930-08  0 581750-07  -0  313070-02  0 182440+00  -0  216660-01  0 0 

11  0 29133D-07  -0  529830-07  0 119990-01  0 78012D+00  0 290440+00  0 0 

12  0 61B14D-06  -0  263640-06  -0  366380-02  0.442700+00  -0  116440+00  0 0 

13  -o  158880-08  0.794650-05  -0  55001D-03  0 289990-01  -0.904830-02  0 0 

14  -0  618110-06  -0.534320-06  0 180470-02  0 22I5C0+00  0 548410-01  0.0 

15  -0  251100-07  -0.598770-07  -0  595630-02  0 38703D+00  -0  144420+00  0.0 

16  0 125720-06  0 112630-06  0 133340-01  0 880390+00  0 799730-02  0 0 

17  -0  372650-06  -0  699870-06  -0  433680-02  0 503250+00  0 611800-02  0 0 

18  -0  967710-09  -0  32113D-05  -0  877990-03  0 371410-01  -0  20746D-02  0 0 

19  0 372630-06  -0  535800-06  0 20607D-02  0 24945D+00  -0  479810-02  0.0 

20  -0  122200-06  0 122050-06  -0  648370-02  0 427920+00  -0  164860-03  0 0 

21  -0  I0405D-06  -0  319090-06  0 1457GD-01  0 96I34D+00  0 299070-01  0.0 

22  -0  20969D-05  -0  10B32D-05  -0  47362D-02  0.55600D+00  -0  220950-01  0 0 

23  -0  191450-08  0 360910-04  -0  892I0D-03  0 399.I5D-01  0 379380-02  0 0 

24  0 209680-05  -0  125620-05  0 216890-02  0 26 1 ‘ 50+00  0 114020-01  0.0 

25  0 108940-06  -0  330920-06  -0  668730-02  0 443250+00  -0  252390-02  0.0 

26  -0  355730-06  0 134920-06  0 153940-01  0 100000+01  -0  326750+00  0 0 

27  0 31 068D-05  0.104140-04  -0  445920-02  0 566360+00  0.144210+00  0 0 

28  0 961820-09  0.184260-03  0 633890-03  0 381LU0-0I  0 360170-01  0 0 

29  -0  310650-05  0.108170-04  0 2o023D-02  0 262710+00  -0  149110-01  0 0 

30  0 3532 ID-06  0 151  180-06  -0  681540-02  0 417300+00  0.205740+00  0 0 

31  -0  54U570-06  -0  523910-06  0 13555D-0I  0 79349D+00  0 652290-01  0 0 

32  0 754110-05  -0.91 065 D-05  -0  332600-02  0 407920*00  0.133330  + 00  0 0 

33  0 618310-08-0  181890-03  0 126230-02  0.361120-01  0.12127D+00  0 0 

34  -0  754070-05  -0.936800-05  0 256900-02  0 237760+00  0 12502D+00  0 0 

35  0 535330-06  -0.549110-06  -0  565970-02  0 383020+00  0 206050+00  0.0 

36  0 134810-07  0.139900-05  0 878340-02  0 556140+00  0 207800+00  0 0 

37  -0  967680-07  -0  361040-05  -0  264400-02  0 315270*00  0 168040+00  0 0 

38  -0  72257D-08  -0  232I2D-03  -0  75310D-04  0 32200D-01  0 155590+00  0 0 

39  0 95768D-07  -0  361040-05  0 250600-02  0 300660+00  0.1G8640+00  0 0 

40  0 510720-00  0.139900-05  -0  637470-02  0 530030+00  0 207800+00  0 0 

41  0 544750-06  -0  552160-06  0 613930-02  0 41242D+00  0 209460+00  0 0 

42  -0  757310-05  -0  911640-05  -0  27249D-02  0 253570+00  0.124100+00  0.0 

43  0 51 031D-0B  -0  176550-03  -0  14070D-02  0 361120-01  0.119330+00  0.0 

44  0 757380-05  -0  88550D-05  0 317010-02  0 392110+00  0 13249D+00  0 0 

45  -0  557998-06  -0  52695D-06  -0  130750-01  0 761060+00  0 686440-01  0 0 

46  0 351590-06  0 14332D-06  0 637820-02  0 45.810+00  0 219770+00  0.0 

47  -0  301720-05  0.1C805D-04  -0  279160-02  0 281340+00  -0  195300-01  0 0 

48  0 961820-09  0.1L597D-03  -0  75S19D-03  0 384680-01  0 34G920-01  0 0 ‘ 

49  0 301750-05  0 104320-04  0 426990-02  0 544730+00  0.139620+00  0 0 

50  -0. 354110-06  0 12676D-06  -0  14831D-0I  0 962490+00  -0  312720+00  0 0 

51  0 101630-06  -0  329130-06  0 725570-02  0 400928+00  -0  331110-02  0 0 

52  0 210790-05  -0  132160-05  -0  235940-02  0 283160+00  0 122100-01  0 0 

53  -0  191450-00  0.350940-04  0 744680-03  0 393950-01  0 357410-02  0 0 

54  -0  2108ID-05  -0  115170-05  0 454570-02  0 531150+00  -0  212860-01  0 0 

55  -0  967370-07  -0.317300-06  -0  1400JD-01  0 92tiu70  + 00  0 291200-0.  0 0 

56  -0  132500-06  0 118610-06  0 70205D-02  0 463420+00  -0  256120-03  0 0 

57  0 379010-06  -0.474040-06  -0  223970-02  0 26976D+00  -0  506680-02  0 0 

58  -0  967710-09  -0  219220-05  0 739550-03  0.371410-01  -0  174780-02  0 0 

59  -0.379040-06  -0  638100-06  0 415700-02  0 487940+00  0 582930-02  0 0 

60  0 135020-06  0.109180-06  -0  127970-01  0 044850+00  0 790600-02  0 0 

61  -0  27360D-07  -0.474160-07  0 644060-02  0 419630+00  -0  156220+00  0 0 

62  -0.503930-06  -0.46773D-06  -0  195620-02  0 23958D+00  0 598260-01  0.0 


) 


\ 

/ 


) 


) 


63  -0.1538BD-OB  0.674230-05  0 461020-03  0.289990-01  -0  75916D-02  0.0 

64  0.503970-06  -0  196550-06  0 351230-02  0 42408D+00  -0.11145D+00  0 0 

65  0.313840-07  -0.405230-07  -0  115060-01  0.748130*00  0 278640+00  0.0 

66  -0.608920-08  0 496440-07  0 337720-02  0.196900*00  -0.231860-01  0.0 

67  0.115710-06  0.177700-05  -0  104250-02  0 104610+00  0 281850-01  0.0 

68  0 378850-08  0.350110-04  0 453990-03  0 170670-01  -0  872110-02  0.0 

69  -0  115480-06  0 175600-05  0 187790-02  0.178440*00  -0  560290-01  0 0 

70  -0.285400-08  0.357070-07  -0  581610-02  0 339980*00  0 38932D-0I  0 0 

71  00  00  00  00  0.0  0.0 

72  0 0 0 0 0 0 0.0  0 0 0 0 

73  00  00  00  00  00  0.0 

74  0.0  00  00  00  0.0  00 

75  0.0  00  00  00  00  0.0 

AFTER  158  ITERATIONS,  CONVERGENCE  RATIO-  0 96230890-07 

CENTRAL-DIFFERENCE  BOUND  ON  T 1 1.1E-STE  P ( SEC  ) FOR  LINEAR  SYSTEM.  0.1  43738D-05 
ACTUAL  TIME-SIEP  BOUND  (SEC)  WOULD  BE-  0.91499050-06 


FRAGMENT  LOCATION.  VELOCITY,  AND  PROPERTIES  AT  TIME-0.0  SEC 


X-LOCAT ION( IN ) 

at 

0 80000000*00 

Y-LOCAT ION{ IN ) 

m 

3 33944120+01 

Z-LOCAT 10N( IN ) 

M - 

0 6098787D+00 

X-VELOC ITY( IN/SEC) 

m 

0 0 

Y-VELOC I T Y ( IN/SEC) 

M 

0 1397000D+04 

Z-VELOC ITY( IN/SEC) 

m 

0 241 9675D+04 

omega- 

X ( RAD/S  EC ) 

u 

0 16500000+04 

OMEGA- 

Y (RAO/SEC) 

m 

0 0 

omega- 

Z (RAO/SEC) 

« 0.0 

FRAGMENT  RAOIUS(IN) 

- 

0 50000000*00 

FRAGMENT  MASS ( LB-SEC*SEC/ IN)  . 

0 38151300-03 

w 

FRAG 

MOMENT  OF  INERT  I A{ I N 

*+4)«  0.38160000-04 

KINETIC  ENERGY( IN-LB) 

- 

3. 1541074D  + 04 

CONTACT  SURFACE  PROPERTIES 

COEF 

OF  RESTITUTION. 

0. 10000000+01 

FRICTION  coefficient. 

0 200000  QD+QO 

NO.  OF 

SYMMETRIES  • 

0 

USER 

SPECIFIED  EFFECTIVE  LENGTH 

. o 42000000+00 

ROUNDING  ERROR  PARAMETER  IN 

FACTORING 

ROW  390  > 0.52440101 

***  *< 

INCR. 

NO. * 0 TIME-  0 

.0 

SEC. 

NODE 

U V 

w 

PSIX 

1 

0.0 

0.0 

0 0 

0 0 

0 

2 

0.0 

0 0 

0 0 

0.0 

0 

3 

0 0 

0.0 

0 0 

0 0 

0 

4 

0.0 

o o 

0 0 

0 0 

0 

5 

0.0 

0 0 

0 0 

0 0 

0 

6 

0.0 

0 0 

0 o 

0 0 

0 

7 

0 0 

0.0 

0 0 

0.0 

0 

8 

0 0 

0 0 

0.0 

0 0 

0 

9 

0.0 

0 0 

0.0 

0 0 

0 

10 

0 0 

0.0 

0.0 

0 0 

0 

11 

0 0 

0 0 

0 0 

0 0 

0 

12 

0 0 

o 0 

0 0 

0 0 

0 

13 

0 0 

0 0 

0 0 

0 0 

a 

14 

0.0 

0 0 

0 0 

0 0 

0 

15 

0 0 

0 0 

0.0 

0 0 

0 

16 

0.0 

0 0 

0 0 

0.0 

0 

17 

0 0 

0 0 

0.0 

0 0 

0 

18 

0 0 

0 0 

0 0 

0 0 

0 

19 

0.0 

0 0 

0 0 

0 o 

0 

20 

0 0 

0.0 

0.0 

0 0 

0 

21 

0.0 

0.0 

0 0 

0 0 

0 

22 

0 0 

0.0 

0.0 

0.0 

0 

NO  OF  NEGATIVE  DIAG.  0 


PSIY 

TWIST 

X-POS. 

Y-POS. 

Z-PQS 

0 

0 o 

0.0 

0.0 

0.0 

0 

0.0 

0. 400000+00 

0.0 

0.0 

0 

0.0 

0.800000+00 

0.0 

0.0 

0 

0.0 

0. 12000D+01 

0.0 

0.0 

0 

0 0 

0. 160000+01 

0 0 

0.0 

0 

0.0 

0 0 

0.400000+00 

0.0 

0 

0.0 

0 40000D+00 

0. 40000D+00 

0 0 

0 

0 o 

0 . 800000+00 

0.400000+00 

0.0 

0 

0 0 

0 1 2000D+01 

0 40000D+00 

0 0 

0 

0 0 

0 1 6000D  + 0 1 

0 . 40000D+00 

0.0 

0 

0.0 

0 0 

0 BOOOOD+OO 

0.0 

0 

0.0 

0 400000+00 

0 80000D+00 

0.0 

0 

0 0 

0 UOOOOD+OO 

0 80000D+00 

0.0 

0 

0.0 

0.120000+01 

0 60000D+00 

0.0 

0 

0.0 

0. 16000D+01 

0.800000+00 

0.0 

0 

0.0 

0.0 

0. I4000D+0I 

0.0 

0 

0.0 

0 400000+00 

0 140000+01 

0.0 

0 

0.0 

0 80000D+00 

0 140000+01 

0.0 

0 

0.0 

0. 12000D+0! 

0.140000+01 

0.0 

0 

0 0 

0.160000+01 

0 140000+01 

0.0 

0 

0.0 

0.0 

0.200000+01 

0.0 

0 

0.0 

0.400000+00 

0.200000+01 

0.0 
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23 

0.0 

0.0 

0.0 

0 0 

0 

0 

0.0 

0 

60000D+00 

0 

200000+01 

0.0 

24 

0.0 

0.0 

0.0 

0.0 

0 

0 

0.0 

0 

1200004-01 

0 

200Q0D+01 

0.0 

25 

0.0 

0.0 

0.0 

0.0 

0 

0 

0.0 

0 

16000D4-01 

0 

200000+01 

0.0 

26 

0.0 

0.0 

0 0 

0.0 

0 

0 

o.o 

0 

0 

0 

260000+01 

0.0 

27 

0.0 

0.0 

0 0 

0 0 

0 

0 

0.0 

0 

40000D+00 

0 

26000D+0 1 

0.0 

28 

0.0 

0 0 

0.0 

0.0 

0 

0 

0.0 

0 

800000400 

0 

26000D+01 

0.0 

29 

0 0 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 

120000401 

0 

26000D+0I 

0.0 

30 

0.0 

0 0 

0 0 

0 0 

0 

0 

0.0 

0 

160000t01 

0 

260000*0 1 

0.0 

31 

0.0 

0 0 

0 0 

0.0 

0 

0 

0.0 

0 

0 

0 

30000D+0 1 

0 0 

32 

0 0 

0.0 

0 0 
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0 

0 
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0 
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0 

30000D+0 1 

0.0 

33 

0,0 

0 0 

0 0 
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0 

0 
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0 

600000400 

0 

30000D+0 1 

0 0 

34 

0.0 

0 0 

0 0 

0 0 

0 

0 
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0 

120000401 

0 

300000*01 
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35 

0 0 

0 0 

o o 

0.0 

0 

0 

0 0 

0 
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0 

30000D+0 1 

0.0 

36 

0 0 

0 0 

0 0 
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0 
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0 

0 

34000D+0 1 

0.0 

37 
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0 

0 
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0 
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0 

34000D+0 1 

0.0 

30 
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0 

0 
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0 
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0 
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0.0 

39 
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0 0 
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0 

0 

0 0 

0 
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0 

340000*0 1 

0.0 

40 

0.0 
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o o 

0 0 

0 

0 
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0 
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0 

340000+01 

0.0 

41 
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0 

0 
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0 

0 

0 
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0.0 

42 

0 0 
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0 

0 
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0 
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0.0 

43 

0.0 

0.0 

0 0 

0 0 

0 

0 
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0 
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0 

38000D+0 1 

0.0 

44 

0.0 

0 0 

0 0 
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0 

0 
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0 

12000D401 

0 

38000D+0 1 

0.0 

45 
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0.0 

0 0 

0 0 

0 

0 
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0 

160000401 

0 

30000D+0 1 

0.0 

46 

0 0 

0 0 
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0 

0 

0.0 

0 

0 

0 

420000*01 
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47 

0.0 

0 0 

0.0 

0 0 

0 

0 
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0 
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48 
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0 
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0 
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0.0 

75 

0 0 

0.0 

o o 

0 0 

0 

0 

0.0 

0 

160000401 

0 

60000D+01 

0.0 

FRAGMENT  GLOBAL  LOCATION  AND  VELOCITY  COMPONENTS 
X-LOC  Y-LOC  Z-LOC 

0 8000000+00  0. 3394410+01  -0.6098790+00  0 0 


VEL-X  Vfl-Y  VEL-Z 

0. 1397000+04  0.2419670+04 


OMEGA-X 
0 166000D+04 


OMEGA-Y  OMEGA-Z 

0.0  0.0 


STRAIN  COMPONENTS,  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 


EPS-X  STRAIN  EPS-Y  STRAIN 


NOOE 

38 

0 0 

INNER  OUTER 

0 0 

0 0 

INNER  OUTER 

0 0 

0 0 

39 

0.0 

0.0 

0 0 

0 0 

0.0 

43 

0 0 

0.0 

0 0 

0.0 

0.0 

44 

0.0 

0.0 

0.0 

0.0 

0.0 

SHEAR  STRAIN 

PRINC. 

STRAIN(T) 

DIRECTION(DEG.) 

INNER  OUTER 

INNER 

OUTER 

INNER 

OUTER 

0 0 

0 0 

0.0 

0.45000+02 

0.45000+02 

0.0 

0.0 

0.0 

0.4500D+02 

0.45000+02 

0 0 

0.0 

0 0 

0.45000+02 

0,45000+02 

0.0 

0.0 

0.0 

0.4500D+02 

0.45000+02 

331 


48 

0.0 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.45000+02  0.45000+02 

49 

0.0 

0 0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.4500D+02  0.4500D+02 

53 

0 0 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.4500D+02  0.4500D+02 

54 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.4500D+02  0.45000+02 

STRAIN  COMPONENTS. 

PRINCIPAl(TENSILE)  STRAIN  AND 

DIRECTION. 

and  elongations 

AT  SPECIFIED 

ADDITIONAL  POINTS 

POINT 

NO. 

SURFACE 

EPS-X 

strain  eps-y 

STRAIN 

SHEAR 

STRAIN 

ELONG 

(DIR. 1 ) 

ELONG. (DIR. 2) 

PRINC. 

STRN(T)  DIRECTIONIDEG.) 

t 

INNER 

0 0 

0.0 

0.0 

0 0 

0.0 

0.0 

0 45000D+  02 

1 

OUTER 

0 0 

0.0 

0 0 

0.0 

0.0 

0 0 

0 . 45000D+02 

2 

INNER 

0.0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 45000D+02 

2 

OUTER 

0.0 

o o 

0.0 

0 0 

0.0 

0.0 

0. 450000+02 

3 

INNER 

0 0 

0.0 

0 0 

0.0 

0.0 

0.0 

0 . 45000D+02 

3 

OUTER 

0 0 

o.o 

0.0 

0.0 

0.0 

0.0 

0.450000+02 

4 

INNER 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 . 45000D+02 

4 

OUTER 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.450000+02 

SYSTEM  ENERG I ES( IN-L0) 


FRAG.  TRANSLATIONAL  KINETIC  ENERGY  * 
FRAG.  ROTATIONAL  KINETIC  ENERGY  . 

WORK  INPUT  TO  STRUCTURE 
STRUCTURE  KINETIC  ENERGY  ■ 

STRUCTURE  ELASTIC  ENERGY  « 

STRUCTURE  PLASTIC  ENERGY  > 

energy  stored  in  elastic  restraints. 

NODE  U V W 

< 0.0  00  00 

fn 

o ooooooo 

14891280+04 

51945300+02 

0 

0 

0 

0 

0 

PSIX 

0 0 

0 

PSIY 

0 

TWIST 

O.Q 

X-POS. 

0.0 

Y-POS. 

0.0 

Z-POS. 

0.0 

2 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0.400000+00 

0.0 

0.0 

u>  3 

u>  * 

0 0 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0.800000+00 

0 0 

0.0 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0.120000+01 

0.0 

0.0 

5 

0 0 

0 0 

0.0 

0 

0 

0 

0 

0.0 

0.160000+01 

0.0 

0.0 

6 

0 0 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 0 

0 400000+00 

0.0 

7 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 400000+00 

0 40000D+00 

0.0 

8 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 800000+00 

0 400000+00 

0.0 

9 

0 0 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 120000+01 

0.40000D+00 

0.0 

10 

0.0 

0.0 

0 o 

0 

0 

0 

0 

0.0 

0 160000+01 

0 400000+00 

0 0 

1 1 

0 0 

0.0 

0 0 

0 

0 

0 

0 

0 0 

0 0 

0 800000+00 

0.0 

12 

0.0 

0.0 

0.0 

0 

0 

0 

0 

o.o 

0 400000+00 

0 800000+00 

0.0 

13 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 000000+00 

0 800000+00 

0.0 

14 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 1 2000D+01 

0 800000+00 

0 0 

15 

0 0 

0 0 

0 o 

0 

0 

0 

0 

O.o 

0 160000+01 

0 80000D+00 

0.0 

16 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 0 

0 140000+01 

0.0 

17 

0.0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0.400000+00 

0 1 4000D+0 1 

0 0 

18 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 800000+00 

0 140000+01 

0 0 

19 

0 0 

0 0 

0.0 

0 

0 

0 

0 

0.0 

0 120000+01 

0 140000+01 

0 0 

20 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0 o 

0 160000+01 

0 1 4000D+0 1 

0.0 

21 

0 0 

0.0 

0 o 

0 

0 

0 

0 

O.o 

0 0 

0 200000+01 

0 0 

22 

0.0 

0 0 

0 o 

0 

0 

0 

0 

0.0 

0 400000+00 

0 200000+01 

0 0 

23 

0.0 

0 0 

0 0 

0 

0 

0 

0 

0 o 

0 600000+00 

0 200000+01 

0.0 

24 

0 o 

0.0 

0 0 

0 

0 

0 

0 

0.0 

0 120000+01 

0 200000+01 

0 0 

25 

0.0 

0 0 

0.0 

0 

0 

0 

0 

0 0 

0. 16000D+01 

0 200 OOD  + O 1 

0.0 

26 

0 0 

0 0 

0 0 

0 

0 

0 

0 

O.o 

0 0 

0 26000D+0 1 

0 0 

27 

0.0 

0.0 

0 o 

0 

0 

0 

0 

0.0 

0 40000U+00 

0 26000D+0 1 

0.0 

28 

0.0 

0 0 

0.0 

0 

0 

0 

0 

0.0 

0 800000+00 

0 . 28000D+0 1 

0.0 

29 

0.0 

0.0 

0 0 

0 

0 

0 

0 

O.o 

0 12000D+01 

0 260000+01 

0 0 

30 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0 0 

0 16000D+OI 

0 26000D+0 1 

0.0 

31 

0.0 

0 0 

0 0 

0 

0 

0 

0 

O.o 

0 0 

0 300000+01 

0.0 

32 

0 0 

0 0 

0.0 

0.0 

0 

0 

0.0 

0 400000+00 

0 30000D+01 

0.0 

33 

0 0 

0 0 

0 0 

0 

0 

0 

0 

0.0 

0 600000+00 

0 300000+01 

0.0 

34 

0.0 

0 0 

0.0 

0 

0 

0 

0 

0 0 

0. 120000+01 

0. 300000+01 

0.0 

35 

0.0 

0.0 

0.0 

0 

0 

0 

0 

0 0 

0.160000+01 

0 30000D+0I 

0.0 

36 

0.0 

0.0 

0 0 

0 

0 

0 

0 

0.0 

0.0 

0.340000+01 

0.0 

37 

0.0 

0.0 

0 0 

0 

0 

0 

0 

0.0 

0.400000+00 

0.340000+01 

0.0 

332 


38 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

80000D+00 

0.340000+01 

0.0 

39 

0 0 

0.0 

0 0 

0.0 

0.0 

0.0 

0 

120000+01 

0.340000+01 

0.0 

40 

0.0 

0 0 

0.0 

0.0 

0 0 

0.0 

0 

16000D+01 

0.340000+01 

0.0 

41 

0.0 

0.0 

0 0 

0.0 

0 0 

0.0 

0 

0 

0.380000+01 

0.0 

42 

0 0 

0 0 

0.0 

0.0 

0.0 

0.0 

0 

4QQ00D+Q0 

0.380000+01 

0.0 

43 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 

800000+00 

0.380000+01 

0.0 

44 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 

120000+01 

0.38000D+01 

0.0 

45 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 

160000+01 

0.380000+01 

0.0 

46 

0 0 

0 0 

0.0 

0.0 

0 0 

0.0 

0 

0 

0.420000+01 

0.0 

47 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 

400000+00 

0 420000+01 

0.0 

48 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 

80000D+00 

0.420000+01 

0.0 

49 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0 

1 20000*0  t 

0 420000+01 

0.0 

50 

0 0 

0.0 

0.0 

0 0 

0 0 

0 0 

0 

160000+01 

0 420000+01 

0.0 

51 

0.0 

0.0 

0.0 

0 0 

0 0 

0 0 

0 

0 

0 480000+01 

0.0 

52 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0 

400000+00 

0 480000+01 

0.0 

53 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 

80000D+00 

0 480000+01 

0 0 

54 

0 0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 

1 2000D+01 

0.480000+01 

0.0 

55 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0 

160000+01 

0 480000+01 

0 0 

56 

0 0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 

0 

0 54000D+0 1 

0.0 

57 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 

400000+00 

0.540000+01 

0.0 

58 

0.0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 

800000+00 

0 54000D+0 1 

0 0 

59 

0.0 

0 0 

0.0 

0.0 

0 0 

0.0 

0 

1 20  OOD  + 0 1 

0 540000+01 

0.0 

60 

0 0 

0.0 

0.0 

0.0 

0 0 

0.0 

0 

160000+01 

0 54000D+0 1 

0.0 

61 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 

0 

0 600000+01 

0.0 

62 

0 0 

0 0 

0 0 

0.0 

0 0 

0.0 

0 

400000400 

0 600000+01 

0.0 

63 

0.0 

0.0 

0 0 

0.0 

0 0 

0.0 

0 

800000+00 

0 600000+01 

0.0 

64 

0 0 

0.0 

0 0 

0.0 

0 0 

0.0 

0 

120000+01 

0 600000+01 

0.0 

65 

0 0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 

160000+01 

0 600000+01 

0 0 

66 

0.0 

0.0 

0 0 

0.0 

0.0 

0.0 

0 

0 

0 640000+01 

0.0 

67 

0 0 

0.0 

0.0 

0 0 

0.0 

0 0 

0 

400000+00 

0 640000+01 

0.0 

68 

0 0 

0.0 

0.0 

0.0 

0.0 

0 0 

0 

80000D+00 

0 640000+01 

0.0 

69 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0 

120000+01 

0 640000+01 

0.0 

w 70 

0 0 

0 0 

0.0 

0 0 

0 0 

0 0 

0 

160000+01 

0 640000+01 

0.0 

8 71 

0.0 

0 0 

0.0 

0.0 

0 0 

0 0 

0 

0 

0.600000+01 

0.0 

72 

0 0 

0 0 

o o 

0.0 

0 0 

0 0 

0 

400000+00 

0 . 600  OOD  + 0 1 

0.0 

73 

0 0 

0 0 

0 0 

0 0 

0 0 

0 0 

0 

600000+00 

0.680000+01 

0.0 

74 

0 0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 

120000+01 

0.680000+01 

0.0 

75 

0 0 

0 0 

0 0 

0 0 

0.0 

0.0 

0 

160000+01 

0 . 68000D+0 1 

0.0 

FRAGMENT  GL08AL 

LOCATION 

AND  VELOCITY 

COMPONENTS 

X-LOC  Y-LOC  Z-LOC  VEL-X  VTL-Y  VEL-Z  OMEGA-X  OMEGA-Y  OMEGA-Z 

0 8000000+00  0.339721D+01  -0  6050390+00  0 0 O.I39700D+04  0.24)9670+04  0 1650000+04  0.0  0.0 


STRAIN  COMPONENTS,  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 


EPS- 

X STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

PRINC. 

STRAIN(T) 

DIRECTI  ON (DEG.) 

NODE 

INNER 

OUTER 

INNER 

OUTER 

INNER  OUTER 

INNER 

outer 

INNER 

OUTER 

38 

0.0 

0.0 

0.0 

0.0 

0.0 

0 0 

0 0 

0 

0 

0.4500D+02 

0.45000+02 

39 

0.0 

0.0 

0.0 

0 0 

0.0 

0 0 1 

0.0 

0 

0 

0.45000*02 

0 45000+02 

43 

0 0 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 

0 

0.45000*02 

0.4500D+02 

44 

0 0 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 

0 

0.4500D*02 

0.45000+02 

43 

0 0 

0.0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 

0 

0.45000+02 

0.4500D+02 

49 

0 0 

0 0 

0.0 

0 0 

0 0 

0.0 

0.0 

0 

0 

0.45000+02 

0.45000+02 

53 

0.0 

0 0 

0.0 

0 0 

0 0 

0 0 

0 0 

0 

0 

0 4500D*Q2 

0.45000+02 

54 

0.0 

0.0 

0.0 

0 0 

0 0 

0 0 

0.0 

0 

0 

0.45000+02 

0.4500D+02 

STRAIN 

COMPONENTS, 

PRINCIPAL(TENSILE)  STRAIN  AND  DIRECTION, 

and  elongations  at 

specified  additional  points 

POINT  NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (DIR. 1) 

ELONG. (DIR. 2) 

PRINC. 

STRN(T)  DIRECTION(DEG.) 

1 

INNER 

0 0 

0 .0 

0.0 

0 0 

0.0 

0 0 

0 45000D+02 

1 

OUTER 

0.0 

0 0 

0.0 

0.0 

0.0 

0 0 

0.45000D+02 

2 

INNER 

0 0 

0.0 

0.0 

0.0 

0.0 

0 0 

0. 450000+02 

2 

OUTER 

0.0 

0.0 

0.0 

0 0 

0.0 

0 0 

0.45000D+02 

3 

INNER 

0 0 

0 .0 

0 0 

0 0 

0 0 

0 0 

0. 450000+02 

3 

OUTER 

0 0 

0.0 

0 0 

0.0 

0 0 

0.0 

0.450000+02 

4 

INNER 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.450000+02 
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4 OUTER  0.0  0.0 

0.0 

0.0 

0.0 

0.0 

0. 450000+02 

SYSTEM  ENERGIES(IN-LB) 

frag,  translational  kinetic  energy  ■ 
frag,  rotational  kinetic  energy 
WORK  INPUT  to  structure  . 

STRUCTURE  KINETIC  ENERGY  • 

Structure  elastic  energy 

STRUCTURE  PLASTIC  ENERGY  « 

Energy  stored  in  elastic  restraints- 

0.14891280+04 

0.5194530D+02 

0.0 

0.0 

0.0 

0.0 

0.0 

I NCR.  NO . « 2 TIME-  0. WOOD-OS  SEC. 


NODE  U V W PSIX 


1 0 0 

0 0 

0.0 

o.o 

2 0 0 

0 0 

0 0 

0.0 

3 0 0 

0 0 

0.0 

0.0 

4 0 0 

0 0 

0 0 

0.0 

5 0 0 

0 0 

0 0 

0 0 

6 0.0 

0 0 

0 0 

0 0 

7 0 0 

0.0 

0.0 

0.0 

0 0.0 

0 0 

0.0 

0.0 

9 0 0 

0 0 

0.0 

0 0 

10  0 0 

0 0 

0.0 

0 0 

11  0 0 

0 0 

0 0 

0.0 

12  0.0 

0 0 

0,0 

0.0 

13  0 0 

0 0 

0 0 

0 0 

14  0 0 

0 0 

0 0 

0 0 

15  0 0 

0 0 

0.0 

0.0 

18  0 0 

0 0 

0.0 

0.0 

17  0 0 

0 0 

0 0 

0 0 

18  0.0 

0 0 

0.0 

0 0 

19  0 0 

0 0 

0 0 

0.0 

20  0 0 

0.0 

0 0 

0 0 

21  0 0 

0 0 

0 0 

0 0 

22  0 0 

0 0 

0 0 

0.0 

23  0 0 

0 0 

0 0 

0 0 

24  0.0 

0 0 

0 0 

0 0 

25  0 0 

0 0 

0 0 

0 0 

26  0 0 

0.0 

0 0 

0.0 

27  0.0 

0.0 

0.0 

0 0 

28  0 0 

0 0 

0 0 

0 0 

29  0 0 

0.0 

0.0 

0 0 

30  0.0 

0 0 

0 0 

0 0 

31  0.0 

0.0 

0 0 

0 0 

32  0.0 

0.0 

0.0 

0 0 

33  0.0 

0.0 

0 0 

0 0 

34  0 0 

0.0 

0 0 

0 0 

35  0 0 

0 0 

0 0 

0 0 

36  0.0 

0.0 

0 0 

0 0 

37  0 0 

0.0 

0 0 

0 0 

38  0.0 

0 0 

0 0 

0 0 

39  0 0 

0 0 

0 0 

0 0 

40  0 0 

0 0 

0 0 

0 0 

41  0.0 

0.0 

0 0 

0 0 

42  0 0 

0 0 

0 0 

0 0 

43  0.0 

0 0 

0 0 

0 0 

44  0 0 

0.0 

0.0 

0.0 

45  0.0 

0 0 

0 0 

0 0 

46  0.0 

0.0 

0 0 

0 0 

47  0.0 

0.0 

0 0 

0 0 

48  0.0 

0 0 

0 0 

0 0 

49  0.0 

0 0 

0 0 

0 0 

50  0.0 

0 0 

0 0 

0 0 

51  0 0 

0 0 

0 0 

0 0 

52  0.0 

0.0 

0 0 

0 0 

PSIY 

twist 

X-POS. 

Y-POS. 

Z-POS. 

0.0 

0.0 

0 

0 

0 

0 

0.0 

0 0 

O.o 

0 

40000D+00 

0 

0 

0.0 

0 0 

0.0 

0 

800000+00 

0. 

0 

0.0 

0.0 

0.0 

0 

1 20000+01 

0 

0 

0.0 

0 0 

0.0 

0 

160000+01 

0 

0 

0.0 

0 0 

0.0 

0 

0 

0 

400000+00 

0.0 

0 0 

0.0 

0 

400000+00 

0 

400000+00 

0.0 

0 0 

0.0 

0 

800000+00 

0 

400000+00 

0.0 

0 0 

0 0 

0 

1 2000D+01 

0 

400000+00 

0 0 

0.0 

0.0 

0 

16000D+01 

0 

400000+00 

0.0 

0 0 

0.0 

0 

0 

0 

800000+00 

0.0 

0 0 

0 0 

0 

400000+00 

0 

800000+00 

0.0 

0.0 

0 0 

0 

800000+00 

0 

800000+00 

0.0 

0 0 

0.0 

0 

120000+01 

0 

800000+00 

0.0 

0.0 

0 0 

0 

16000D+01 

0 

800000+00 

0.0 

0 0 

0 0 

0 

0 

0 

1 4000D+0 1 

0.0 

0 0 

0 0 

0 

400000+00 

0 

140000+01 

0.0 

0.0 

0 0 

0 

800000+00 

0 

140000+01 

0.0 

0 0 

0 0 

0 

1 2000D+0 1 

0 

140000+01 

0.0 

0 0 

0 0 

0 

1 6000D+01 

0 

140000+01 

0.0 

0 0 

0.0 

0 

0 

0 

200000+01 

0.0 

0 0 

0.0 

0 

400000+00 

0 

200000+01 

0.0 

0 0 

0 0 

0 

800000+00 

0 

200000+01 

0.0 

0 0 

0.0 

0 

120000+01 

0 

200000+01 

0.0 

0 0 

0 0 

0 

160000+01 

0 

200000+01 

0.0 

0 0 

0 0 

0 

0 

0 

260000+01 

0 0 

0 0 

0 0 

0 

400000+00 

0 

26000D+0 1 

0.0 

0.0 

0 0 

0 

000000+00 

0 

260000+01 

0.0 

0 0 

0.0 

0 

120000+01 

0 

260000+01 

0.0 

0.0 

0 0 

0 

1 6000D+01 

0 

260000+01 

0.0 

0 0 

0.0 

0 

0 

0 

300000+01 

0.0 

0 0 

0 0 

0 

400000+00 

0 

300000+01 

0 0 

0 0 

0.0 

0 

800000+00 

0 

300000+01 

0 0 

0.0 

0.0 

0 

1 2000D+01 

0 

300000+01 

0.0 

0 0 

0 0 

0 

160000+01 

0 

300  OOD  + 0 1 

0 0 

0.0 

0 0 

0 

0 

0 

340000+01 

0 0 

0 0 

0 0 

0 

400000+00 

0 

340000+01 

0.0 

0 0 

0 0 

0 

800000+00 

0 

34000D+01 

0 0 

0 0 

0.0 

0 

120000+01 

0 

340000+01 

0 0 

0 0 

0 0 

0 

160000+01 

0 

340000+01 

0 0 

0 0 

0.0 

0 

0 

0 

300000+01 

0.0 

0 0 

0 0 

0 

400000+00 

0 

380000+01 

0.0 

0 0 

0 0 

0 

800000+00 

0 

300000*01 

0.0 

0 0 

0 0 

0 

120000+01 

0 

380000+01 

0 0 

0 0 

0.0 

0 

1 6000D+0 1 

0 

38000D+0 1 

0 0 

0 0 

0 0 

0 

0 

0 

42000D+0 1 

0.0 

0 0 

0.0 

0 

400000+00 

0 

42000D+0 1 

0.0 

0.0 

0.0 

0 

800000+00 

0 

420000+01 

0.0 

0 0 

0.0 

0 

1 2000D+0 1 

0 

420000+01 

0.0 

0 0 

0.0 

0 

160000+01 

0 

420000+01 

0.0 

0 0 

0.0 

0 

0 

0 

480000+01 

0.0 

0.0 

0.0 

0 

400000+00 

0 

480000+01 

0.0 
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53 

0.0 

0.0 

0.0 

0.0 

0 

0 

0.0 

0 800UOD+00 

0. 

.480000+01  0.0 

54 

0.0 

0.0 

0 0 

0.0 

0, 

1 0 

0.0 

0 1 20000+01 

0, 

.480000+01  0.0 

55 

0.0 

0.0 

0.0 

0.0 

0 

0 

0.0 

0.16000D+01 

0 

480000+01  0.0 

58 

0 0 

0.0 

0.0 

0.0 

0. 

. 0 

0.0 

0.0 

0. 

.54000D+OI  0.0 

57 

0 0 

0 0 

0.0 

0.0 

0 

0 

0.0 

0.40000D+00 

0 

54000D+01  0.0 

59 

0 0 

0 0 

0.0 

0 0 

0 

0 

0.0 

0 800000+00 

0 

540000+01  0.0 

59 

0.0 

0 0 

0.0 

0.0 

0 

0 

0.0 

0.120000+01 

0 

540000+01  0.0 

60 

0 0 

0 0 

0.0 

0 0 

0. 

. 0 

0 0 

0 16000D+01 

0 

540000+01  0.0 

61 

0 0 

0 0 

0 Q 

0 0 

0 

0 

o.o 

0 0 

0 

600000+01  0.0 

62 

0 0 

0 0 

0 0 

0 0 

0. 

. 0 

0.0 

0 400000+00 

0 

60000D+0 1 0.0 

63 

0 0 

0 0 

0 0 

0 0 

0 

0 

0.0 

0.800000+00 

0 

600000+01  0.0 

64 

0 0 

0 0 

0.0 

0 0 

0 

0 

0.0 

0 120000+01 

0 

60000D+01  0 0 

65 

0.0 

0 0 

0.0 

0.0 

0 

0 

0.0 

0 1 6000D+0 1 

0 

60000D+0 1 0.0 

66 

0 0 

0 0 

0.0 

0 0 

0 

0 

0-0 

0 0 

0 

64000D+0 1 0 0 

67 

0 0 

0 0 

0 0 

0.0 

0 

0 

0.0 

0 400000+00 

0 

64000D+0 1 0.0 

68 

0 0 

0 0 

0 0 

0 0 

0 

0 

0.0 

O.OOOOOD+OO 

0 

64000D+OI  0.0 

69 

0.0 

0 0 

0 0 

0.0 

0 

0 

0 0 

0 1 2000D+0 1 

0 

64000D+01  0.0 

70 

0 0 

0.0 

0 0 

0 0 

0 

0 

0.0 

0 16000D+01 

0 

64000D+0 1 0.0 

71 

0.0 

0.0 

0 0 

0.0 

0 

0 

0 0 

0.0 

0 

6B000D+0I  0.0 

72 

0.0 

0 0 

0.0 

0 0 

0 

0 

0.0 

0.400000*00 

0 

680000+01  0.0 

73 

0 0 

0.0 

0 0 

0.0 

0 

0 

0.0 

0 600000+00 

0 

68000D+01  0.0 

74 

0.0 

0.0 

0.0 

0 0 

0 

0 

0 0 

0 . 1 2000D+01 

0. 

,680000+01  0.0 

75 

0 0 

0 0 

0.0 

0.0 

0. 

0 

0.0 

0. 16000D+0I 

0. 

,680000+01  0.0 

FRAGMENT  GLOBAL  LOCATION  AND 

VELOCITY  1 

COMPONENTS 

X-LOC 

Y-LOC 

z 

-LOC 

VEL 

-X 

VEL-Y 

VEL-2 

: OMEGA 

i-X 

OMEGA-Y  OMEGA-) 

0.8000000+00  0. 

3400000+01 

-0.6002000+00 

0 0 

0 

1397000+04 

0.2419670+04  0.1650000+04 

0.0  0.0 

STRAIN  COMPONENTS, 

PRINCIPAL 

(TENSILE) 

STRAIN  AND  DIRECTION 

AT 

USER-SPEC IFIEO  NODES 

EPS- 

X STRAIN 

EPS- 

Y STRAIN 

SHEAR  STRAIN 

PRINC.  STRAIN) T ) DI RECTION (DEG 

NODE 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER  INNER  OUTER 

38 

0.0 

0.0 

0 0 

0 0 

0.0 

0 0 

0.0 

0.0 

0.45000+02  0.4500D+02 

39 

0.0 

0.0 

0 0 

0 0 

0 0 

0 0 

0.0 

0 0 

0.45000+02  0.4500D+02 

43 

0 0 

0.0 

0.0 

0.0 

0.0 

0 0 

0 0 

0.0 

0.4500D+02  0.4500D+02 

44 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 0 

0.4500D+02  0.4500D+02 

48 

0 0 

0 0 

0.0 

0 0 

0.0 

0 0 

0.0 

0 0 

0.4500D+02  0.4500D+02 

49 

0.0 

0 0 

0.0 

0 0 

0.0 

0 0 

0.0 

• 0.0 

0 45000+02  0.4500D+02 

53 

0.0 

0.0 

0.0 

0.0 

0 0 

0.0 

0.0 

0 0 

0. 45000+02  0.4500D+02 

54 

0.0 

0.0 

0.0 

0.0 

0 0 

0 0 

0.0 

0 0 

0.4500D+02  0.4S00D+02 

STRAIN  COMPONENTS, 

PR INC  I PAL (TENS I LE  ) 

STRAIN  ANO 

DIRECTION, 

ANO  ELONGATIONS 

AT  SPECIFIED  ADDITIONAL  POINTS 

POINT 

NO. 

SURFACE 

EPS-X  STRAIN  EPS- 

Y STRAIN  SHEAR 

STRAIN  ELONG 

(DIR. 1 ) 

ELONG. (DIR. 2)  PRINC. 

STRN(T)  DIRECTI ON (DEG.) 

t 

INNER 

0 

0 

0.0 

0.0 

0 0 

0.0 

0 0 

0 450000+02 

1 

OUTER 

0. 

,0 

0.0 

0.0 

0.0 

0.0 

0 0 

0.45000D+02 

2 

INNER 

0 

0 

0 .0 

0 0 

0 0 

0.0 

0 0 

0.450000+02 

2 

OUTER 

0. 

,0 

0.0 

0 0 

0 0 

0 0 

0.0 

0.450000+02 

3 

INNER 

0 

0 

0.0 

0.0 

0 0 

0.0 

0 0 

0.450000+02 

3 

OUTER 

0 

0 

0.0 

0 0 

0.0 

0.0 

0.0 

0. 450000+02 

4 

INNER 

0 

0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.45000D+02 

4 

OUTER 

0 

0 

0.0 

0 0 

0.0 

0.0 

0.0 

0.45000D+02 

SYSTEM  ENERGIES(IN-LB) 

FRAG  TRANSLATIONAL  KINETIC  ENERGY  » 0 14891280+04 

FRAG.  ROTATIONAL  KINETIC  ENERGY  . 0 S194S300+02 

WORK  INPUT  TO  STRUCTURE  - 0.0 

STRUCTURE  KINETIC  ENERGY  « 0.0 

STRUCTURE  ELASTIC  ENERGY  « 0.0 

STRUCTURE  PLASTIC  ENERGY  • 0.0 

ENERGY  STORED  IN  ELASTIC  RESTRAINTS-  0.0 


IMPACT  CYCLE-  2 

SUBREGIONS  PENETRATED:  S 
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1 


1 


) 


I 


l 


POINT  OP  EFFECTIVE  IMPACT( XA. YA . 2A)-  0.80000000+00  0.34027940+01  -0.15265570-15 

THIS  IS  IMPACT  NUMBER  1 


- INCR.  NO.- 

3 TIME.  0 

.60000-05  SEC 

• 

NODE 

U 

V 

w 

PSIX 

PSIY 

TWIST 

X-POS . 

Y-POS. 

Z-POS. 

1 

0 0 

0 0 

0.0 

0 0 0 

0 

0.0 

0 0 

0.0 

0.0 

2 

0 0 

0.0 

0.0 

0.0  0 

0 

0 o 

0.4000004-00 

0.0 

0.0 

3 

0.0 

0 0 

0 0 

0.0  0 

0 

0 0 

0 8000004-00 

0.0 

0.0 

4 

0.0 

0 0 

0.0 

0 0 0 

0 

o.o 

0.120000+01 

0.0 

0.0 

5 

0 0 

0 0 

0.0 

0.0  0 

0 

0.0 

0. 16000D+01 

0 0 

0.0 

6 

0.947520-08 

0 1991 3D-07 

0 92643D-O0 

0 217560-06  -0 

529540-07 

0 474970-05 

0. 947520-08 

0 400000+00 

0 926430-08 

7 

0 963410-09 

0 181710-07 

0.51 5350-08 

0 664000-07  -0 

221580-07 

0 . 19535D-05 

0 400000+00 

o'  40000D+00 

0 51535D-08 

8 

0.496310-23 

0.191270-07 

0 135480-08 

-0  548780-19  -0 

517140-07 

-0  18I16D-17 

0 800000+00 

0 400000+00 

0 135480-08 

9 

-0  963410-09 

0.181710-07 

0 51 5350-00 

-0  664000-07  -0 

221580-07 

-0.195350-05 

0 1 20000+01 

0 400000+00 

0 515350-08 

10 

“0  94752D-08 

0 199130-07 

0 92643D-08 

-0  217560-06  -0 

529540-07 

-0 . 47497D-05 

0. 1 6000D+0 1 

0 400000+00 

0.926430-08 

11  0 142790-07  0 567080-07  -0  384560-07  0 242230-06  -0  132600-05  0 229440-04  0 14279D-07  0 80000D+00  -0  38456D-07 

12  0 8003  6D-0Q  0 927210-07  -0.585470-07  0 4 16820-06  -0  820530-06  0 15600D-04  0.40000D+00  0 800000+00  -0  585470-07 

13  0 992620-23  0 322130-07  -0  111270-06  -0  143850-18  -0  710640-06  -0  746010-17  0 800000+00  0 800000+00  -0.111270-06 

14  -0  800360-08  0 927210-07  -0  585470-07  -0  416820-06  -0.820530-06  -0  15600D-04  0.120000+01  0 80000D+00  -0  585470-07 

15  -0  142790-07  0 567000-07  -0  384560-07  -0  242230-06  -0  132600-05  -0  229440-04  0 I6000D+0I  0 SOOOODtOO  -0  38456D-07 

16  -0  183930-06  0 596560-06  0 125120-06  0 455640-05  0 395440-05  0 726030-04  -0  18393D-06  0 I40000t01  0 125120-06 

17  -0  142550-06  0 21 974D-06  0 495360-06  0 449730-05  0 599620-05  0 633080-04  0 400000+00  0 140000t01  0 495360-06 

18  0 26470D-22  0 743180-06  0 144320-05  -0.751240-18  0 928070-05  -0  245100-16  0 800000+00  0 140000+01  0.144320-05 

19  0 1 425 5D-06  0 219740-06  0.495360-06  -0  449730-0S  0 599620-05  -0.633080-04  0.120000  + 01  0 140000+01  0 495360-06 

20  0 183930-06  0 59656D-06  0 125120-06  -0  455640-05  0.395440-05  -0  726830-04  0 160000+01  0.140000+01  0 125120-06 

21  0 316400-05  0 623560-05  0 266620-05  0 137110-04  0 216820-04  0 858300-04  0 316400-05  0 20000DIOI  0.266620-05 

22  -0  426090-06  0 219970-05  -0  301610-05  -0  169400-04  -0  658430-04  0.418070-04  0 400000+00  0 20000D+0I  -0  301610-05 

23  0.423520-21  -0  34230D-05  -0  148400-04  -0.282190-17  -0  129570-03  -0.117230-15  0 800000+00  0 200000+01  -0  140400-04 

24  0 426890-06  0 21997D-05  -0  301610-05  0 169400-04  -0  650430-04  -0.416670-04  0 120000+01  0.200000+01  -0.30I61D-05 

25  -0  316400-05  0 623560-05  0 266620-05  -0  137110-04  0 216820-04  -0  050380-04  0 160000+01  0 200000+01  0.266620-05 

26  0 197510-04  0 181940-04  -0  16565D-04  -0.190990-03  -0.243420-03  0 135790-03  0 197510-04  0 260000+01  -0.16565D-04 

27  0 201040-04  0 35840D-04  -0  457690-04  0 112160-03  -0  569730-04  0 36t36D-02  0 40002D+00  0 260000+01  -0  457690-04 

28  0 571750-20  -0  3032ID-05  -0.473180-04  -0  346610-17  0 623310-03  -0.267690-15  0 800000+00  0.260000+01  -0.473180-04 

29  -0.204040-04  0 358480-04  -0  457690-04  -0.112160-03  -0  569730  04  -0.36I3GO-02  0 120000+01  0.260000+01  -0.457690-04 

30  -0  19751 D-04  0.181940-04  -0  165650-04  0 190990-03  -0  243420-03  -0  135790-03  0 160000+01  0 260000+01  -0  165650-04 

31  0 2460  ID-04  0 106480-04  -0  975660-04  -0  32879D-03  -0  301270-03  0 523170-02  0 246010-04  0 30000D+01  -0.97566D-04 

32  0 6319  ID-04  0 935280-04  0 253260-03  0 366730-02  0 283459-02  0 274630-01  0.40006D+00  0 3000ID+01  0 25326D-03 

33  -0  995260-20  0.444150-03  0 178S3D-02  0 140570-16  0 999690-02  -0  118610-14  0 800000+00  0.300040+01  0 17B58D-02 

34  -0  634910-04  0 935280-04  0.253260-03  -0  366730-02  0 283450-02  -0.274630-01  0 119990+01  0 300010+01  0 253260-03 

35  -0  246010-04  0 106480-04  -0  975660-04  0 328790-03  -0  301270-03  -0  523170-02  0 160000+01  0 300000+01  -0.975660-04 

36  -0.467480-05  0 101440-04  -0  107000-03  0 204110-03  -0  992410-05  0 215690-04  -0  46748D-05  0 340000+01  -0  107000-03 

37  -0  174340-04  0 897060-04  0 120410-02  0 916670-02  0 102960-03  0 84106D-03  0 399900+00  0 340010+01  0 120410-02 

38  0 3798  40-20  0 125900-02  0 720280-02  0 677630-16  0 105070  02  -0  299070-14  0 800000+00  0. 340130  + 01  0 72028D-02 

39  0 17434D-04  0 897000-04  0 120410-02  -0  916670-02  0 102960-03  -0  84I06D-03  0.120000+01  0 340010tQi  0 120410-02 

40  0 467100-05  0 101440-04  -0  107000-03  -0  204110-03  -0  992410-05  -0  21569D-04  0 160000+01  0 340000+01  -0  10700D-03 

41  -0  265  2 8D-C4  0 137320-04  -0  100980-03  -0  334090-03  0 300383  03  -0  53417D-02  -0  265200-04  0.380000*01  -0  100900-03 

42  -0  565310-04  0 941390-04  0 276370-03  0 393480-02  -0  293330  02  -0  2B253D-01  0 399940*00  0 38001D+0!  0 276370-03 

43  0 239290-19  0 921320-04  0 135340-02  -0  395730-16  -0  1C0500  01  0.114420-14  0 800000+00  0 380010+01  0 195340-02 

44  0 585310-04  0 941390-04  0.276370-03  -0  393480-02  -0  29333002  0 282530-01  0 t20010+0t  0 300010+01  0 276370-03 

45  o 265280-04  0 137320-04  -0  100900-03  0 334090-03  0 300389  03  0 534170-02  0 I6000D+0I  0 SBOOODtOI  -0  100900-03 

46  -0  14026D-04  0 183090-04  -0  177160-04  -0  205000-03  0 255730  03  -0  1200GD-03  -0  I4026D-04  0 42000D+0I  -0  177160-04 

47  -0 . 4696  70-05  0 229450-04  -0  465170-04  0 1 12330-03  0 27J07Q-O4  -0.39I35D-02  0 40000D+00  0 42000Dt01  -0.485170-04 

48  -0  34513D-20  0 102600-03  -0  5C3c30-04  -0  9G7c50-17  -0  857850-03  0 24903D-15  0 800000+00  0 420010+01  -0.509830-04 

49  0 469670-05  0 229450-04  -0  465170-04  -0  112330-03  0 273070  04  0.391360-02  0 120000+01  0 42000D+0I  -0.40517D-04 

50  0.140260-04  0.133090-04  -0  177160-04  0 205000-03  0 255730-03  0 120060-03  0 I6000D+0I  0 42000D+OI  -0  177160-04 

51  -0  23S95D-05  0 422610-05  0 299C50-05  0 143+30-04  -0  231660-04  -0  60475D-04  -0  235950-05  0.48000D+01  0.29905D-05 

52  -0  374160-05  0.750000-05  -0  404150-05  -0  263900-04  0 829720-04  0 55755D-04  0 40000D+00  0 480000+01  -0  40415D-05 

53  0 595570-21  0.162920-04  -0  193360-04  -0  427750-18  0 144960  03  0 700B7D-16  0 80000D+00  0 480000+01  -0.193360-04 

54  0 374160-05  0.750800-05  -0  404150-05  0 283900-04  0 829720-04  -0  557550-04  0.120000+01  0.4B000D+01  -0  404150-05 

55  0 235950-05  0 422610-05  0 299050-05  -0. 143430-04  -0  221660-04  0 60475D-04  0 160000+01  0 480000+01  0.29905D-05 

56  -0  9I199D-06  0 135930-05  0 179320-06  0 518490-05  -0  536:00-05  -0.717440-04  -0  911990-06  0 540000+01  0.179320-06 

57  -0  446580-06  0 140160-05  0 55SE3D-0G  0 313010-05  -0  652690-05  -0.455280-04  0 400000+00  0 540000+01  0 53U53D-06 

58  -0  198520-21  0 8IIQ0D-06  0 146590-05  -0  887520-18  -0  114500-04  0.35B53D-16  0 800000+00  0.540000+01  0. +48590-05 

59  0 446500-06  0.140160-05  0 550530-06  -0  343010-05  -0  659690-05  0 455280-04  0 120000+01  0.540000+01  0.558530-06 

60  0.911990-06  0.135990-05  0 179320-06  -0.518490-05  -0  538580-05  0.717440-04  0.160000+01  0.540000+01  0.179320-06 


61  -0  971070-07  0.28B11D-06  -0  477440-07  0 196530-06  0 140620-05  -0.21553D-04  -0.97107D-07 

62  -0  211 0 0D-07  0 18578D-06  -0  713180-07  0.228430-06  0.99607D-06  -0.113040-04  0.40000D+00 

63  0.335010-22  0 24343D-06  -0  145020-06  -O.10677D-18  0.67754D-06  0.10526D-16  0.80000D+00 

64  0 21180D-07  0 18578D-06  -0  713180-07  -0  228430-06  0 99607D-06  0.1  1304D-04  0. 120000+01 

65  0 971070-07  0 288110-06  “0  477440-07  -0  196530-06  0 148620-05  0.21553D-04  0.16000D+01 

66  -0  18817D-07  0 66375D-07  0 10832D-07  0 206390-06  0 332060-07  -0.42535D-05  -0.18817D-07 

67  -0.618080-08  0 53457D-07  0 639380-08  0 30544D-07  0 135090-07  -0.135610-05  0.40000D+00 

68  0.708270-23  0 508150-07  -0.49228D-08  -0.573150-19  0 46232D-07  0 177500-17  0.80000D+00 

69  | 0.618080-08  0.53457D-07  0639380-08-0.305440-07  0.13509D-07  0.13561D-05  0.12000D+01 

70  0 18817D-07  0 66375D-07  0 10832D-07  -0.20639D-06  0 33206D-07  0.425350-05  0.16000D+01 

71  0.0  0.0  00  00  0.0  0.0  0.0 

72  0 0 00  00  0.0  0 0 0.0  0.40000D+00 

73  0.0  00  00  00  0.0  0.0  0.80000D+00 

74  0.0  0.0  0 0 0.0  0.0  0.0  0.12000D+01 

75  0.0  0.0  0 0 0.0  0.0  0.0  0.16000D+01 


0.600000+01 
0.600000+01 
0.600000+01 
0.600000+01 
0.600000+01 
0 . 64000D+0 1 
0.640000+01 
0 . 64000D+0 1 
0.640000+01 
0 . 64000D+0 1 
0 . 68000D+0 1 
0.680000+01 
0.68000D+01 
0.680000+01 
0.68000D+01 


-0.47744D-07 
-0.71 318D-07 
-0.145020-06 
-0.7131 8D-07 
-0.47744D-07 
0. 10832D-07 
0.639380-08 
-0.49228D-08 
0 . 63938D-0B 
0. 10832D-07 
0.0 
0.0 
0.0 
0.0 
0.0 


FRAGMENT  GLOBAL  LOCATION  AND  VELOCITY  COMPONENTS 

X-LOC  Y-LOC  Z-LOC  VEL-X  VTL-Y  VEL-Z  OMEGA-X  OMEGA-Y  OMEGA-Z 

0.8000000+00  0. 3402730+01  -0  595705D+00  0.0  0 136252LH04  0.2247260+04  0.1822370+04  0.0  0.0 


STRAIN  COMPONENTS.  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 

EPS-X  STRAIN  EPS-Y  STRAIN  SHEAP  STRAIN  PRINC.  STRAIN(T)  DI RECT ION (DEG . ) 

NODC  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER  INNER  OUTER 

38  -0.1787D-01  0. 17960-01  -0.1523D-01  0 1435D-01  -05985D-15  0 5967D-15  0.0  0.1796D-01  0.0  0.4740D-11 

39  0 8889D-02  -0  8/920-02  -0.2079D-02  0 2082D-02  -0  1578D-02  -0.1241D-02  0.8945D-02  0.2117D-02  -0.4093D+01  -0.8674D+02 

43  -0  4175D-02  0 44680-02  0.5175D-02  -0  79480-02  0 2290D-15  -0.2234D-15  0.5175D-02  0.4468D-02  0.9000D+02  -0.5271D-12 

44  0. 23940-02  -0  2312D-02  0.1070D-02  -0  1228D-02  0 5548D-02  -0  5753D-02  0.4584D-02  0.1157D-02  0 3829D+02  -0.5033D+02 

48  0.771 60-04  -0.58660-04  0.8461D-03  -0  9638D-03  0 4937D-16  -0  4940D-16  0.8461D-03  0.0  0.9000D+02  0.0 

49  0.194  2D-04  0 1566D-04  -0  1982C-03  -0  5466D-05  0 60930-03  -0  9562D-03  0.23410-03  0.4833D-03  0.3517D+02  -0.4437D+02 

53  0.52520-04  -0  3381D-04  -0  23490-03  0 6528D-04  0 14010-16  -0  14020-16  0.5252D-04  0.65280-04  0.1396D-11  -0.9000D+02 

w 54  -0.89580-05  0 14860-04  -0  45530-04  0.9629D-05  -0  29770-04  -0  7471D-05  0.0  0.1680D-04  0.0  -0.2751D+02 

U) 

^STRAIN  COMPONENTS.  PR  INC  I PAL( T ENS I LE  ) STRAIN  AND  DIRECTION.  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT  NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (DIR.  1 ) 

ELONG. (DIR. 2) 

PRINC.  STRN(T) 

DIRECTION! DEG. ) 

1 

INNER 

-0  180740-02 

-0  36266D-02 

-0  89513D-02 

-0  72107D-02 

0.17571 0-02 

0 185020-02 

-0.392560+02 

1 

OUTER 

0.21 953D- 02 

0 .834950-03 

0. 1 14680-01 

0 . 72233D-02 

-0.422800-02 

0.72896D-02 

0 416180+02 

2 

INNER 

-0  180740-02 

-0  362660-02 

0.895130-02 

0 1/5710-02 

-0.721870-02 

0. 18502D-02 

0.39256D+02 

2 

OUTER 

0 219530-02 

0 834950-03 

-0  114630-01 

-0  422800-02 

0 . 72233D-02 

0.72896D-02 

-0.41 6180+02 

3 

INNER 

-0  121300-03 

0 185110-02 

-0.259850-02 

-0. 12130D-03 

0 . 18494D-02 

0.249600-02 

-0.63600D+02 

3 

OUTER 

0.281990-03 

-0 . 19955D-02 

0.291870-02 

0 28 1 95D-03 

-0.199750-02 

0 . 99429D-03 

0.260170+02 

4 

INNFR 

-0. 1 2130D-03 

0 1851  ID-02 

0.259B5D-02 

-0  12130D-03 

0. 18494D-02 

0.24960D-02 

0. 636000+02 

4 

OUTER 

0 281990-03 

-0  199550-02 

-0  291070-02 

0.281950-03 

-0 . 19975D-02 

0.99429D-03 

-0.26017D+02 

SYSTEM  ENERG IES( IN-LB) 

FRAG  TRANSLATIONAL  KINETIC  ENERGY  = 0 1317489D+04 
FRAG  ROTATIONAL  KINETIC  ENERGY  = 0 633G536D+02 
WORK  INPUT  TO  STRUCTURE  = 0 1602192D+03 
STRUCTURE  KINETIC  ENERGY  = 0 65230670+02 
STRUCTURE  ELASTIC  ENERGY  = 0 . 1 507899D+02 
STRUCTURE  PLASTIC  ENERGY  = 0 . 7990952D+02 
ENERGY  STORED  IN  ELASTIC  RESTRA  INTS=  0 . 332  4755D-04 
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) 


INCH.  N0.<=  140  T IME  = 0.28000-03  SEC. 


NODE 

U 

V 

W 

PSIX 

PSIY 

TWIST 

X-POS. 

Y-PDS . 

Z-POS. 

1 

0.0 

0 0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

0.0 

0.0 

0.0 

0.0 

0. 0 

0.0 

0.40000D+00 

0.0 

0.0 

3 

0.0 

0 0 

0.0 

0.0 

0 0 

0.0 

0.800000+00 

0.0 

0 . 0 

4 

0.0 

0.0 

0 0 

0 0 

0.0 

0.0 

0. 12000D+01 

0.0 

0.0 

5 

0.0 

0.0 

0.0 

0.0 

0. 0 

0.0 

0. 16000D+01 

0.0 

0.0 

6 

0 991960-03 

0 244000-02 

0.994010-02 

0.496700-02 

0 482660-01 

-0.320080-01 

0.991 96D-03 

0.40244D+00 

0.99401D-02 

7 

0 469030-03 

0 288910-02 

0.105680-01 

-0. 1 26820-02 

0 473660-01 

0 . 92273D-03 

0.40047D+00 

0 . 40289D+00 

0. 10568D-01 

8 

0 893560-04 

0 . 460  29D-02 

0 .99  245D-02 

-0.382510-04 

0 428510-01 

-0.861860-01 

0.800090+00 

0 . 40460D+00 

0.992450-02 

9 

-0.568060-03 

0.275530-02 

0. 104360-0 1 

-0. 1 4594D-03 

0 460130-01 

-0. 12171D-01 

0. 119940+01 

0.402760+00 

0.1 0436D-01 

10 

-0. 1081  90-02 

0.238350-02 

0.949520-02 

-0.564820-02 

0.466300-01 

0 .274130-01 

0. 159Q9D+01 

0 . 40238D+Q0 

0. 949520-02 

11 

0 . 2526 1 D-03 

0.267910-02 

0.233210-01 

0.221390-02 

0.438550-01 

-0.703630-02 

0.25261 D-03 

0.802680+00 

0 . 28321 D-01 

1 o 

r>  />cnmn-ni 

n mncn-m 

n •3Qinon-oi 

0 961 260—  02 

0 4iiam-oi 

-0 .633380-03 

0 . 40005D+00 

0. 803120+00 

0.29308D-01 
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13 

-0 

640370-04 

0 

38945D-02 

0 

297860-01 

-0 

378400-02 

0 

482660-01 

-0. 103630+00 

0 

799940+00 

0.803890+00 

0 

14 

-o 

122210-03 

0 

31S23D-02 

0 

235020-01 

-0 

195180-02 

0 

449300-01 

-0  147700-01 

0 

1 19990+01 

0.803150+00 

0 

15 

-o 

338010-03 

0 

258940-02 

0 

275520-01 

-0 

23408D- 02 

0 

437J1D-0I 

0.272000-02 

0. 

159970+01 

0.802590+00 

0 

16 

0 

179900-03 

0 

3C537D-02 

0 

518330-01 

0 

442220-02 

0 

363640-01 

-0 . 160440-02 

0 

1 7980D-03 

0 140310+01 

0 

17 

0 

6451  10-04 

0 

304600-02 

0 

537510-01 

0 

444490-02 

0 

392140-01 

0.653650-02 

0 

4CC06D+00 

0 140300+01 

0 

IQ 

0 

77478D-04 

0 

33495D-02 

0 

547790-01 

-0 

635040-03 

0 

476650-01 

-0. 12763D+00 

0 

800080+00 

0.140330+01 

0 

19 

0 

258790-04 

0 

302790-02 

0 

536300-01 

-0 

4 2469D-02 

0 

398750-01 

-0  *34960-01 

0 

1 2000D+0I 

0 140300+01 

0 

20 

-o 

79Q04D-04 

0 

29? 18D-02 

0 

51 8590-0 1 

-0 

393020-02 

0 

381450-01 

0 144480-02 

0 

1 5993D+01 

0 140290+01 

0 

21 

0 

595000-03 

0 

32050D-02 

0 

71 213D-01 

0 

1 15360-01 

0 

318340-01 

-0  301630-03 

0 

595880-03 

0 200320+01 

0 

22 

0 

470430-03 

0 

302220-02 

0 

75B66D-0 1 

0 

1 13370-01 

0 

356480-01 

0 11I73D-01 

0. 

400400+00 

0 200300+01 

0 

23 

0 

1 3aQ  70-03 

0 

31 389D-02 

0 

78  B76D-Q 1 

-0 

670130-03 

0 

453320-01 

-0 . 130680  + 00 

0 

800130+00 

0.2003 ID+Ot 

0 

24 

-o 

22389D-03 

0 

29576D-02 

0 

76336D-01 

-0 

961310-02 

0 

3G6650-01 

-0  184740-01 

0 

1 1998D+0I 

0 200300+01 

0 

25 

-o 

329760-03 

0 

30225D-02 

0 

722560-01 

-0 

1 02360-01 

0 

331730-01 

-0  175390-02 

0 

159970+01 

0 200300+01 

0 

26 

0 

7759  9D-03 

0 

201360-02 

0 

890140-01 

0 

210190-01 

0 

326250  01 

0 411010-02 

0 

775990-03 

0 260280+01 

0 

27 

0 

7253 10-03 

0 

31 1 570-02 

0 

972960-01 

0 

193040-01 

0 

386220  01 

0. 13B50D-0I 

0 

40073D+00 

0. 260310+01 

0 

28 

0 

249610-03 

0 

405000-02 

0 

1 0 2680+00 

0 

433130-02 

0 

4669GD-0I 

-0 . 119390  + 00 

0 

800250+00 

0 . 26040D+0 1 

0 

29 

-o 

376300-03 

0 

294310-02 

0 

985750-01 

-0 

1 93350-01 

0 

397190- 01 

-0  335440-01 

0 

1 199GD+0I 

0. 260290+01 

0 

30 

-o 

42  1710-03 

0 

265000  02 

0 

90  1800-01 

-0 

210560-01 

0 

327950-01 

-0  003100-02 

0 

1 59960*0 1 

0 260260+01 

0 

31 

0 

1 1 JO  00-03 

0 

219  160-02 

0 

1029  ID*  00 

0 

266 JGD-01 

0 

372310  01 

-0. 1431,30-02 

0 

113050-03 

0.300220*01 

0 

32 

0 

206640-03 

0 

271260-02 

0 

1 1 370D+00 

0 

294930-01 

0 

407710-01 

0 103740-01 

0 

400210+00 

0 300270+01 

0 

33 

0 

92 1 2 20-04 

0 

5SH40D-02 

0 

123600*00 

0 

573390-02 

0 

503250-01 

-0  709950-01 

0 

000090+00 

0 300560+01 

0 

34 

0 

949200-04 

0 

255840-02 

0 

1 1 4510*00 

-0 

287030-01 

0. 

395830-01 

-0.310570-01 

0 

120010*01 

0 300260+01 

0 

35 

0 

208360-03 

0 

201520-02 

0 

1 0 3990*00 

-0 

247410-01 

0 

350980-01 

-0. 175680-02 

0 

1 60020*01 

0.30020D+01 

0 

36 

-0 

089320-03 

0 

123/3D-02 

0 

1 1 6b00*00 

0 

2 J2G5D- 0 1 

0 

28IG5D-01 

-0  98305D-02 

-0 

809320-03 

0.310120+01 

0 

37 

-o 

642670-03 

0 

1 6J020-02 

0 

128470+00 

0 

349300-01 

0 

298620-01 

0 972450-02 

0 

399360+00 

0 340160+01 

0 

38 

0 

170790-03 

0 

350950-02 

0 

140510*00 

-0 

614080-07 

0 

321860-01 

0 425480-02 

0 

600170+00 

0.340360+01 

0 

39 

0 

956950-03 

0 

154530-02 

0 

120360+00 

-0 

349920-01 

0 

279510  01 

-0  1B5I9D-0I 

0 

120100*01 

0. 340150+01 

0 

40 

0 

121600-02 

0 

103310-02 

0 

1 1 6680+00 

-0 

23070D-0I 

0 

238580-01 

0 494710-02 

0 

160 1 20*01 

0 34010D+0I 

0 

41 

-0 

G5138D-0J 

-0 

107750-03 

0 

120540+00 

0 

259400-01 

-0 

761570-02 

0 .120600-01 

-0 

851300-03 

0 379990+01 

0 

42 

-0 

649870-03 

-0 

3039tD-03 

0 

132630+00 

0 

3 461 3D- 0 1 

-0 

100140-01 

-0.204710-01 

0 

399350+00 

0 379970+01 

0 

43 

0 

165900-03 

-0 

349190-02 

0 

143440+00 

-0 

874620-02 

-0 

173880-01 

-0  600590-01 

0 

800170+00 

0 37965D+0 1 

0 

44 

0 

0277 10-03 

-0 

5860ID-03 

0 

130950*00 

-0 

360 lQD-0 1 

-0 

1 3076D-0 1 

0 I5091D-0I 

0 

120080+01 

0 37994D+0I 

0 

45 

0 

905720-03 

-0 

2R53D-03 

0 

1 1 8290+00 

-0 

201690-01 

-0 

108940-01 

-0  1 2162D-0I 

0. 

160100*01 

0 379980+01 

0 

46 

-o 

391030-04 

-0 

66278D-03 

0 

1 1 6390>00 

0 

23321 D- 0 1 

-0 

120720-01 

-0  1 24B2D-01 

-0 

391030-04 

0.419930+01 

0 

47 

0 

796330-04 

-0 

1 173.0-02 

0 

126040+00 

0 

255060-01 

-0 

220130  01 

-0.401680-01 

0 

400080+00 

0.419880+01 

0 

40 

0 

733620-04 

-0 

324000-02 

0 

132200+00 

-0 

720930-02 

-0 

325230  01 

-0 .136540  + 00 

0 

000070+00 

0.419680+01 

0 

49 

-o 

5631 5D-04 

-0 

13173D-02 

0 

124050+00 

-0 

250930-01 

-0 

191930-01 

0.269870-01 

0 

119990+01 

0 4I9B7D+0I 

0 

50 

0 

346970-04 

-0 

71051D-03 

0 

1 1 4090+00 

-0 

244990-01 

-0 

106650-01 

0 110470-01 

0 

160000+01 

0 419930+01 

0 

51 

0 

230150-03 

-0 

13301D-C2 

0 

107530*00 

0 

392100-02 

-0 

264070  01 

-0  855110-02 

0 

230150-03 

0 47986D+0I 

0 

52 

0 

292630-03 

-0 

161 110-02 

0 

1 1 0030+00 

0 

771950-02 

-0 

333940-01 

-0.24254D-01 

0 

400290*00 

0. 479040+01 

0 

53 

0 

110380-04 

-0 

210640-02 

0 

1 1 2510+00 

0 

1 6 1 55D-02 

-o 

444570-01 

-0  I6006D+00 

0 

800010+00 

0 47979D+0I 

0 

54 

-o 

239050-03 

-0 

156260-02 

0 

109700+00 

-0 

909370-02 

-0 

321690-01 

0 241610-01 

0 

119980+01 

0.479840+01 

0 

55 

-0 

1 946  4D-03 

-0 

139930-02 

0 

106530+00 

-0 

535610-02 

-0 

237260-01 

0 9I7I0D-02 

0 

159900+01 

0 479B6D+0 1 

0 

56 

0 

129910-03 

-0 

172410-02 

0 

848430-01 

-0 

467870-02 

-0 

541470-01 

0 891200-02 

0 

129910-03 

0 . 53903D+0 1 

0 

57 

0 

466740-04 

-0 

21 1B3D-02 

o' 

841470-01 

0 

407990-04 

-0 

942070-01 

-0  122500-01 

0 

400050+00 

0 539790+01 

0 

58 

0 

342660-04 

-0 

281380-02 

0 

044Q5D-O1 

0 

1 GCU7D-02 

-0 

638050-01 

-0  160060+00 

0 

80003D+00 

0 539720+01 

0 

59 

0 

882490-04 

-0 

20008D-02 

0 

840250-01 

0 

6593G0-03 

-0 

5341  ID-01 

0.983180-02 

0 

120010+01 

0 539800+01 

0 

60 

0 

753740-05 

-0 

166300-02 

0 

057820-01 

0 

529260-02 

-0 

513389-01 

-0  738200-02 

0 

1 6000D+  0 1 

0 539030+01 

0 

61 

0 

535800-03 

-0 

21 328D-02 

c 

457900-01 

-0 

GG 1 760-03 

-o 

743390-01 

0 . 136030-01 

0 

535800-03 

0 599790+01 

0 

62 

0 

254600-03 

-0 

29o96D-02 

0 

458250-01 

0 

533220-03 

-0 

727290-01 

-0  1 1969D-01 

0 

400250+00 

0 59970D+0I 

0 

63 

0 

1499  ID-03 

“0 

432500-02 

0 

472010-01 

0 

550850-02 

-o 

770009-01 

-0  133760+00 

0 

800150+00 

0 59957D+0I 

0 

64 

0 

6421  ID-05 

-0 

281890-02 

0 

47245D-01 

-0 

360870-03 

-o 

729829-01 

-0  623630-02 

0 

120000+01 

0.599720+01 

0 

65 

-o 

275320-03 

-0 

201730-02 

0 

475040-01 

0 

1 76740-02 

-0 

750200-01 

-0  I9BQ4D-01 

0 

159970+01 

0 599000+01 

0 

66 

0 

135010-02 

-0 

265530-02 

0 

155460-01 

0 

669080-02 

-o 

744759-01 

0 40837D-01 

0 

135010-02 

0 63973D+01 

0 

67 

0 

77363D-03 

-0 

307330-02 

0 

163990-01 

-0 

434930-03 

-o 

721229  01 

-0  94422D-02 

p 

400770+00 

0 639690+01 

0 

68 

-o 

929380-04 

-0 

570590-02 

0 

156610-01 

0 

1 20200-03 

-0 

684980-01 

-0  105920+00 

0 

799910+00 

0 63943D+0 1 

0 

69 

-o 

618200-03 

-0 

317940-02 

0 

167040-01 

0 

257260-02 

-o 

743960-01 

-0  46922D-02 

0 

119940+01 

0 639680+01 

0 

70 

-0 

1 17470-02 

-0 

253770-02 

0 

1 6 362D-01 

-0 

560240-02 

-0 

77524D-0I 

-0  430240-01 

0 

159000+01 

0 639750+01 

0 

71 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0 

0 

0 

0.68000D+0t 

0 

72 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0 

0 

400000+00 

0 68000D+01 

0 

73 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0 

0 

800000+00 

0.680000+01 

0 

74 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

120000+01 

0 600000+0 1 

0 

75 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0 

0 

1 6000D+0 1 

0 680000+01 

0 

FRAGMENT  global  location  and  velocity  components 

X-LOC  Y-LOC  Z-LOC  VEL-X  VEL-Y  VEL-Z  OMEGA-X  OMEGA- 


.297860-0) 
. 28502D-0 } 
.275520-01 
.518330-01 
.537510-01 
.547790-01 
.536300-01 
.51 6G9D-0 1 
.712130-01 
.758660-01 
.788760-01 
763300-01 
.722550-01 
.890140-01 
972960-01 
. 102680+00 
985750-01 
904800-01 
1 Q294D+00 
113700*00 
123660*00 
. 114510*00 
103990*00 
. 116860*00 
.128470+00 
.140510+00 
.120360*00 
. 116680+00 
.120540+00 
. 132630  + 00 
.143440+00 
. 130950*00 
.118290+00 
.116390+00 
. I2G04D+00 
. 1 3220D+00 
.124050+00 
I 1 409D+00 
. 1 0753D+00 
110030+00 
. I 1 2510+00 
. 10970D+00 
. 106580+00 
.848480-01 
.041470-01 
.844850-01 
.848250-01 
.857820-01 
457900-01 
. 45025D-0 1 
472010-01 
.472450-01 
.475040-01 
. 155460-01 
. 16399D-01 
.156610-01 
. 167040-01 
.163820-01 
.0 
.0 
.0 
.0 
.0 


Y OMEGA-Z 


I 


I 


0. 8001430+00  0.3737910+01  -0 . 4S73 820+00  -0.7369830+00  0 . 1 2 1 6770*04  - 0 . 1 05726D+04 
STRAIN  COMPONENTS.  PRINCIPAL  (TENSILE)  strain  ano  direction  at  user-specified  nodes 


0. 2381090+04  0.1050220+00 


0. 1051820*01 


EPS-X  STRAIN 

NODE 

INNER 

OUTER 

38 

-0 

25080-01  0 

.29890-01 

39 

0 

85900-02  -0 

47470-02 

43 

-0 

2413D-01  0 

.27920-01 

44 

0. 

.621 7D-02  -0 

286  ID-02 

48 

-0. 

.141 10-01  0 

1383D-01 

49 

0 

12060-02  -0 

6264D-03 

53 

-0 

61980-02  0 

49720-02 

54 

0. 

.97660-03  -0. 

.13930-02 

EPS-Y  strain 
INNER  OUTER 

-0  20000-01  -0  16430-02 
-0  11480-01  0.44010-02 

-0  18740-01  O 20360-02 
-0  95000-02  0 25230-02 

0 40360-02  -0  52190-03 
-0  10600-02  -0  78500-03 
-0  38540-03  0 30870-02 

-0.31090-02  0 30050-02 


SHEAR  STRAIN 


INNER 
0.82700-03 
-0  69240-02 
-0.16330-01 
0 62700-02 
-0  27420-01 
0 78000-02 
-0  32040-01 
0 61540-02 


OUTER 
0 87490-03 
0 48370-03 
0 1569D-0I 
0 24290-03 
0 2720D-0I 
-0  29950-02 
0 31980-01 
-0  351 00-02 


PRINC.  STRAIN(T) 
INNER  OUTER 


0 0 

0 917  ID-02 
0 0 

0 682  ID-02 
0 11450-01 
0 4134D-02 
0.12990-01 
0 26270-02 


0 29890-01 
0.44080-02 
0 30110-01 
0 25270-02 
0 2203D-01 
0 79350-03 
0 1 999D-01 
0 36200-02 


DIRECTIONIOEG.) 


INNER 

0.0 

-0.9519D+01 

0.0 

0.10890+02 
-0. 61800+02 
0 369OD+02 
-0.50I4D+02 
0.28210+02 


OUTER 
-0.7947D+00 
0.88490+02 
0. 1561D+02 
0.88710+02 
0 3109D+02 
-0.43480+02 
0 .43400+02 
-0.7070D+02 


STRAIN  COMPONENTS.  PR  INC  I PAL( T ENSI LE ) STRAIN  AND  DIRECTION.  ANO  E LONGA  I I ONS  AT  SPECIFIED  ADDITIONAL  POINTS 


NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG  (DIR  1 ) 

ELONG  (DIR  2) 

PRINC.  STRN(T) 

DI RECT IQN( DEG 

1 

INNER 

-0 

643820-02 

-0  216990-01 

-o 

3151 10-02 

-0  157000-01 

-0  12572D-0I 

0 0 

0 0 

1 

OUTER 

0 

1 17810-01 

-0  68949D-03 

0 

647S3D-03 

0 585250-02 

0 52085D-02 

0 1 1 790D-01 

0 1 4862D+01 

2 

INNER 

-0 

670660-02 

-0  242590-01 

0 

599000-03 

-0  153000-01 

-0  15909D-OI 

0 0 

0 0 

2 

OUTER 

0 

l 18070-01 

0 133960-02 

0, 

.825010-03 

0.696I8D-02 

0 61421  0-02 

0 11B24D-01 

0. 225320+01 

3 

INNER 

-0 

7 6950D- 02 

-0  33406D-02 

-0 

182550-01 

-0.772400-02 

-0.33462D-02 

0 . 38659D-02 

-0.51 706D+02 

3 

OUTER 

0 

1 04050-01 

0 252470-02 

0 

528190-02 

0. 103510-01 

0 , 25215D-02 

0.112080-01 

0.169170+02 

4 

INNER 

-0 

54403D- 02 

-0 . 387 1 0D-02 

0 

100520-01 

-0  515520-02 

-0  38785D-02 

0 4311 5D-03 

0 . 49437D+02 

4 

OUTER 

0 

775800-02 

0 .315270-02 

0 

980220-03 

0.77281D-02 

0 .314780-02 

0.78095D-02 

0.600800+01 

SYSTEM  ENERGIES(IN-LB) 

FRAG.  TRANSLATIONAL  KINETIC  ENERGY  * 
FRAG.  ROTATIONAL  KINETIC  ENERGY 
WORK  INPUT  TO  STRUCTURE  * 

w STRUCTURE  KINETIC  ENERGY  « 

u)  structure  elastic  energy  * 

structure  plastic  energy 
Energy  stored  in  elastic  restraints* 


0 49564830+03 
0.10817620+03 
0 93724920*03 
0 97634700+02 
0 72519760+02 
0 66497510+03 
0. 10211970+03 


IMPACT  CYCLE*  140 


SUBREGIONS  PENETRATEO:  1 4 


POINT  OF  EFFECTIVE  IA1PACT(  XA.YA.ZA)*  0.80042150+00  0. 37361 01  0+01  0.14009030+00 

THIS  IS  IMPACT  NUMBER  120 

IMPACT  CYCLE*  143 

SUBREGIONS  PENETRATED  1 4 

POINT  OF  EFFECTIVE  I MPACT  ( XA  , YA , ZA ) « 0.80049630+00  0.37433010+01  0.13368150+00 

THIS  IS  IMPACT  NUMBER  121 

IMPACT  CYCLE*  146  ELEMENT*  31  SUBREGION  . 2 

GLOBAL  IMPACT  LOCATION  (XN.YN.ZN)*  0.81933980+00  0.3750430D+01  0.12727570+00 

PENETRATION  0 l STANCE ( IN . ) a 0.20847670-04 
THIS  IS  IMPACT  NUA6ER  122 

IMPACT  CYCLE*  149 

SUBREGIONS  PENETRATED.  1 4 

*> 

POINT  OF  EFFECTIVE  I MPACT( XA , YA, ZA )»  0.80041890+00  0. 3/57495D+01  0.12075810+00 

THIS  IS  IMPACT  NUMBER  123 


150  TIME* 

0.30000-03  SEC. 

NODE  U 

1 0.0 

V 

0.0 

W PSIX 

0.0  0.0 

PSIY 

0.0 

TWIST 

0.0 

X-POS. 

0.0 

Y-POS. 

0.0 

Z-POS 

0.0 

340 


2 0.0  0.0  0.0  0.0  0.0  0.0  0.40000D+00  0.0  0.0 

3 0 0 o.p  0.0  0.0  0.0  0.0  0.800000+00  0.0  0.0 

4 0.0  0.0  0.0  00  00  0.0  0. 120000+01  0.0  0.0 

500  00  0.0  0.0  0 0 0.0  0. 160000+01  0.0  0.0 

6 0.932030-03  0.233000-02  0.991850-02  0.303370-02  0.473190-01  -0.36416D-01  0.93203D-03  0.402330+00  0.991850-02 

7 0443850-03  0.281180-02  0994800-02-0.224900-02  0 445170-01  -0.24245D-02  0.40014D+00  0.402810+00  0.994800-02 

8 0 936890-04  0 448060-02  0.911S90-02  0.73GS30-04  0 393600-01  -0-828030-01  0 800090+00  0.40449D+00  0.911590-02 

9 -0  534390-03  0 267470-02  0 984660-02  0 965930-03  0 432630-01  -0.714190-02  0.119950+01  0.402670+00  0. 984660-02 

10  -0  101100-02  0 226080-02  0 952700-02  -0  367930-02  0 459390-01  0.324800-01  0.159900+01  0 402260+00  0.952700-02 

11  0 194090-03  0 250560-02  0 274740-01  -0  169260-02  0 404110-01  -0.9019ID-02  0.19409D-03  0 802510+00  0 274740-01 

12  0 230540-04  0 300310-02  0 271270-01  -0.118930-03  0 397580-01  -0.2I976D-02  0.40002D+00  0 803000+00  0.271270-01 

13  -0  527870-04  0 378480-02  0.270250-01  -0  342180-02  0 425550-01  -0.951940-01  0.799950+00  0.8037BD+00  0.270250-01 

14  -0  749870-04  0 302110-02  0 264440-01  0 799950-03  0 40394Q-0!  -0  107990-01  0.II999D+01  0 803020+00  0.264440-01 

15  -0  255490-03  0 239240-02  0 26878D-01  0 166780-02  0.10680D-01  0 563360-02  0.I5997D+01  0.80239D+00  0 268780-01 

16  0 117670-03  0 28567D-02  0 478730-01  -0  717330-03  0 287780  01  -0  254210-03  0.I1767D-03  0.14029D+0!  0.47Q73D-01 

17  0 424550-04  0 290010-02  0.48082D-01  0 119120-02  0 320400-01  0 10373D-0I  0 40004D+00  0.14029D+0!  0 48082D-01 

18  0 101050-03  0 321590-02  0 484220-01  -0  260580-03  0 395550-01  -0.116110+00  0 BOOIOD+OO  0.140320+01  0 404220-01 

19  0 943090-04  0 287160-02  0 481450-01  -0  592610-03  0 327100-01  -0.135630-01  0.12001D+01  0.I4029DIOI  0. 401450-01 

20  0 264840-04  0 2C898D-02  0 482120-01  0 158970-02  0 307180-01  0 74521D-03  0 16000D+01  0 I4027D+0I  0 482420-01 

21  0 530860-03  0 30J21D-02  0 612800-01  0.909730-02  0 203160-01  0 512450-02  0 530860-03  0 20030D+OI  0 612800-01 

22  0 455600-03  0 238020-02  0.651070-01  0.971480-02  0.263550-01  0 165390-01  0.400460*00  0 200290+01  0.651070-01 

23  0 160230-03  0 295390-02  0 677820-01  -0.427G30-03  0 35467D-01  -0.H756D+00  0 800170+00  0.200300+01  0.677820-01 

24  -0  135100-03  0 281770-02  0 657400-01  -0  7GI6G0-02  0 270110-01  -0.22372D-01  0.119990+01  0 2002BD+0I  0.657400-01 

25  -0  202030-03  0 285050-02  0.626520-01  -0  733320-02  0 214320-01  -0  68323D-02  0 15998D+01  0 200290+01  0.626520-01 

26  0 763000-03  0 274540-02  0.715800-01  0 240970-01  0.206670-01  0 t 13140-01  0.763000-03  0.26027D+01  0.7168GD-01 

27  0 715460-03  0 302550-02  0 806530-01  0 209890-01  0.287790-01  0.199960-01  0 400720+00  0 260300+01  0.806530-01 

28  0 278510-03  0 385770-02  0 864740-01  0 416040-02  0 37469D-01  -0.107670+00  0.800200+00  0 260390+01  0 864740-01 

29  -0  306900-03  0 287730-02  0 819740-01  -0  206220-01  0 296490-01  -0  371890-01  0.119970+01  0 260290+01  0 819740-01 

30  -0  352670-03  0 26I77D-02  0 732410-01  -0  229670-01  0 203G5D-0I  -0.146040-01  0.159SCD+01  0.260260+01  0.732410-01 

31  0 195800-03  0 224250-02  0 810680-01  0 302240-01  0 275130-01  0 466100-02  0 195800-03  0.300220+01  0. 810680-01 

32  0 245370-03  0 270510-02  0 933620-01  0.324080-01  0.328610-01  0.22711D-01  0.400250+00  0.300270+01  0.933620-01 

33  0 109720-03  0 546600-02  0 103930+00  0 557600-02  0 432080-01  -0  654670-01  0 800110+00  0 300550+01  0.10393D+00 

34  0 89 1 5 50-04  0 257800-02  0 942C6D-01  -0  315120-01  0 315430-01  -0.331410-01  0 120010  + 01  0 300260+01  0.942060-01 

35  0.156390-03  0 2I139D-02  0 822440-01  -0  291030-01  0 252150-01  -0  7G7470-02  0 16002D+Ot  0.3002ID+0!  0.822440-01 

36  -0  700070-03  0.140010-02  0 919620-01  0 30J760-0I  0 238230-01  -0  387570-02  -0.700070-03  0.340140+01  0.91962D-01 

37  -0  559010-03  0.173710-02  0 105760+00  0 309320-01  0 2GC59D-01  0 128960-01  0.399440+00  0.340170+01  0.10576D+00 

38  0 166800-03  0.35638D-02  0 118670+00  -0  105820-04  0 286650-01  0. 451870-02  0 80017D+00  0.340360+01  0.1 18670+00 

39  0 859530-03  0.167040-02  0 105660+00  -0  388790-01  0 246090-01  -0.202890-0t  0 120090+01  0 340170+0t  0.105660+00 

40  0 101510-02  0.125590-02  0 918520-01  -0  300720-01  0.194050-01  -0.724000-03  0 160I0D+0I  0 340130+01  0.918520-01 

41  -0.676960-03  0.122950-03  0 959660-01  0 328970-01  -0  226830-02  0.950110-02  -0. 676960-03  0 380010+01  0 959660-01 

42  -0  500530-03  -0  76708D-04  0 110190+00  0.302890-01  -0  524330-02  -0  204360-01  0.399420+00  0 379990+01  0.110190+00 

43  0 130790-03  -0  310950-02  0 121850+00  -0  840480-02  -0  133190-01  -0  715920-01  0 800140+00  0 379680+01  0.121850+00 

44  0 697100-03  -0  337490-03  0 108520+00  -0  396590-01  -0  e54430-02  0 162270-01  0 120070+01  0 379970+01  0.10U52D+00 

45  0 7488 10-03  0 338730-04  0.937370-01  -0  350110-01  -0.585760-02  -0  94532D-02  0 16007D+01  0 380000+01  0 937370-01 

46  -0  192670-05  -0  425100-03  0 954660-01  0 282550-01  0 652640-03  -0  19984D-01  -0  19267D-05  0 419960+01  0 954060-01 

47  0 77920D-04  -0  889320-03  0 106690+00  0 204780-01  -0  116920-01  -0  440320-01  0 40006D+00  0 419910+01  0. 106690+00 

48  0 293640-04  -0  279650-02  0 1 1 3610+00  -0  702760-02  -0  22-152D  01  -0.122540  + 00  0 800030+00  0 419720+01  0.113610+00 

49  -0.149310-03  -0  101020-02  0 104640+00  -0  292760-01  -0  940360-02  0 337580-01  0 119990+01  0 419900+01  0 10464D+00 

50  -0  102090-03  -0  449770-03  0 929750-01  -0  297700-01  0 143200-02  0 186920-01  0 159990+01  0 419960+01  0 929750-01 

51  0 420620-04  -0  111200-02  0 961650-01  0 24«650-02  -0  910670-02  -0  1810ID-0I  0 420620-04  0 479890+01  0 961650-01 

52  0 140200-03  -0  127170-02  0 900070-01  0 6 >5260-02  -0  19»f,4Q  01  -0  31Q16D-0I  0 400150+00  0 479670  + 01  0 980670-01 

53  -0  407060-04  -0.159020-02  0 100080+00  0 83<61D-03  -0  314870-01  -0  143230*00  0 79996D+00  0 479U4D+01  O.IOOOOD+OO 

54  -0. 193740-03  -0  122200-02  0 974020-01  -0  926150-02  -0  191370-01  0 331I7D-0I  0 119980+01  0 479Q8D+0I  0.97402D-01 

55  -0  972400-04  -0  115170-02  0 945720-01  -0  469220-02  -0  713190-02  0.107720-01  0 159990+01  0 47960D+0I  0 945720-01 

56  -0  95 1 3 1 D-04  -0  128600-02  0 831340-01  -0  136820-01  -0  424250-01  0.329010-02  -0  951310-04  0 539U7D  + 0I  0 831340-01 

57  -0  136/00-03  -0  181530-02  0 794600-01  -0  618140-02  -0  445620-01  -0. 160110-01  0 399660*00  0 53902D+0I  0 794600-01 

58  0 588650-05  -0  255410-02  0 7810G0-01  0 205030-03  -0  541370-01  -0  151520+00  0 B0001D+00  0 53974D+0I  0 781060-01 

59  0 2281  ID-03  -0  175340-02  0 795910-01  0 501790-02  -0  439030-Ot  0.146740-01  0 120020  + 01  0 539820  + 01  0 795910-01 

60  0 194800-03  -0  132290-02  0 831340-0'  0 132270-01  -0  397510  01  -0.106340-02  0 160020+01  0 539U7D+0I  0 03134D-QI 

61  0 410000-03  -0  163830-02  0 475310-01  -0  841420-02  -0  7j0340-01  0 191070-01  0 4I00UD-03  0 59904D+01  0.47531D-0I 

' 62  0 160920-03  -0  276700-02  0 449050-01  -0  404600-02  -0.bS04GD-01  -0  596630-02  0 400160+00  0 59972D+0I  O.44905D-0I 

63  0 154690-03  -0.435510-02  0 449380-01  0 511330-02  -0  714290-01  -0.131430+00  0 000150+00  0 599560+01  0.449300-01 

64  0 881690-04  -0.26419D-02  0.459960-01  0 430470-02  -0  090710-01  -0  101410-01  0 120010+01  0 599740+01  0. 459900-01 

65  -0.170140-03  -0  156890-02  0 486620-01  0 893430-02  -0  737520-01  -0.240560-01  0 159980+01  •'0.599640+01  0.406620-01 

66  0.127520-02  -0  233810-02  0 168020-01  0 246710-02  -0.772920-01  0.500310-01  0 127520-02  0.639770+01  0.168820-01 

67  0.75706D-03  -0.294170-02  0.163450-01  -0.301530-02  -0.712650-01  -0.106150-02  0.40076D+00  0.639710+01  0.163450-01 


I 


I 


I 


I 


6B  -0.10223D-03  -0.569970-02  0.I50/0D-01  0.58109D-0G  -0  056420-01  -0.106630+00  0.79990D+00  0.639430+01  0.15070D-01 

69  -0. 613690-03  -0.305040-02  0.165150-01  0.4/0100-02  -0 . 730640-01  -0.112330-01  0.11994D+01  0.63969D+01  0.16515D-01 

70  -0.111450-02  -0  224370-02  0. 174110-01  -0.193060-02  -0  793910-01  -0.56187D-01  0.159890+01  0.63978D+01  0.17411D-01 


71 

0.0 

0.0 

0.0 

0.0 

0 . 0 

0.0 

0.0 

0.680000+01 

0.0 

72 

0.0 

0.0 

0.0 

0.0 

0.0 

O.o 

0 . 40000D+00 

0 . 68000D+0 1 

0.0 

73 

0.0 

0.0 

0.0 

0.0 

0.  0 

0.0 

0 .800000+00 

0 . 66000D+0 1 

0.0 

74 

0.0 

0.0 

0.0 

0.0 

0. 0 

O.o 

0 . 1 2000D+01 

0 . 68000D+0 1 

o.o 

75 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0 . 1 6000D+01 

0 . 68000D+0 1 

0.0 

FRAGMENT  GLOBAL  LOCATION  AND  VELOCITY  COMPONENTS 

X-LOC  7-LOC  2-LOC  VEL~X  VEL-Y  VEL-Z  OMEGA-X  OMEGA-Y  OMCGA-Z 

0.B00126D+00  0 . 37622 1 D+01  -0 . 478B 630+00  -0.1090280+01  0 . 1 2 1 3540+04  -0 . 1 081 760+04  0.239815D+04  -0.1002620+01  0.915274D+00 

STRAIN  COMPONENTS,  PRINCIPAL  (TENSILE)  STRAIN  AND  DIRECTION  AT  USER-SPECIFIED  NODES 


EPS-X  STRAIN  EPS-Y  STRAIN  SHEAR  STRAIN  PRINC,  STRAIN(T)  DI RECT ION(DEG. ) 


NODE 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

INNER 

OUTER 

38 

-0.2735D-01 

0 . 3090D-01 

-0. 1792C-01 

-0.28760-02 

0.856  3D- 03 

-0.951 1 0-03 

0.0 

0.309ID-01 

0.0 

-0 . B064D+00 

39 

0 70250-02 

-0.41 U9D-02 

-0.9437D-02 

0. 27590-02 

-0.714  0D-02 

0.9759D-03 

0.8535D-02 

0 .2793D-02 

-0.1123D+02 

0 . B600D+02 

43 

-0.2572D-0I 

0.2900D-01 

-0. 1643D-0I 

0. 71980-03 

-0. 1470D-01 

0. 1393D-01 

0.0 

0.30620-01 

0.0 

0. 13120+02 

44 

0 . 546  00-02 

-0 .23530-02 

-0.744  5D-02 

0.82610-03 

0 .63590-02 

-0  13210-03 

0.62010-02 

0. 82740-03 

0.13120+02 

-0.6881D+02 

48 

-0. 15620-01 

0.151  ID-01 

0.408  ID-02 

-0. 58850-03 

-0.2470D-01 

0 . 243  2D-01 

0.1003D-01 

0.2173D-01 

-0 . 6429D+02 

0 . 2B58D+02 

49 

0.9222D-03 

-0 . 3087D-03 

-0.2326D-03 

-0.171 0D-02 

0. 88650-02 

-0.4638D-02 

0.48150-02 

0.13620-02 

0.41290+02 

-0.3705D+02 

53 

-0 . 533  4D-02 

0 . 4480D-02 

-0. 10500-02 

0 . 244  6D-02 

-0.2863D-01 

0.2866D-01 

0. 11280-01 

0 . 1 783D-0 1 

-0. 49250+02 

0 . 4297D+02 

54 

0. 1065D-02 

-0. 1 1210-02 

-0.3486D-02 

0.261 3D-02 

0.76710-02 

-0.55760-02 

0.3249D-02 

0.41020-02 

0.2966D+02 

-0 . 61 90D+02 

STRAIN  COMPONENTS,  PR  INC  I PAL(  T FNSI LE ) STRAIN  AND  DIRECTION,  AND  ELONGATIONS  AT  SPECIFIED  ADDITIONAL  POINTS 


POINT 

NO. 

SURFACE 

EPS-X  STRAIN 

EPS-Y  STRAIN 

SHEAR  STRAIN 

ELONG. (DIR. 1 ) 

ELONG. (DIR. 2) 

PRINC.  STRN(T) 

DIRECTION! DEG 

1 

INNER 

-0.765030-02 

-0 . 193910-01 

-0.291440-02 

-0.  r‘«087D-01 

-0. 12132D-01 

0.0 

0.0 

1 

OUTER 

0. 1 27090-01 

-0 . 192870-02 

0.364350-03 

0 . 5‘>57 ID- 02 

0.519470-02 

0. 1 27 1 2D-01 

0. 71 290D+00 

C»J 

2 

INNER 

-0.7 /716D-02 

-0 .21754D-01 

0.524920-03 

-0. 1 16070- 0 1 

-0.151400-01 

0.0 

0.0 

2 

OUTER 

0. 1 2555D-01 

-0 . 103630-03 

0.849620-03 

0 . 60279D- 02 

0.57845D-02 

0.125690-01 

0. 191770+01 

H 

3 

INNER 

-0  870680-02 

-0 . 194120-02 

-0.175770-01 

-0.8'.  450D-02 

-0.194300-02 

0.409290-02 

-0.555260+02 

3 

OUTER 

0. 1 11790-01 

0 . 127060-02 

0.532720-02 

0.111 180-01 

0.126980-02 

0.1 105OD-O1 

0.  141 32D+02 

4 

INNER 

-0.6501  ID-02 

-0 .234160-02 

0.996340-02 

-0 . 65224D- 02 

-0.234430-02 

0. 977100-03 

0.  56330D+02 

4 

OUTER 

0 . 05670D-G2 

0 .186830-02 

0.215200-03 

o.ar.3060-02 

0. 18666D-02 

0.856B7D-02 

0.920040+00 

0.5041 488D+03 
0. 10973110+03 
0 92719390+03 
0. 1662348D+03 
0.771 7305D+02 
0.60941 160+03 
0 . 7436948D+02 


SYSTEM  ENERGIES(IN-LB) 

FRAG.  TRANSLATIONAL  KINETIC  ENERGY  « 

FRAG.  ROTATIONAL  KINETIC  ENERGY  = 

WORK  INPUT  TO  STRUCTURE  a 

STRUCTURE  KINETIC  ENERGY 

STRUCTURE  ELASTIC  ENERGY 

STRUCTURE  PLASTIC  ENERGY 

ENERGY  STORED  IN  ELASTIC  RESTRA INTS= 
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OUTER 


SYSTEM 

AAA 

l,3,k  — UNIT  VECTORS  IN  THE 
GLOBAL  COORDINATE 
DIRECTIONS 

n — UN IT -OUTWARD  NORMAL 
OF  THE  PLATE 


FIG.  1 GLOBAL  COORDINATES  AND  UNIT-OUTWARD-NORMAL  DIRECTION  FOR  A 
FLAT  PLATE 
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X,Y,Z 


Global  Rectangular  Cartesian 
Coordinate  System 


x«y,z 


Local  (element)  Coordinate 
System 


h - Total  Element  Thickness 


a,b  - Element  Spanwise  Dimension 
in  the  x and  y Directions 


U,  V, 

w 'I 

3w 

w = 

/X 

3x 

3w 

II 

>1 
5 ' 

3y  > 

3 w 

w = 

/XV 

3x3y 

Generalized  Nodal 
Displacements  for 
u, v,w:  LLC  Element 


FIG.  2 GEOMETRY  AND  NOMENCLATURE  FOR  A UNIFORM-THICKNESS  RECTANGULAR 
PLATE  ELEMENT 
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w - Width  of  Stiffener 
s 


t - Thickness  of  Stiffener 
s 

x - Local  x-Location  of  Stiffener 
s 


FIG.  3 GEOMETRY  AND  NOMENCLATURE  FOR  A STIFFENED  RECTANGULAR 
PLATE  ELEMENT 
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a k 


DISTRIBUTED  LINE  TRANSLATIONAL  SPRINGS 


DISTRIBUTED  LINE  ROTATIONAL  SPRINGS 


FIG.  4 CONCLUDED 


350 


X, Y,Z  - Global  Coordinate  System. 

X^,Y^,Z^  - Global  Coordinates  which 

Locate  the  Center  of  Gravity 
(c.g.)  of  the  Fragment. 

r - Radius  of  the  Spherical  Fragment. 


Vfx'vfy,vfz 


- Translational  Velocity  Components 
of  the  Fragment  m the  X,Y,  and  Z 
Directions,  Respectively. 


OJ.  ,<l)_  ,<l)_ 

fx  fy  fz 


- Rotational  Velocity  Components 
of  the  Fragment  in  the  X,Y,  and  Z 
Directions,  Respectively. 


FIG.  5 GEOMETRY  AND  NOMENCLATURE  FOR  AN  IDEALIZED  N0N-DEF0RMABLE 
SPHERICAL  FRAGMENT 
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FIG.  6 IDEALIZATION  OF  DEFORMED  PLATE  FOR  IMPACT  INSPECTION  PURPOSES 
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FIG.  8 CONTINUED 
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FIG.  8 CONTINUED 
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FIG.  8 CONTINUED 
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FIG.  8 (CONTINUED) 
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FIG.  8 CONCLUDED 
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FIG.  9 FLOW  CHART  OF  IMAINP  FOR  THE  CIVM-PLATE  1 PROGRAM 
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FIG.  9 (CONTINUED) 
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FIG.  9 (CONTINUED) 


364 


Loop  over  time 


© 

“ 


FIG.  9 (CONTINUED) 
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« 
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FIG.  9 (CONCLUDED) 
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SIDE  3 


NOTE:  IF  IMESH=1 

THEN  COORDINATE  SYSTEM 
IS  AUTOMATICALLY 
ANCHORED  AT  STRUCTURAL 
NODE  NUMBER  1 


NODAL  AND  ELEMENT 
NUMBERING  CONVENTION 


SLOW 


FIG.  10  NUMBERING  CONVENTION  ADOPTED  IN  THE  AUTOMATED  MESH 
GENERATION  PROCEDURE 
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z 


Note; 

1.  Stiffener  has  a rectangular  cross-section 
which  is  constant  along  the  stiffener. 

2.  If  Stiffener  were  placed  on  "top"  of  plate, 
XFCST(I)  would  be  a negative  number. 


FIG.  12  CROSS-SECTIONAL  GEOMETRIC  PROPERTIES  OF  STIFFENERS 
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NOTE:  THIS  IS 

TREATED  AS  3 
INDIVIDUAL  ^ 
ADDITIONAL 
STIFFENERS 


FIG.  13 


AS- 3 


AS- 4 


AS- 5 


AS- 2 

AS— 1 

AS-n  refers  to  Additional  Stiffener  Number  n. 


4 3 


POSITION  OF  ADDITIONAL  STIFFENER  IS  GIVEN  IN 
TERMS  OF  THE  NORMALIZED  POSITION  RELATIVE  TO 

ELEMENT  NODE  1:  POS  = t=- 

— — — — b 


X-DIRECTION  ADDITIONAL  STIFFENERS 
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K , K NOT  STORED — 1 
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K,  . 
64 
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K76 

K77 

K85 

Kn/. 
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r 
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\ 

K61'  K62  “0T  ST0EED  K7rK74'K8rKe4 

NOT  STORED 


CO 

Kno 

83 

K91 

K92 

K93 

K 

94 

K95 

96 

K97 

98 

Kmo 

99 

b.  Storage  of  Assembled  Stiffness  Matrix  (Lower  Triangle) 
In  Vector  Form 


FIG.  15  STORAGE  OF  THE  ASSEMBLED  STIFFNESS  MATRIX 
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FIG.  17  FINITE-ELEMENT  MODELS  OF  THE  TRANSIENTLY-LOADED  THIN  NARROW  PLATE 


APPENDIX  A 


GOVERNING  EQUATIONS  ON  WHICH  THE  PLATE  PROGRAM  IS  BASED 


A.l  Formulation  for  Constant-Thickness  Unstiffened 
Rectangular  Flat  Plate  Elements 

A, 1.1  Interpolation  Functions  and  Strain-Displacement  Relations 

The  PLATE  program  accommodates  both  unstiffened  and  longeron  integrally- 
stiffened  thin  plate  structures  utilizing  a constant-thickness  plate  element  of 
rectangular  planform.  The  present  subsection  deals  with  the  unstiffened  ele- 
ment; as  discussed  m Subsection  A. 2,  a stiffened  plate  element  is  formulated 
by  combining  a "stiffener"  element  with  the  unstiffened  plate  element  to  which 
it  is  attached. 

The  geometry  and  nomenclature  of  a typical  rectangular  thin  plate  element 
are  shown  m Fig.  2.  The  element  has  constant  thickness,  h,  and  spanwise 
dimensions  a and  b in  the  x and  y directions,  respectively,  with  the  origin 
of  the  element  xyz  coordinate  system  located  at  element  node  number  1. 

Since  the  Kirchhoff  hypothesis+  is  employed,  the  displacement  field 

u,  v,  and  w may  be  approximated  by  the  plate  middle  surface  displacements  u, 

v,  and  w and  rotations  8 and  i/j  as  follows: 

Lt(x}yjZ)=  U (X,y)  - 2 &(*,  y) 

v(x,y,a)  = v(x,y)  - £ ^O,  y) 

„ . x (A.l) 

w y}z)  - ~ 

where 

^ w(x,y) 

ec*,v)  = — 

9 w(x,y) 

?y  (A. 2) 

The  midsurface  displacements  u,  v,  and  w are  approximated  within  each  element 

+The  Kirchhoff  hypothesis  is  appropriate  since  attention  herein  is  restricted 
to  thin  plates.  It  should  be  noted,  however,  that  recently  less  restrictive 
plate  bending  elements  have  developed,  based  on  Mmdlin  theory  [24] ; such 
elements  employ  independent  interpolations  for  the  transverse  displacement  w and 
for  the  rotations.  These  elements  often  suffer  from  excessive  stiffness  in 
the  thm-plate  limit;  this  "defect"  has  been  remedied  by  the  use  of  selective 
reduced  numerical  integration  [25-27] . 
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y (*>  v) 


by  assuming  a bilinear  interpolation  for  the  mplane  displacements  u and  v, 
and  a bicubic  Hermetian  interpolation  for  the  transverse  displacement,  w.  The 
interpolations  written  in  terms  of  element  x,y,z  coordinates  are 


u(x, y)  = (X,  + x <v2  + y«3  + *y 
vCx, y)  = ofs  + x + y«7  + Xy 


= + y* 

n +xy 

+ x o(l3 

+ y2«,+ 

Z 2 

. 2 Z 

3 

3 

-fx  y*15  +xy«l6 

+ X y of|7 

+ X <X,g 

+ y 

3 3 

3 2 

2 3 

3 3 

+xy°<zo  + *y  «zi 

+ x y 0i22 

+xy°<z3 

+ x y ^24 

(A.  3a) 
(A.  3b) 


(A.  3c) 


where  a , a ^ ...  are  unknown  parameters  which  will  be  related  to  the  gen- 
eralized nodal  displacements;  the  rotations  8 and  ip  are  evaluated  by  substi- 
tuting Eq.  A. 3c  into  Eqs.  A. 2. 


In  order  to  obtain  a set  of  generalized  nodal  displacements  which  can 

be  related  to  the  24  a 's,  the  generalized  nodal  displacements  chosen  are  the 

1 2 

parameters  u,  v,  w,  d,ip  , and  x = O w/8x8y)  at  each  of  the  four  corner  nodes 
of  the  element. + The  nodal  displacement  vector,  q,  for  the  element  is  thus 


{?•}=[«< “1  4 V 3|  ut  v2  v/  x2 


(A.  4) 


U3 


By  evaluating  Eqs.  A.  3 and  8(x,y),  ijj(x,y),  and  x(xfY)  (obtained  by  differ- 
entiating Eqs.  A. 3)  at  the  element  nodes,  a unique  (invertable)  relation  be- 
tween q and  a is  obtained; 


fr  = <S 

Ay 


(A. 5) 


The  24  a.'s  can  be  related  to  the  24  q.'s  by  inversion  of  Eq.  A. 5 so  that 
i i 


c< 

/V 


f 


(A. 6) 


and  the  displacement  interpolation  (Eq.  A. 3)  can,  in  principle,  be  written  m 
terms  of  nodal  generalized  displacements,  q;  details  of  the  calculation  of 


These  six  generalized  displacements  are  convenient  to  use  because  of  the  ways 
in  which  these  quantities  appear  m the  strain-displacement  relations  (Eqs. 

A. 7 and  A. 8)  for  the  Kirchhoff  hypothesis. 
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G ^ will  be  discussed  later. 


The  distribution  of  strains  £ , £ , and  £ may  be  represented  by  mid- 

xx  yy  xy 

surface  inplane  strain  components  £ , £ , and  £ and  curvatures  K , K , 

xx  yy  xy  + xx  yy 

and  < , and  are  written  under  the  Kirchhoff  assumption,  as 

xy 


/V 

€.  — 

€ - 2 /£ 

XX 

XX  xx 

/V 

€yy  - 

^yy 

/V 

£ xy  - 

6X  y ~ 2 y 

(A.  7) 

For  the  present  element,  the  nonlinear  strain-displacement  relations  of 
Sanders  [12]  for  moderately  small  rotations  are  used,  and  are  given  by 


When  Eq.  A. 6 is  substituted  into  the  interpolation  functions  of  Eqs.  A. 3, 
and  the  result  substituted  into  Eqs.  A. 8,  then  Eqs.  A. 8 can  be  written  in  the 


form: 


(A. 9) 


+The  Kirchhoff  assumption  reduces  the  number  of  "displacement  variables"  but 
introduces  higher  order  derivatives  m the  formulation  of  plate  and  shell  elements. 


++Note  that  is  the  engineering  strain  and  K xy  is  the  engineering  twist  curva- 
ture at  the  reference  surface;  these  quantities  are  equal  to  twice  their  tensorial 
counterparts . 
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where  D^,  D^,  . . . are  defined  from  the  relations 


*i-=  Dt  f 

21.  = dJ  f 

5 y ~2  1 

fJjL  + il)  - dt« 

(?y  3xj  ^ i 


2#^-  = p7  « 


5 vs/ 


= ol  ft 

A/  / ^ 


Px2 

5zw/ 


x 

— = dJ  f 

£ y ~8 


= D-  f 


- D 


£ 

T 


^ / 


z — /v5 


(A. 10) 


m 


' m 


(A. 11) 


where 


The  nonlinear  geometric  behavior  of  the  plate  material  will  be 

expressed  in  terms  of  the  increment  in  strain  from  time  t , to  time  t . 

m-1  m 

Assuming  that  the  displacements  and  the  increment  m nodal  displacements, 
Aq^  are  known,  the  strain  increments  can  be  calculated  by 

O ^xJm  = (A  e*x)m  ~ * (4^xx)„ 

C^syy)» i=  (A£yy)m  *(^%yy) , 

(A?<y)m  = (Aexy)„  ~ s(A/?xy), 

^ o.  = fir  ^ + +z  (%  £ + j»,  fi,T ) ^ f- 

- t fi7T + p?  ?r ) 4 
^ «rrl  = £ Afm  + £T ( fi*  £ + & fir ) 4 f- 
-***-(&£  +$, 

^y)«  = fij  Afx,  + |I (D7  Pj  + p.  p7)4 

bl  + D dT)av-„ 

/vW  \ *v  j ^ 3 ^7  / /v 


(A. 12) 
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and 


(AXxX  = 

(AKyyL  = £ A£~ 

^ 2n\  ~ 2r*  2m~l 


(A. 13) 


A. 1.2  Normalized  Coordinates  and  Nodal  Degrees  of  Freedom 

In  operations  related  to  the  element  matrix  formulation,  it  is  generally 

convenient  to  deal  with  normalized  coordinates  (£,r|)  where 

x 

§ = ~ 

~ y 

T-  ~g  (a. 14) 

Normalized  nodal  coordinates  (u,  v,  w,9,i p,X)  are  then  defined  by  the  relations 

U.  = U Q - CL  Q 


V = v y = y y 

w = w ~ cz.  b 

(A. 15) 

and  normalized  new  parameters  a are  defined  by 

1 -T  -9 


#1 

= *i 

■a 

II 

°<q 

*1 

II 

h «n 

= Pfz 

0 ~~ 

*/«  " 

* «!S 

. 3 

*3 

=:  b 0(3 

*.1  = 

b o({[ 

°<iq  ~ 

i?  'Of/^ 

* 

-0 

il 

*,2  = 

Abo([Z 

* 20  ~ 

CZ-*  b ^2.0 

*5 

= 0{5 

°(,3  ~ 

2 

<st<  of  13 

*21  ~ 

3 

b Of; 2./ 

*6 

- a. 

^ 14  “ 

is2  Of  ,4 

*22  ~ 

3,2 

<2-  b ofZz 

<9 

— b °(n 

«/5  = 

C3?  2?  Of/5 

50 

M 

Ui 

II 

b 0(^3 

i 3 

— cpu  b °<8 

*16  = 

<2.  Jb2  4f  \(, 

K*1 

hi 

11 

<2  b <^24 

(A. 16) 
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Substituting  Eqs.  A. 14  through  A. 16  into  Eqs.  A. 3 yields  the  following 
interpolations : 


U.  = <*|  t J <*2.  + ’Z  *3  + f 


(A. 17a) 


V = *5  + /<*£  + ^ *7  + f ? 


(A. 17b) 


2 t-: 


2 — 


w ? «„  +z?i  ««  + * «rJ3  + ? ** 

+ A *15  * 5 ^ */*  + / ?Z  *,7  + + * */* 

3 _ 3-  3 2 - 23-  3 3 — 

+ f?«z*+-5’?  «»  7 «»  + *?  Va  + sn  *24 


2 — 


0 = *J£7  + ? aftt  +^S0<ia+z^0(i5-h^  +z 3XZ  «\ 


17 


+3S«»  + 3$*  ^ °<2/  § *1  ^22 

+ Z$V«Z3  +B§  4 «Z+ 


(A. 17c) 


(A.17d) 


2 _ 


2 _ 


y - *„  + I*  */2  + 2 ar/4  + f *;5  +2/^  */6  ■+  2 x 


n 


-t-S^rtn+S  «zo+3S’l  <*2I  +2/^«z  + 3/^+3fY^ 


3 _ 


2 2. 


3 2 _ 

*24 

(A.  17e) 


x =1  <*J2  +2§<Xi5  + 2l«i6  +4r$\«in  + *i 


+ 7 «ZZ  + C5~l  «Z3  + ^ T'  «. 


(A.17f) 


24- 


Note  that  u and  v are  bilinear  whereas  w is  expressed  as  a bicubic  interpola- 
tion function  of  £ and  r).  When  Eqs.  A. 17  are  evaluated  at  the  nodal  coordi- 
nates, the  normalized  nodal  degrees  of  freedom  should  result;  these  conditions 
define  the  matrix  G (see  Eqs.  A. 5)  relating  q and  a.  Because  of  the  simple 
rectangular  geometry  of  the  element  and  the  use  of  normalized  quantities,  the 


o^'s  can  be  obtained  in  terms  of  the  q's  in  closed  form.  The  resulting 


382 


expressions  are 


0(z  - -U,  -f  u2 


(X 


8 


<x3  — — + V4 


Of, 


w, 


«4  ~ Ul  ~^Z  +U3  ~U4 

°($  — V/ 

= -V#  + 


Ot/O  — 0/ 

3r„  - « 

°^IZ  ~~  'X't 


*13  = S(-  w,-f  Wz)  -(2  3 + ez) 

«,+  - 3(-^  + %)-(2^  + ^) 

«,*  = 3(-^  + ^)-^%,+  X2) 

**  = 3 (-B,  + 94)-fc%+%4) 

Of  17  = ^('w,  - wz-f  W3  +3  (2  &,  + ez  - 0a  ~z  o^) 

+ 3(2W-2Vz-% -%)+(■ 4 +2  ^ +^3  +2  2+) 


«i*  = 2(w,-  w2)  + ^ + 02) 

<*  i<T  = 2 (w,  - w4  ) + ( ^ + %.) 

<*20—  2.(^1  ~ %i)  + (^X(+X2^ 

^2/  ~ ^(3,-9^)  +(%,+% 4) 

0(2.2  ~ ^(~^t  + w2  ~ w3  + W4.)  -+3(^&,  -&2+&3  + 

+ 2(-Z%+  l^z+%-%)+(-2XrZZ2^23  -\) 

*23  = +^4)  +z(rzdl-ez+d3  -+z\) 

^3(-yl+%  +%-%)+z(-z:zl-  %z  - -z  x4) 

«Z4  = 4(w,-^+w5-w4)+2^|+^.^.^) 

+ z(Yr&-%+%)  + (V^  + 3*  + ?J 


(A. 18) 
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If  Eqs.  A. 18  are  written  m matrix  form,  the  G matrix  is  obtained: 

& = S f (A. 19) 

~ __1 

It  is  useful  to  note  that  G is  independent  of  element  geometry  and  may  be 
formed  once  and  used  for  all  elements. 


The  internal  energy  of  the  plate  element  is  defined  in  terms  of  strain 
components,  or,  more  specifically,  midsurface  strains  and  curvatures.  It 
will,  therefore,  be  necessary  to  relate  these  strain  components  and  curvatures 
to  the  derivatives  of  the  normalized  displacements  in  the  normalized  coordi- 
nates. It  can  easily  be  seen  that 


Bu 

_ 1 

B ZL 

B u. 

_ { 

B a. 

B A 

CL 

B y 

~ b 
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_ _1_ 
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Bv 

_ 1 
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BQ 
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Be 

bv 

_ 1 

BZp 

Bx 

~ 

*5 

By 

" bZ 

ZX 

1 

CL  b 

■(z%) 

(A. 20) 


from  which  the  following  matrix  relation  may  be  written 
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A. 1.3  Definition  and  Calculation  of  Element  Property  Matrices 

In  the  previous  subsections,  the  characteristic  displacement  behavior 
of  the  element  and  the  associated  strain  components  were  defined.  These  in- 
terpolations/relations are  now  used  in  conjunction  with  the  concepts  of  work 
and  energy  to  derive  the  various  plate  element  property  matrices. 


A. 1.3.1  Element  Mass  Matrix 

The  consistent  mass  matrix  m for  a rectangular  plate  element  is  de- 

~c 

rived  from  the  expression  for  the  kinetic  energy,  (T)  , for  a typical  (nth) 

n 

element  which  is  given  by 


Tn  = -L  f f( a2+  ?2+  »2)  Jtv 


v"  _J.il 
b A + 2 


Z 


a o 


j , f[(u--2&)  + \v2]  dy  di 


(A.  22) 


with  p taken  as  the  mass  per  unit  volume  of  the  plate  material.  Introducing 
normalized  coordinates  (Eqs.  A. 14)  and  normalized  displacements  (Eqs.  A. 15), 
and  integrating  Eq.  A. 22  through  the  thickness  of  the  element  yields 

i i 


T =±a.b 

n 2 


*][£] 


o o 


U. 

v 

< * } 
e 


(A. 23) 


where  m is  the  diagonal  matrix 


[~3  = 


/ 


Zil 


O 


XI 

b2 


(A. 24) 
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It  is  reasonable  to  assume  that  the  spatial  variation  of  the  velocity 
field  is  the  same  as  that  of  the  displacement  field.  From  Eqs.  A. 17a  through 
A.17e,  the  velocity  field  is  written  as 


zz 

*« 

V 

r 1 

K 

• 

w 

< 

= 

< 

• 

• ^ 

Q 

• 

0 

y 

o(z4 
* / 

Substitution  of  Eq.  A. 19  (valid  also  for  velocities)  into  Eq.  A. 25 
result  into  Eq.  A. 23  yields, 

X =7  ) J 1 NT"  N dfd?  o j =i  fT  m j 

O o 


and  the 


(A.  26) 


The  m matrix  is  the  normalized  consistent  element  mass  matrix  for _ the  element 
corresponding  to  normalized  nodal  (velocity)  degrees  of  freedom,  q.  By  using 
Eq.  A. 15,  the  normalized  q vector  can  be  related  to  q by 


(A. 27) 


so  that  by  substituting  Eq.  A. 27  into  Eq.  A. 26, 

matrix  m is  defined 
~c 

yy\  — ~r  * T 

A/  C /%✓  A/ 


the  consistent  element  mass 

(A. 28) 


where 


m 

/V 


T ' 1 T „ 

O'  b ( <3  ) f f N rv\  N df-  dr?r  (j 

\ ***  / J J /V*  /V/  1 /N/ 


-/ 


(A.  29) 


o o 

The  integral  in  Eq.  A. 29  is  evaluated  numerically.  It  should  be  noted  that 
the  matrix  multiplication  indicated  m Eq.  A. 28  is  accomplished  simply  by 
scaling  the  rows  and  columns  of  the  m matrix  since  T is  a diagonal  matrix. 


A diagonal  lumped  mass  matrix  can  also  be  formed  for  the  rectangular 
plate  element.  In  this  case,  the  total  mass  properties  of  the  element  are 
lumped  evenly  at  the  four  nodal  locations,  resulting  in  a diagonal  matrix  of 
the  form 
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m — 
~ L 


o 


where  m is  the  diagonal  matrix? 


(A. 30) 


(A.  31) 


A.  1.3. 2 Element  Equivalent  Loads  Corresponding  to 
Nonlinear  Effects 

For  the  present  plane-stress  case,  the  expression  for  the  variation 
of  the  work  of  the  stresses  within  the  element  is  given  by+ 


/c  (T)  - I (c  £ £ + <r  £ e + o-  S e ) J.V 
\dU)n  **  XX  yy  YY  *y  *y' 


(A. 32) 


where  cr  and  o are  the  inplane  normal  stresses  m the  x and  y directions 
xx  yy 

and  cr  is  the  inplane  shearing  stress.  Considering  mitially-isotropic 
material,  the  elastic-plastic  stress-strain  relation  can  be  expressed  by 


or 


<r  = C (e-  e f) 

'V  A/  \ ^ A/  / 
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(A. 33a) 


(A. 33b) 


T- 

For  a proper  energy  evaluation,  the  a. . stresses  represent  Second  Piola- 
Kirchhoff  stress  components  since  the1-1?:^  are  Green  strain  components  [14]  . 
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When  the  stress-strain  relation,  Eq.  A. 33,  is  introduced  into  Eq.  A. 32, 
and  then  employing  the  strain-displacement  relations  of  Eqs.  A. 7 and  A. 9,  the 
expression  for  (6u)  will  be  in  the  form: 


($u)„  t “ i ) (a*34) 

NL 

in  which  k is  the  element  linear  elastic  stiffness  matrix  and  f is  the  equiva- 
lent element  force  vector  corresponding  to  nonlinear  material  and  geometric  ef- 


fects, and  is  given  by 
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(A. 36a) 
(A. 36b) 
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In  Eq.  A. 35  the  first  two  integrals  represent  equivalent  nodal  loads  arising 
from  large  deflections,  and  the  third  and  fourth  integrals  represent  equiva- 
lent nodal  loads  corresponding  to  plastic  strains  and  associated,  respectively, 
with  the  linear  and  nonlinear  terms  in  the  strain-displacement  relations;  for 
convenience  of  presentation,  all  of  these  equivalent- load-producing  nonlinear 
effects  have  been  collected  into  a single  expression. 

The  integrals  m Eq.  A. 35  are  evaluated  for  each  time  step  m the 
transient  response  prediction  process  because  the  integrands  (which  are  func- 
tions of  displacements,  strains,  and  plastic  strains)  change  with  time  as  the 
deformation  progresses;  these  integrations  are  evaluated  numerically  by  using 
Gaussian  quadrature,  so  that  the  stresses,  strains,  and  strain  increments  need 
to  be  evaluated  at  a selected  number  of  spanwise  and  depthwise  integration 
stations  (monitoring  points  in  the  Gaussian  quadrature) . 


At  any  instant  in  time  t , the  nodal  generalized  displacement  parameters 

m 

q^  can  be  calculated,  and  one  may  then  employ  the  assumed  displacement  functions 
(Eqs.  A. 3)  together  with  the  strain-displacement  relations  (Eqs.  A. 9,  and  Eqs. 

A. 11  through  A. 13)  to  obtain  the  strains  and  strain  increments  at  any  station 
within  the  element.  Then  the  stresses  and  plastic  strains  are  evaluated;  the 
procedure  is  described  briefly  m the  following. 


The  strain-hardening  behavior  of  the  material  is  accounted  for  by  em- 
ploying the  mechanical- sublayer  material-behavior  model  (see  Subsection  A. 4). 

For  each  mechanical  sublayer,  the  stresses  a , at  time  t , are  known.  Trial 

m ~m-l  m— 1 

T 

(superscript  T)  total  stresses  O at  time  t may  then  be  calculated  by  assuming 

~m  m 

that  the  strain  increments  Ae  from  time  t , to  t are  entirely  elastic 

~m  m-1  m 


-v  m 


S""rn— I 


+ C A 


(A.  37) 


The  trial  stresses  are  then  substituted  into  the  Huber-Mises-Hencky  yield  con- 
dition which  for  plane  stress  is 


Fm  = f(2, 


✓Cm  ; 


where  0 is  the  known  (static  or  strain- rate  dependent)  yield  stress  of  the 
o 
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mechanical  sublayer  being  processed. 

T 

If  F <0,  the  stress  state  lies  within  or  on  the  yield  surface.  In 
m 

this  case,  no  plastic  flow  occurs  within  this  sublayer  during  this  time  step; 

the  stress  state  at  time  t thus  arises  from  wholly  elastic  behavior  (in  this 

m 

sublayer)  over  the  increment  from  t , to  t and  thus 

m-1  m 


and 


cr 
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(A. 39a) 


(A. 39b) 


T 

If  F >0  plastic  yielding  has  occurred.  By  the  flow  rule  of  plasticity, 
m — 

the  plastic  strain  increments  may  be  related  to  the  deviatonc  stress  state 
through  a real,  non-negative  scalar  proportionality  term,  AX.  For  the  plane 
stress  case  this  relation  is 
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(A. 40) 


In  Eq.  A. 40,  the  (known)  stress  state  at  time  t - is  used.  The  use  of  this 

m-l 

stress  state  instead  of  the  trial  state  at  time  t has  been  found  [13]  to  be 

m 

more  accurate  than  the  latter  for  finite  incremental  changes  involving  states 
of  two-dimensional  stress.  The  actual  stresses  are  then  calculated  from 


or 
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where 


A 7) 
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(A. 41c) 


The  plastic  flow  parameter  AX  or  AX*  is  evaluated  from  the  condition 
that  the  actual  stress  state  must  lie  on  the  yield  surface.  Thus,  the  fol- 
lowing condition  must  be  satisfied: 


(A. 42) 


Substituting  Eq.  A. 41a  into  Eq.  A. 42  yields  the  following  relation  for  AX* 

_C B-j / B*-AC~ 
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Also,  the  following  requirements  must  be  satisfied: 

B2  - AC  > o 

B + \|  B2-  AC  > o (A-43c) 

With  AX*  (and  therefore  AX)  determined,  the  stress  state  at  time  t can  be 

m 

obtained  from  Eq,  A. 41a  and  the  plastic  strain  increments  from  t _ to  t 

m-l  m 

can  be  obtained  from  Eq.  A. 40.  This  process  is  carried  out  for  each  mechani- 
cal sublayer  at  each  spanwise  and  depthwise  Gaussian  station.  Once  the  sub- 
layer stresses  and  plastic  strains  in  each  mechanical  sublayer  have  been  de- 
termined, the  stresses  and  plastic  strains  at  that  Gaussian  station  can  be 
found  from  a weighted  Siam  of  the  sublayer  results;  details  of  the  mechanical 
sublayer  model  are  given  in  Subsection  A. 4. 
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During  the  operation  of  the  solution  process  for  intense  loading  problems, 

instances  of  large  strain  increments  can  occur  which  sometimes  may  lead  to  an 

imaginary  (or  negative)  value  of  AA;  that  is,  the  conditions  of  Eq.  A. 43c  are 

violated.  Since  the  time-step  size  for  that  particular  instance  cannot  be 

economically  reduced,  a subincrement  procedure  to  circumvent  this  difficulty 

as  discussed  in  Ref.  13  can  be  and  is  used.  The  basic  finite-time  increment. 

At,  is  divided  into  a number,  say  L,  of  equal  subincrements;  the  size  of  the 

subincrement  is  chosen  to  be  sufficiently  small  so  that  a positive  real  value 

of  AA  for  each  subincrement  can  be  derived  successively.  The  value  of  the 

finite-strain  increments  (Ae)  as  calculated  by  Eq.  A. 11  during  the  time 

~ m 

interval  t to  t are  also  divided  into  L equal  parts,  (Ae)  /L.  It  is 
m-1  m - m 

assumed  that  during  each  subincrement  of  length  At/L  this  change  in  strain  is 

approximately  correct.  Then,  by  employing  the  previously  mentioned  procedure, 

a valid  value  for  AA  along  with  stress  increments  and  plastic  strain  increments 

are  calculated  for  each  subinterval,  and  m the  meanwhile,  the  stresses  and 

plastic  strains  are  kept  updated.  The  process  is  continued  until  either  (a) 

the  information  needed  at  time  t is  calculated  or  (b)  a complex  (or  negative) 

m 

AA  is  encountered.  In  the  latter  case,  the  process  is  repeated  from  time  tm_^ 

using  a larger  value  of  L.  If  the  stresses  at  time  t can  be  derived  success- 

m 

fully,  the  solution  procedure  continues  with  L henceforth  set  to  unity  until 
an  imaginary  AA  is  again  encountered. 


A.  1.3. 3 Element  Stiffness  Matrix 

The  preceding  discussion  pertains  to  the  calculation  of  the  equivalent 
element  nodal  force  vector  f^  in  Eq.  A. 34.  The  remaining  element  property 
matrix  defined  from  the  variation  of  the  work  of  the  stresses  is  the  linear 
elastic  element  stiffness  matrix,  k (see  Eq.  A. 34). 

By  substituting  Eq.  A. 33b  into  Eq.  A. 32,  the  element  stiffness  matrix 
is  seen  to  be  given  from  the  expression 


392 


(A. 44) 
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Equation  A. 7 is  substituted  m Eq.  A. 44  and  the  integration  through  the  thick- 
ness is  performed  to  give 
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(A. 46) 


For  computational  convenience  and  efficiency,  the  stiffness  matrix  is 
first  formed  in  the  normalized  (barred)  system  and  then  transformed  back  to 
the  original  x,y  coordinate  system.  To  this  end,  Eq.  A. 21  (which  represents 
a transformation  of  strains  and  curvatures  from  the  x,y  system  to  the  normalized 
system)  is  substituted  m Eq.  A. 45  to  give 
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where 
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(A. 47b) 


The  derivatives  indicated  m Eq.  A. 47a  are  obtained  by  differentiation 
of  the  interpolation  assumptions  given  by  Eqs.  A. 17a  through  A.17f: 
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Equations  A. 48  can  be  written  m matrix  form  as 
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where  the  4 by  8 matrix  D,  and  the  3 by  16  matrix  D are  obtained  from 
Eqs.  A. 48.  Note  that  the  first  4 columns  of  are  zero.  When  Eq.  A. 19  is 
substituted  into  Eq.  A. 49  and  the  result  substituted  into  Eq.  A. 47a,  the  follow- 
ing expression  is  obtained: 


t 


(A.  50) 


where  k may  be  viewed  as  the  "kernel"  stiffness  matrix  in  terms  of  the  gener- 
alized displacement  parameters  oi  , a. a ...  , and  is  given  by 

I I 


i = j J £ B 


(A.  51a) 


o o 

and  k is  the  "kernel"  stiffness  matrix  m terms  of  generalized  nodal  displace- 
ment parameters  q m the  normalized  system  and  is  given  by 

~ I 

J?  C-, 

(A. 51b) 

Finally,  the  normalized  nodal  displacement  q can  be  related  to  the  generalized 
nodal  displacement  parameters  q m the  form 
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(A.  52a) 


where  the  transformation  matrix  T is  a diagonal  matrix  and  can  be  written  m 
the  form 


T = 
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(A.  52b) 

and  the  diagonal  sub-matrix  t is  obtained  from  Eqs.  A. 15  and  is  given  by 
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The  linear  elastic  element  stiffness  matrix,  k, 
Eq.  A. 52a  into  Eq.  A. 50  to  give 


a,b 


(A.  52c) 


is  defined  by  substituting 
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(A. 53) 


In  practice  k (Eq.  A. 51a)  is  first  formed  with  the  indicated  area  inte- 
gration performed  numerically  by  using  Gaussian  quadrature.  Next  k is 

formed  from  Eq.  A. 51b.  It  is  important  to  recall  that  G is  formed  directly 

_-l~ 

from  Eqs.  A. 18  (no  inversion  is  performed)  and  that  G is  independent  of 
element  geometry,  and  is  thus  identical  for  all  elements;  in  the  PLATE  program 
G is  defined  through  a DATA  statement.  Finally,  k is  formed  from  Eq.  A. 53. 

Since  T is  a diagonal  matrix,  the  matrix  multiplications  indicated  in  Eq.  A. 53 
simply  scale  the  rows  and  columns  of  k to  obtain  k;  this  more  efficient 
scaling  operation  is  used  in  place  of  the  matrix  multiplications  in  Eq.  A. 53. 

A. 1.3.4  Element  Nodal  Loads  Corresponding  to  External  Forces 

The  element  nodal  force  vector  corresponding  to  prescribed  externally 
applied  forces  is  derived  from  the  variation  of  the  work  done  by  these  forces, 

(5W)  , over  the  nth  element.  Since  the  user  is  required  to  write  a subroutine 
which  generates  the  force  vector  for  the  PLATE  program,  a more  detailed  dis- 
cussion of  this  element  property  vector  will  be  provided  to  enhance  the  user ' s 
understanding  of  the  concepts  involved. 

The  nodal  force  vector  may  be  obtained  by  one  of  two  general  methodologies. 
In  the  first  approach,  the  variation  of  the  work  of  the  external  forces  is  evalu- 
ated (by  integration)  using  both  the  spatial  distribution  of  the  external  forces 
as  well  as  the  spatial  distribution  of  the  pertinent  displacements  (as  given 
by  the  interpolation  functions  of  Eqs.  A. 3);  a nodal  force  vector  derived  m 
this  fashion  will  be  terned  a consistent  (or  work-equivalent)  force  vector. 
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In  the  second  approach,  the  interpolated  spatial  distribution  of  the  dis- 
placements is  ignored;  instead,  the  displacement  behavior  is  assumed  to  be 
either  (1)  constant  over  each  quarter  (or  half-side)  of  the  plate  and  equal 
to  the  value  of  the  displacement  at  the  node  associated  with  that  quarter  (or 
half-side)  of  the  plate,  or  (2)  constant  over  the  whole  plate  element  (or 
element  side)  and  equal  to  the  average  of  the  four  (or  two)  nodal  values;  a 
nodal  force  vector  derived  m this  fashion  will  be  termed  a lumped  force 
vector.  The  formulation  of  a consistent  nodal  force  vector  will  be  discussed 
first. 


Three  types  of  force  distribution  are  evident:  (1)  line  forces  (tractions) 
distributed  along  element  boundaries,  (2)  area  forces  which  are  distributed  over 
the  midsurface  of  the  plate  (e.g.  transverse  loading  on  a plate),  and  (3) 
volume  forces  which  are  distributed  throughout  the  plate  element.  The  first 
type  is  rigorously  included  in  all  statements  of  Virtual  Work  and  the  third 
type  may  be  treated  in  the  same  fashion  as  a distributed  body  force.  The  second 
type  may  be  included  as  a special  case  of  a distributed  body  force  m which  no 
variation  occurs  through  the  thickness. 


The  work  (at  a discrete  time  t ) of  the  external  forces  for  a typical 

m 

nth  element,  (W)  , is  given  by 
n 


K - J(FxL£  <v+F»tm<^ 
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where 


(A. 54) 


z 


X 


z 


= Components  of  the  edge  (line)  force  m the  x,y,  and 

z directions,  which  are  in  general  a function  of  the 

2 

element  side  coordinate  and  thickness  (lb/in  ) . 

= Components  of  the  force  acting  over  the  plate  surface 

m the  x,  y,  and  z directions.  Each  component  may,  in 

2 

general,  be  a function  of  x and  y only  (lb/m  ) . 
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5 5 5 

F ,F  ,F  = Components  (m  the  x,  y,  and  z directions  of  the 
x y z 

body  force,  or  any  analogous  force  which  is  dis- 
tributed throughout  the  element  volume  (lb/m^)  . 

The  distribution  of  the  forces  is  assumed  to  be  known.  Equations  A.l 
may  be  substituted  into  Eq.  A. 54  and  the  result  written  in  the  following 


matrix  form 
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where  £ m the  first  integral  is  the  length  of  the  element  side  on  which  the 

force  is  applied.  It  is  generally  more  convenient  to  perform  calculations  in 

the  normalized  coordinate  system,  so  that  Eq.  A. 55  should  be  written  as 
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(A. 56) 


For  the  first  integral  m Eq.  A. 56,  displacements  along  the  boundary 
are  interpolated  by  using  Eqs.  A. 17a  through  A.17e  to  yield  a matrix  relation 
in  the  form 
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(A. 57) 


The  matrix  N (s)  is  obtained  by  evaluating  the  interpolation  assumptions 
along  the  element  boundary  on  which  the  force  is  applied.  The  following  table 
may  be  used  to  put  the  interpolation  of  Eqs.  A. 17a  through  A.17e  into  the 
proper  form: 


Element  Side  Number 
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Replace  £ by 
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Replace  H by 
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The  force  distribution  in  the  first  integral  of  Eq.  A. 56  must  also  be  given  as 

Ij  L L 

functions  F (s,z),  F (s,z),  and  F (s,z). 
x y z 

The  displacement  m the  second  integral  of  Eq.  A. 56  may  be  expressed  in 


terms  of  displacement  parameters  a^,  a^. 


a24  in  matrix  form 
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3 _ 

where  the  interpolation  matrix  N (g,r|),  is  obtained  by  writing  Eqs.  A. 17a, 

A. 17b,  and  A. 17c  m matrix  form.  Also,  the  force  distribution  should  be  given 

A A A 

as  functions  F (£,r|)  , F (£, n) , and  F (£,r|)  . 

x y z 

The  displacements  in  the  final  integral  of  Eq.  A. 56  may  be  interpolated 
m terms  of  a^,  c^,  •••  in  the  matrix  form 
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where  N(£,r|)  is  obtained  by  writing  Eqs.  A. 17a  through  A.17e  in  matrix  form. 

^ B 5 

The  force  distributions  should  be  given  as  functions  F (£,ri/Z)  , F (£,n,  z)  , 

B x y 

and  F (£, r\,z)  . 
z 


If  Eqs.  A. 57,  A. 58,  and  A. 59  are  substituted  into  Eq.  A. 56,  the  work  of 
ernal  forces  can  be  put  in  the  form 
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where  the  vector  f is  given  by 
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(A. 61) 


In  order  to  transform  Eq.  A. 60  into  a form  containing  the  generalized 
nodal  displacements,  q the  displacement  parameters  a , a^r  ...  a24  are  first 
related  to  the  normalized  nodal  displacements,  q,  by  Eq.  A. 19,  and  the 
normalized  nodal  displacements  q are  then  related  to  the  generalized  nodal  dis- 
placements, q,  by  Eq.  A. 52a.  The  final  form  of  Eq.  A. 60  is  then 
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(A. 62) 
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where  f is  the  consistent  element  nodal  force  vector  corresponding  to  ex- 

~ C A 

ternally-applied  forces  and  is  related  to  f (Eq.  A. 61)  by 
r _ a 

Z<=  = T ( g ) f (A. 63) 

Once  the  spatial  distribution  of  the  forces  over  the  element  are  known, 

A 

they  are  substituted  into  Eq.  A. 61  and  the  integration  performed  to  give  f; 
m many  cases,  the  force  distributions  will  be  sufficiently  simple  so  that 
these  integrations  can  be  performed  analytically  and  a simple  algorithm 

A A 

written  to  generate  f for  each  element.  Alternatively,  f may  be  evaluated  by 

using  numerical  integration  (see,  for  example.  Ref.  10  for  a detailed  discussion 

of  numerical  integration  applied  to  the  finite-element  method) . 

No  mention  has  yet  been  made  of  the  time  domain.  As  will  be  shown  in 

Subsection  A. 3,  m order  to  obtain  the  timewise  solution  of  the  governing 

equations  of  motion  for  the  structure,  the  nodal  force  vector  corresponding  to 

externally-applied  forces  must  be  specified  at  discrete  time  instants,  t . 

m 

Thus  Eqs . A. 54  through  A. 63  refer  to  the  work  of  the  externally-applied  forces 

at  a particular  instant  in  time  when  the  spatial  distributions  of  the  forces  are 

Ij  L Ii  A A a 

F (s,z),  F (s,z),  F (s,z),  F (£,r|) , F (£,r|)  , F (£,r|)  , etc.  In  general , these  spatial 
x y z x y z 

distributions  may  change  at  each  discrete  time  instant  and  thus  f must  be  re- 
evaluated for  each  element  at  each  time  instant  using  the  spatial  distributions 
of  the  external  forces  at  that  time  instant. 

Some  simplification  of  this  calculation  may  be  realized  if  the  spatial 
and  temporal  dependence  of  the  external  forces  can  be  uncoupled.  For  simplicity, 
this  simplification  will  be  illustrated  only  for  the  second  integral  of  f (Eq.  A. 61) ; 
but  it  should  be  noted  that  the  development  holds  for  all  integrals  required  to 
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where  g (t) , g (t)  , and  g (t)  are  specified  functions  of  time  and  F (£,n) / 

A ^ A 3 X 

F (£,r|),  and  F (£,n)  are  independent  of  time-  In  this  case,  the  second  mte- 
y z 

gral  of  Eq.  A. 61  would  become 
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The  area  integral  need  be  performed  only  once;  the  result  is  then  appropriately 

scaled  by  g.  (t  ),  g_(t  ),  and  g_(t  ) at  each  time  instant, 
i m 4 m 3 m 

The  greatest  simplification  of  the  calculation  of  f comes  when  the  un- 

— c 

coupled  timewise  variation  of  the  external  forces  is  the  same  for  all  force 
components,  i.e.,  when  all  force  components  may  be  expressed  in  the  form 
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(A. 65) 

In  this  case,  the  scalar  g(t  ) may  be  taken  outside  the  integrals  in  Eq.  A. 61. 

m 

It  is  easy  to  see  that  the  element  force  vector  (f  ) evaluated  at  any  time 

~c  t 

instant  t is  given  by 

m \ = f(t„)  fe 

V 0 ~ (A. 66) 

where  f is  given  by  Eq.  A. 63  and  f is  obtained  from  Eq.  A. 61  and  need  be 
~c  - 

calculated  only  once  for  each  transient  analysis  problem.  It  should  be  noted 
that  the  use  of  Eq.  A. 65  implies  that  the  shape  of  the  applied  force  distribu- 
tion is  identical  at  all  time  steps,  and  that  the  magnitude  of  the  applied 
force  distribution  varies  as  some  prescribed  function  of  time,  g(t) . 


The  second  (lumped)  approach  to  the  formulation  of  the  nodal  force  vector 
utilizes  the  same  force  distribution  as  the  first  (consistent)  approach,  but 
a simplified  assumption  is  used  for  the  displacement  distribution  within  the 
element; the  resulting  force  vectors  will  be  loosely  termed  lumped  force  vectors 
(as  a result  of  the  lumping  or  averaging  schemes  which  will  be  used  to  describe 
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the  displacement  distributions) . Two  types  of  displacement  distribution 
averaging,  and  the  resulting  nodal  force  vectors  (to  be  denoted  by  f^  , and 
f £2) / will  be  described.  For  the  present  development,  there  is  no  need  to  in- 
troduce normalized  coordinates;  thus,  the  distribution  of  the  components  of 

force  at  time  t will  be  specified  in  the  x,  y,  z coordinate  system, 
m 

In  the  first  lumping  scheme,  the  displacement  behavior  within  an  ele- 
ment is  assumed  to  be  constant  over  the  element  and  equal  to  the  algebraic 
average  of  the  current  nodal  displacements  for  the  element.  Thus  the  distri- 
bution of  the  displacements  u,  v,  w,9,  and  ip  in  Eq.  A. 55  are  given  by 
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According  to  the  nodal  degree  of  freedom  numbering  scheme  given  in  Eq.  A. 4, 
Eq.  A. 67  can  be  written  m matrix  form  as 
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where  b is  the  Boolean  matrix 
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(A. 68a) 
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Equation  A. 68  applies  to  the  (averaged  uniform)  distribution  of  displacements 

within  the  element  and  is  in  a form  appropriate  for  substitution  into  the  last 

integral  m Eq.  A. 55.  For  the  second  integral  in  Eq.  A. 55,  only  u,  v,  and  w 

3 3 

are  needed;  m this  case  B in  Eq.  A. 68  is  replaced  by  B where  B is  the  first 
three  rows  of  B.  For  the  first  integral  in  Eq.  A. 55,  the  averaged  uniform 
displacement  distribution  along  the  loaded  element  side  depends  only  on  the 
current  displacements  at  the  nodes  along  that  side.  In  this  case,  the  averaging 
factor  in  Eq.  A. 68  is  1/2  instead  of  1/4,  and  the  form  of  B^  (replacing  B in 
Eq.  A. 68)  depends  on  the  element  side  being  loaded: 
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(A. 69) 


Equation  A. 68  (or  the  equivalent  for  the  first  and  second  integrals) 
is  substituted  into  the  expression  for  the  work  of  the  external  forces  for 
a typical  nth  element  at  time  t to  give 
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The  following  vectors  may  be  defined 
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(A. 71b) 


(A. 71c) 


Then  Eq.  A. 70  may  be  expressed  in  the  form 
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(A. 72) 


where  f^  is  the  first  type  of  lumped  nodal  load  vector  and  is  given  by 

U = i5TL  + §sT  F + §T  | B 

The  operations  shown  in  Eq.  A. 73  correspond  to  the  proper  positioning 


and  addition  of  the  vectors  f , f , and  f into  the  nodal  loads  vector  f„  . 

The  five  entries  in  the  f vector  are  added  into  the  five  locations  corresponding 

-■'Ll 


405 


to  the  first  five  degrees  of  freedom  at  each  of  the  nodes  located  along  this 

A 


element  edge.  The  three  terms  in  f are  added  into  rows  1 through  3,  7 through 
9,  13  through  15,  and  19  through  21  in  f^  (corresponding  to  displacements  u, 

A 

v,  and  w at  each  node) . The  five  terms  in  f_  are  added  into  rows  1 through  5, 

7 through  11,  13  through  17,  and  19  through  23  in  f^  (corresponding  to  dis- 
placements u,  v,  w,  9,  and  ip  at  each  node). 

The  second  type  of  lumped  loading  is  established  through  an  alternate 
assumption  for  the  displacement  behavior  in  the  element.  First  the  undeformed 
rectangular  plate  element  is  subdivided  into  four  equal-size  regions;  using 
the  notation  to  denote  subregion  i (associated  with  node  i of  the  plate) , 
it  is  now  assumed  that  the  displacements  within  each  subregion  are  constant 
and  equal  to  the  value  of  the  displacements  at  the  node  associated  with  that 

subregion.  If  one  thus  defines 
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Next  by  subdividing  the  line,  area,  and  volume  integrals  of  Eq.  A. 55,  the 
work  of  the  external  forces  can  be  defined  m the  form 
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(wi  = i in 


(A. 75) 


where  it  should  be  noted  that  the  length  s^  refers  to  the  half-side  lengths 


associated  with  node  1.  Clearly  the  first  vector  corresponds  to  line  loadings, 
the  second  vector  to  loading  distributed  over  the  mid-surface  of  the  plate, 
and  the  third  vector  to  loading  distributed  over  the  plate  volume. 

The  difference  between  f^  and  f^2  may  be  summarized  as  follows:  at  a 

node,  the  lumped  load  is  equal  either  to  (1)  one-quarter  of  the  total  load 
integrated  over  the  whole  plate  (for  f^  ) > or  (2)  to  the  value  of  the  load 
integrated  over  one-quarter  of  the  plate.  For  a constant  load  (in  space), 
these  two  forms  are  equivalent.  Also,  it  should  be  expected  that  the  second 
form  of  lumping,  f^'  be  the  more  accurate  of  the  two  lumping  schemes. 
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The  preceding  discussion  pertains  only  to  the  spatial  distributions  of 
the  external  force,  and  the  forces  defined  should  be  viewed  as  being  derived 
on  the  basis  of  the  force  distributions  at  a particular  instant  m time.  The 
discussion  of  time  dependence  for  the  consistent  loading  vector  and  correspond- 
ing possible  simplification  also  applies  to  the  two  alternate  lumping  schemes 
and  is,  therefore,  not  repeated  here. 


A. 1.3. 5 Element  Stiffness  Matrix  Corresponding  to  Elastic  Restoring 
Springs 


In  the  PLATE  program,  linear  elastic  line  restoring  springs  may  be 
specified.  These  line  restoring  springs  are  permitted  to  act  only  along 
element  boundaries.  The  variation  of  the  work  done  by  the  restoring  springs, 
<5w  , is  given  by  (writing  - 6w  hereinafter  for  convenience) 

sp  sp 

-SVV^=J  (.Jz^uSu  + + k*  + A'lySWjcLs  (A. 77) 


where  k , k , and  k are  the  line  translational  spring  constants  (units  of 
x y z 

lb/m  per  in  of  span)  corresponding  to  springs  oriented  in  the  x,  y,  and  z 
directions,  respectively;  kg  and  k^  are  the  line  torsional  spring  constants 
(units  of  m-lb/radian  per  in  of  span)  corresponding  to  rotation  about  the 
y and  x axes,  respectively;  and  the  integration  of  Eq.  A. 77  extends  over  the 
i th  side  of  the  element  (i=l,2,3,  or  4). 

For  convenience,  the  normalized  coordinate  system  (Subsection  A. 1.2) 
and  associated  normalized  nodal  degrees  of  freedom  are  used.  Then  Eq.  A. 77 
may  be  written  in  terms  of  normalized  quantities  in  the  matrix  form 
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where  SL  is  the  length  of  element  side  1.  The  normalized  displacements, 
u,  v,  w,  8,  and  ip  must  be  expressed  m terms  of  the  normalized  nodal 
generalized  displacements  at  the  two  nodes  (1  and  i+i)  bounding  element 
side  i.  This  relation  for  side  1 (for  example)  is  given  by 

u = u,  0-s)  + “ZS 

v = V,  (l-s)  + Vz  s (A.  79) 

w — '*/,(i-3sz+Zs)+  \*z  (3s -Zs  ) +0,(s-2s-+s)  + 9Z  (~s  + s) 
e - G,(l-4s  + 3s)+  \ (-ZS  + 3 s2)+w,f^s+6/)+^C6s-^5z) 

q>  = Y,(h3s*+zi)  +%(5sz-zI)+%l(s-zi+i)+Z(-sz+s3) 

and  for  side  4 (where  £=0) , the  relation  is 
u - U,  0-s)  + Uzs 
v = ^j(l-s)  + % 5 

^ = w,(l-3sz+Zsz)  + %(5sz-Zs3)  + Y',  (s-Zsz+ s ) + %(-$  + :?)  (A*80) 

9 = 0,  (l-3s  + 2.s)  + %.(?s-ls)  +%t(s-2<?+sS)  +X4(-s  + s ) 

Tjs  = y,  (l-4s+3sz)  + Y^^s+Ss^  + ^^s  + ^s^  + vv^s-^s2) 


In  general,  these  relations  are  written  m matrix  form: 
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When  Eq.  A. 81  is  substituted  into  Eq.  A. 78,  - Sw  becomes 
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The  normalized  nodal  generalized  displacements  are  then  expressed  in  terms 


of  nodal  displacements  vu,  v . ..  as 
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1 + 1 


where  the  diagonal  matrix,  t,  is  defined  in  Eq.  A. 52c.  Substituting  Eq.  A. 83 


into  Eq.  A. 82  yields 
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where  [k  1 is  the  compacted  stiffness  matrix  corresponding  to  line  elastic 
sp 

restoring  springs  on  element  side  i,  and  is  given  by 


kl  =[T]T[iJ[T] 


(A. 85) 


The  compacted  matrix  [k^]  has  been  obtained  analytically  and  is'  given 

in  Table  A. la  for  element  sides  1 and  3,  and  m Table  A. lb  for  element  sides 

2 and  4.  The  variation  of  work,  -6w  , can  be  related  to  all  of  the  element 

sp  

nodal  displacements,  q by 


(A.  86) 


410 


by  "assembling"  (relocating  and  adding  in)  the  entries  in  the  compacted 

matrices  k or  k1  into  the  element  spring-stiffness  matrix,  k . To  aid  m 
~sp  ~sp  ~sp 

this  assembly  process,  the  rows  and  columns  of  k given  m Table  A.l  are 

~sp 

labelled  with  the  appropriate  nodal  displacements. 

A.  2 Formulations  for  Stiffened  Rectangular  Plate  Elements 

The  PLATE  program  accommodates  integrally-stiffened  flat  plates  where 
the  stiffeners  must  be  oriented  in  the  x and/or  y directions.  Other  assump- 
tions related  to  geometry  and  deformation  behavior  of  the  stiffeners  are  given 
in  Subsection  2.1. 

In  the  PLATE  program,  the  stiffened  plate  element  is  developed  by  super- 
imposing an  unstiffened  plate  element  and  a compatibly  derived  beam  element. 
The  formulation  of  straight  beam  elements  by  the  assumed-displacement  model 
is  a straightforward  process  and  is  detailed  in  most  texts  on  finite-element 
analysis  methods.  For  the  present  case,  the  stiffener  (or  stiffeners)  located 
on  a particular  element  will  be  assumed  to  contribute  only  to  the  kinetic 
energy  (mass  matrix)  and  the  internal  work  of  the  stresses  (stiffness  matrix 
and  equivalent  nodal  loads  corresponding  to  nonlinear  effects) . The  stiffener 
is  assumed  to  have  no  effect  on  the  work  of  the  external  forces  or  the  work  of 
the  line  restoring  springs;  thus,  the  developments  m Subsections  A. 1.3. 4 
and  A.l. 3. 5 apply  to  both  unstiffened  and  stiffened  plates. 

Before  presenting  details  of  the  formulation  of  the  stiffener  contribu- 
tions, some  comments  regarding  the  interpolation  assumption  for  the  stiffeners 
should  be  made.  In  order  to  calculate  the  property  matrices  for  a stiffener, 
the  geometry  (rectangular  cross-section  width  and  height)  and  location  of  the 

stiffener  (q  for  x-direction  stiffeners,  and  E,  for  y-direction  stiffeners) 
s s 

and  the  z-location  (top  or  bottom  of  the  plate)  must  be  known. 

Because  the  stiffener  is  assumed  to  be  perfectly  bonded  to  the  plate, 
the  displacement  interpolation  assumption  of  Eqs.  A. 17  can  be  utilized  to 
determine  the  distribution  of  any  component  of  displacement  within  the 
stiffener  in  terms  of  a, , a„  ...  a...  For  x-direction  stiffeners,  q=q  and 

1 2 S 

E is  the  variable;  for  y-direction  stiffeners,  E,=E,  and  q is  the  variable; 

s 

m both  cases,  the  z-mtegrations  will  extend  over  the  height  of  the  stiffener 
(note  that  the  reference  z=0  is  located  at  the  midsurface  of  the  plate) . Once 
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the  element  stiffness  and  mass  matrices  are  defined  m terms  of  a^,  a 2 ...  a^, 
Eqs.  A. 19  and  A. 52a  are  used  to  transform  these  into  a final  form  which  is 
fully  compatible  with  the  stiffness  and  mass  matrices  of  the  unstiffened  plate 
element  (i.e.  expressed  m terms  of  the  nodal  displacements  of  the  plate 
element) . The  stiffness  (or  mass)  matrix  for  the  stiffened  plate  is  then 
obtained  by  adding  together  the  stiffness  (or  mass)  matrices  of  the  stiffener 
and  the  unstiffened  plate  element  to  which  it  is  attached. 


A. 2.1  Stiffener  Mass  Matrix 


The  consistent  mass  matrix  for  a stiffener  is  derived  from  the  expression 
for  the  kinetic  energy,  (T)  , which  for  a typical  stiffener  element  is 
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(T)  =•  (u.-ze)2+  (</- z cLA  ds 


(A.  87) 


where  A and  p are  the  stiffener  cross-sectional  area  and  mass  per  unit 
s s 

volume.  Introducing  normalized  coordinates  and  normalized  displacements 
and  integrating  over  the  cross-section  of  the  stiffener,  Eq.  A. 87  can  be 
written  in  the  following  matrix  form: 
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where  £ is  the  length  of  the  stiffener  (=  a for  x-direction  stiffeners, 
s 

=b  for  y-direction  stiffeners) , and 
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In  Eq.  A. 89,  is  the  cross-sectional  area  moment  of  inertia  of  the 

stiffener,  and  X is  the  distance  along  the  z axis  from  the  plate  reference 
s 

surface  to  the  centroid  of  the  stiffener.  It  should  be  noted  that  for 
x-direction  stiffeners,  ds  (Eq.  A. 88)  is  equal  to  d£,  and  is  equal  to  dq 
for  y-direction  stiffeners. 

By  substituting  Eq.  A. 25  (evaluated  at  the  stiffener  location)  into 
Eq.  A. 88  and  applying  Eqs.  A. 19  and  A. 27,  the  expression  for  the  kinetic 
energy  can  be  written  in  terms  of  the  nodal  generalized  velocities  of  the 
plate  element  to  which  the  stiffener  is  attached  as: 
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where  ra__  is  the  consistent  element  mass  matrix  for  the  stiffener  and  is  given 
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for  x-direction  stiffeners  and 
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for  y-direction  stiffeners. 

A lumped  (diagonal)  mass  matrix  can  also  be  formed  for  the  stiffener 
element  by  proportionally  lumping  the  total  mass  properties  of  the  stiffener 
to  the  four  corner  nodes  of  the  plate  element  to  which  it  is  attached.  The 
lumped  mass  matrix  is  of  the  form 
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where 


(A. 92a) 


and  where  the  multiplying  factors  f^,  f 2,  f3»  and  depend  on  the  type  and 
location  of  the  stiffener  and  are  assigned  values  as  follows: 


Stiffener 

x-direction 

y-direction 


(1-n  ) (1-n  ) 

s s 


u-y 


(i-y 


A. 2. 2 Element  Equivalent  Loads  Corresponding  to  Nonlinear  Effects 

For  the  present  beam-type  stiffeners,  the  expression  for  the  variation 
of  the  work  of  the  stresses  within  the  element  is 

r 

$ U = '"s  J J <7  cis  <^2  (A. 93 
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where  w is  the  width  of  the  stiffener  and  where  O and  e are  the  stress  and 
s 

strain  in  the  direction  of  the  stiffener.  The  corresponding  stress-strain 
relation  is 
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where  Es  is  Young's  modulus  of  the  sth  stiffener.  When  Eq.  A. 94  is 
substituted  into  Eq.  A. 93,  the  expression  for  6u  reads 
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The  pertinent  strain-displacement  relations  of  Eqs.  A. 8 and  A. 9 

(£  and  < for  x-direction  stiffeners,  and  £ and  k for  y-direction 
xx  xx  yy  yy 


stiffeners)  are  substituted  into  Eq.  A. 95  to  yield 

SO  = if  Asf  -iff  T 


(A. 96) 


where  is  the  stiffness  matrix  of  the  s th  stiffener  (and  is  discussed  in 

the  next  subsection)  and  f^  is  the  vector  of  equivalent  nodal  forces  for 

the  s th  stiffener  corresponding  to  nonlinear  geometric  and  material  effects. 
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and  for  y-direction  stiffeners  is  given  by 
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The  calculation  of  f for  a stiffener  follows  essentially  the  same 
steps  as  for  the  plate  elements  except  that  the  integrations  now  extend  only 
along  the  stiffener  direction  and  through-the- thickness.  The  reader  is 
invited  to  consult  Subsection  A. 1.3. 2 for  a general  discussion. 

A. 2. 3 Element  Stiffness  Matrix 


The  stiffness  matrix  contributions  for  a stiffener  correspond  to  the 
T 

term  Sq  k q in  Eq.  A. 96  and  can  be  derived  from  the  linear  term  in  the  strain- 
- ~s~ 

displacement  relation.  From  Eq.  A. 95  and  A. 96 
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(A.  99) 


or,  since  E^  is  assumed  to  be  constant  over  the  stiffener,  and  integrating 
over  the  stiffener  thickness: 
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The  interpolations  used  for  the  normal  strain,  £,  and  curvature,  ic,  must  be 
compatible  with  that  used  for  the  plate  element  since  perfect  bonding  is 
assumed  at  the  plate/stiffener  interface.  Thus,  the  strain  and  curvature 
are  evaluated  from  the  displacement  interpolations  of  Eqs.  A. 17.  For  an 
x-direction  stiffener: 
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and  for  a y-direction  stiffener: 
2 v _ 
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or  in  matrix  form 
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where  D is  obtained  from  Eqs.  A. 101  for  x-direction  stiffeners  or  from 
Eqs.  A. 102  for  y-direction  stiffeners. 


is 


When  Eq.  A. 103  is  substituted  into 

T 


Eq.  A. 100,  the  resulting  expression 

s * 4s  f = S * 4 2 

A/  A, 


(A. 104) 


where 


• 1 
II 

E 

[V 

As  -As 

5 . 
c 

) 

,~A*\  I.  . 

D ds 


(A. 105) 


/V 


Finally,  the  stiffness  matrix  is  obtained  by  relating  a to  q through  Eqs.  A. 19 
and  A. 27  and  is  given  by 

-l  NT  _ _-i  __ 

(A. 106) 
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The  stiffness  matrix  for  both  x-  and  y-direction  stiffeners  is,  therefore, 
related  to  the  generalized  nodal  displacement  parameters  of  the  plate  element 
to  which  they  are  attached.  As  a result,  the  stiffness  matrix  of  a stiffened 
plate  element  can  be  formed  by  adding  the  stiffness  matrix  of  the  unstiffened 
plate  and  the  stiffness  matrix  of  each  stiffener.  Alternatively,  unstiffened 
plate  and  stiffener  elements  can  be  processed  separately.  In  the  PLATE 
program,  the  latter  approach  is  used. 
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A.  3 Formation  and  Solution  of  the  Governing  Dynamic  Equations  for  the 


Structure 

The  governing  equations  of  motion  for  the  discretized  plate  structure 
are  obtained  by  applying  the  Principle  of  Virtual  Work  and  D'Alembert's 
Principle  to  give 

Z f f(s'i  +&f-t  -C) 

* Y 

X V 

where  n , n , n are  the  number  of  plate  elements,  x-direction  stiffeners, 
p s s 

and  y-direction  stiffeners,  respectively.  The  nodal  generalized  displacements, 
q,  (and  accelerations,  q)  for  each  element  are  then  related  to  the  global 
generalized  displacements,  q*,  by 


(A. 107) 


f = J f‘ 


(A. 108) 


where  J is  a Boolean  matrix.  The  indicated  summations  are  then  performed; 
this  operation  is  the  usual  element  "assembly"  procedure.  After  assembly, 
the  following  matrix  equation  results,  which  governs  the  dynamic,  large- 
deflection,  elastic-plastic  response  of  the  plate  structure; 


F + FNL 

A/  A/ 


(A. 109) 


where 

q*,q* 

M 

K 

F 

pNL 


vector  of  generalized  nodal  displacements  and  accelerations, 
respectively,  for  the  assembled  structure, 
assembled  mass  matrix  for  the  structure. 

assembled  elastic  stiffness  matrix  for  the  structure,  including 
the  effective  stiffness  supplied  by  the  line  restoring  springs, 
vector  of  nodal  forces  for  the  structure  corresponding  to 
prescribed  externally-applied  forces. 

vector  of  nodal  equivalent  forces  for  the  structure  correspond- 
ing to  geometric  and  material  nonlinear  effects. 
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The  solution  of  the  dynamic  equation  of  motion  (Eq.  A. 109)  can  be 
accomplished  by  applying  a direct  timewise  integration  scheme.  In  this 
scheme,  the  time  derivatives  of  the  nodal  displacement  vector  (q*  and  q*) 
are  expressed  at  a discrete  time  instant  m terms  of  the  nodal  displacements 
at  several  nearby  discrete  time  instants.  When  substituted  into  the  govern- 
ing equation  of  motion,  a recurrence  relation  is  obtained  from  which  displace- 
ments can  be  calculated  at  each  discrete  time  instant. 

In  the  PLATE  program,  the  (implicit)  Houbolt  operator  is  used,  so  that 
the  accelerations  q*  at  time  tm+1  are  expressed  by  a 4-pomt  backward-difference 
formula: 
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(A. 110) 


q^+^  at  time  t can  be  expressed  by  the  following  3-pomt 


The  velocities  q^+^  at  time  t 
backward-difference  formula  having  the  same  truncation  error  as  q^+^ 
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(A. Ill) 


For  convenience,  (particularly,  as  will  be  seen  in  Appendix  B,  for  impact 
analysis)  the  terms  in  Eq.  A.  110  can  be  regrouped  so  that  q^+^  at  time  t^+^ 
can  also  be  related  to  q^  at  time  t ; 
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Equation  A. 109  can  be  written  to  express  dynamic  equilibrium  at  time 
as 


M §*  + K t = F + F 
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Equation  A. 112  is  then  substituted  into  Eq.  A. 113  and  the  terms  regrouped 
to  give 


419 


M + K <2*  = P + pNL  +—M(, %.*  + — %*  \ 

v ~ Im+I  /vw+I  /Cai+i  ~ \/vm  At  ) 


(A. 114) 


The  recurrence  relation  given  by  Eq.  A. 114  can  be  solved  at  each  time 

step  for  the  unknown  displacements  q*  , at  time  t , , based  on  the  knowledge 

NL  • 2111+1  m+1 

of  Fm+1'  Fm+i'  and  0nce  is  determined,  the  velocities,  q^+1 

can  be  obtained  from  Eq.  A. Ill,  and  the  solution  advanced  to  the  next  time 

instant.  This  process  is  repeated  until  some  specified  termination  point  is 

reached. 

Several  comments  concerning  the  solution  by  Eq.  A. 114  are  needed.  The 

quantities  and  q£  on  the  right  side  of  Eq.  A.  114  are  known  (or  user 

specified  in  the  case  of  F . , q*,  and  q*)  at  time  t , , but  the  vector  of 

~m+l  ~o  ~o  m+ljj^  NL 

equivalent  forces  corresponding  to  nonlinear  effects,  F^+^  = Fm+]_  ls 

a function  of  q^+^  and  is  thus  not  known.  Consequently,  either  some  form  of 

NT  i 

extrapolation  or  extrapolation  with  iteration  is  required  to  calculate 

In  the  PLATE  program,  a linear  extrapolation  is  used  with  no  iteration  so 
NL 

that  m Eq.  A.  114  is  replaced  by 


FNL  = z Fnl  - FNL, 

a/k4I  m A,  W-l 


(A. 115) 


Equation  A. 114  may  be  used  for  times  t such  that  m+l> 2 . For  earlier 

M+i 

times,  however,  a starting  procedure  must  be  used;  that  chosen  procedure  is  as 
follows  [4],  Use  the  central-difference  operator  to  write: 
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(A. 115a) 


and  a mixed  operator  to  obtain 

f = — + out) 

<o  At 


(A. 115b) 


From  Eq.  A. 115a,  one  obtains 


f , = (At)  f + 2 f ~ f, 

~ -I  -.a  ~0  A.  I 


420 


Applying  Eq.  A. 115c  to  Eq.  A. 115b,  one  finds 


L (*t)  '4-  4 i At  i.  + 7 a.  -gf 

~ '■>  l*  le 

Since  is  given  by  the  Houbolt  operator  as 
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(A.115e) 


one  can  use  Eqs.  A. 115c,  A.115d,  and  A.115e  to  write  the  finite-difference 
equations  of  motion  at  time  t (i.e.  nH-l=l)  as 


(tM+(AtfK)ti=(Atf(  Ft,rL) 
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(A. 116) 


where  F?L  has  been  approximated  (replaced)  by  its  value  at  t=0:FNL  and  q is 

~o  o 

found  from  the  basic  equation  of  motion  written  at  time  t=0: 
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Since  q , F and  F are  all  prescribed,  one  can  find  q . Then,  one  can 
~o  ~o  ~o  ~o 

calculate  q^  from  Eq.  A. 116  since  all  quantities  on  the  right-hand  side  of 

Eq.  A. 116  are  either  prescribed  or  otherwise  known.  Now  one  can  evaluate 
NL 

F^  . Next,  one  can  find  q by  using  the  Houbolt  operator: 
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where  q ^ is  given  by  Eq.  A. 115c.  This  ends  the  starting  procedure. 

Thereafter  one  uses  Eq.  A. 114  as  modified  by  Eq.  A. 115,  followed  by 
Eq.  A. Ill  for  times  t^,  t , ...  to  obtain  the  transient  response 

solution. 
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the 


The  matrices  M and  K,  and  the  time-step  size.  At,  are  held  constant 

throughout  the  timewise  solution.  In  order  to  solve  Eq.  A. 114  for  , 

triple-factoring  form  of  Gauss- Jordan  elimination  is  used.  The  matrix  sum 
2 

[ — - M + K]  is  thus  formed  and  factored  prior  to  the  first  time  step.  At 

At  7 

each  time  step,  q£+1  is  obtained  by  a back- substitution  operation.  The 
increased  computation  time  and  storage  realized  when  using  a consistent 
(fully  populated)  element  mass  matrix  formulation  instead  of  a lumped 
(diagonal)  element  mass  matrix  formulation  is  also  evidenced  by  Eq.  A. 114. 

In  the  case  of  a lumped  mass  formulation,  the  storage  requirements  for  M 
are  the  same  as  for  a vector  of  length  equal  to  the  total  number  of  degrees 
of  freedom,  whereas  if  a consistent  mass  formulation  is  used,  M requires  the 
same  storage  space  as  K which  could  be  as  high  as  2 to  3 orders  of  magnitude 
greater  than  the  total  number  of  degrees  of  freedom.  Also,  the  matrix 
product  Mq£,  for  example,  will  require  more  computation  time  when  a consistent 
mass  formulation  is  used. 

A. 4 Description  of  the  Mechanical-Sublayer  Material  Model 

In  the  present  analysis,  the  strain-hardening  behavior  of  the  material 
is  characterized  by  using  the  mechanical  sublayer  material  model  [6,7]*  in 
this  model,  the  uniaxial  stress-strain  curve  (tension  or  compression  ) is 
first  approximated  by  (n+1)  piecewise-lmear  segments  defined  at  the  coordi- 
nates (cf  , ),  k = 1,2,3  ...  n as  shown  in  Fig.  A. la.  Next  the  material  is 

k k 

conceived  of  as  behaving  at  any  material  point  as  n equally-strained 
"sublayers"  of  elastic,  perfectly-plastic  behavior,  with  each  sublayer  having 
the  same  elastic  modulus,  E,  but  an  appropriately  different  static  yield  stress, 
a , (see  Fig.  A. lb)  given  by 


See  page  6 for  pertinent  comments  and  additional  references. 
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(A. 119a) 
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for  application  to  uniaxial  conditions,  but  by 


(A. 119b) 


for  application  to  multiaxial  conditions  [7,14].  The  stress  value,  a , 
associated  with  the  kth  sublayer  cam  be  defined  uniquely  by  the  strain 
history  and  the  value  of  the  strain  and  strain- rate  present  at  that  point. 
The  stress,  a,  at  that  material  point  corresponding  to  strain,  £,  is  then 
obtained  as  a weighted  average  of  the  stresses  o (e)  in  each  sublayer 
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where  the  weighting  factor  C for  the  kth  sublayer  for  uniaxial  applications 

.K 

is  given  by 


(A. 120a) 


and  that  for  application  to  multiaxial  conditions  is  given  by 
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Two  special  subcases  are  evident;  for  elastic,  perfectly-plastic  materials 
only  one  sublayer  is  required,  and  for  elastic,  linear  strain-hardening 
materials  two  sublayers  are  required  with  the  value  of  the  yield  stress  in 
the  second  sublayer  taken  sufficiently  high  so  that  the  behavior  m that 


sublayer  remains  elastic. 

The  relation  between  sublayer  stresses  and  material  point  stress  given 
by  Eq.  A. 120  is  written  in  terms  of  uniaxial  stresses.  For  the  plane-stress 
state  in  the  plate  elements,  it  is  assumed  that  the  uniaxial  stresses  m 
Eq.  A. 120  may  be  replaced  by  the  corresponding  stress  vectors  so  that 

n 

cr  = T C.  cr.(e) 

~ i ^ ~ 

where  a,  is  the  vector  of  stresses  in  the  kth  sublayer  and  o is  the  vector 
of  stresses  at  the  material  point. 


(A. 121) 


Strain-rate  effects  may  also  be  easily  accommodated  in  the  mechanical 
sublayer  model,  by  assuming  that  the  yield  stress  m each  sublayer  follows 
the  relation 
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where  D and  p are  material  constants  and  CT  is  the  current  yield  stress  in 

. k 

sublayer  k corresponding  to  a strain- rate  £,  and  a , is  the  static  yield 

ok 

stress  of  sublayer  k.  Figures  A. 2a  and  A. 2b  illustrate  the  strain-rate 
effects  for  an  elastic,  perfectly-plastic  material,  and  for  a strain-hardening 
material  which  is  represented  by  the  mechanical  sublayer  model,  respectively. 

It  should  be  noted  that  the  material  strain-rate  parameters  D and  p 
are  assumed  m the  PLATE  code  to  be  identical  for  each  mechanical  sublayer 
for  a given  material  type.  More  comprehensive  strain-rate  behavior  could 
be  accommodated  m the  future  by  assuming  different  values  of  D and  p m each 
sublayer.  Also,  the  equivalent  uniaxial  strain  rate  k for  the  thin  plate  under 
the  Kirchhoff  assumption  of  no  transverse  normal  or  shear  strain  rate  is  calcu- 
lated by+  . I*  , . _ ^ 


At 


(.A\HAgyy)~  Agx*Agyy  +l(AiU 


xr 


(A. 123) 


where  A(  ) are  the  increments  of  ( ) over  the  current  time  step.  The  value 
of  each  incremental  strain  can  be  obtained  from  Eqs.  A. 12,  and  the  value  of 
t calculated  from  Eq.  A. 123  is  then  used  m Eq.  A. 122. 

+See  pp.  35-45  of  Ref.  28. 
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Note,  as  depicted  in  Pig.  A.lc,  that  unloading,  reversed  loading  and 
straining,  reloading,  etc.  are  accounted  for  very  simply  and  efficiently 
(computationally)  by  this  model.  As  noted  in  Subsection  2.1,  this  mechanical- 
sublayer  material  model  accounts  for  nonlinear  strain  hardening,  anisotropic 
strain  hardening,  the  formation  of  corners  on  the  yield  surface,  and  the 
Bauschmger  effect  — all  of  these  are  features  that  ductile  metals  exhibit. 

No  other  material  model  devised  to  date  appears  to  represent  these  features 
as  faithfully  and  efficiently  as  does  the  mechanical-sublayer  model. 


A. 5 Evaluation  of  the  Elastic  Strain  Energy 

The  elastic  strain  energy  per  unit  volume  is  given,  in  general,  for 
isotropic  material  by : 
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A.5ol  Plate  Element  Evaluation 


For  the  plane  stress  (plate  element)  state  where  a = a =a  = 0, 
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this  reduces  to: 
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Hence,  for  a plate  element  of  dimensions  a,  b,  h m directions  x,  y,  and 
z respectively,  the  elastic  strain  energy  in  the  plate  element  becomes 
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where  x = x/(a/2),  y = y/(b/2) , and  z = z/(h/2).  The  quantity  U for  each 
plate  element  is  evaluated  by  Gaussian  quadrature  with  3 x-direction,  3 y- 
direction,  and  4 depthwise  Gaussian  stations  at  each  of  the  9 spanwise  Gaussian 
stations. 


A. 5.2  Evaluation  for  Stiffener  Elements 

Each  stiffener  behaves  in  a Bemoulli-Euler  fashion.  Hence,  only  the 

axial  stress  (cr  for  an  x-direction  stiffener  or  O for  a y-direction 
xx  yy 

stiffener)  contributes  to  the  elastic  strain  energy.  Accordingly  for  an 
x-direction  stiffener  of  length  i , width  w , and  height  h , the  elastic 


strain  energy  is  given  by 
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where  E,  = x/(£  /2)  and  ? = z/(h  /2) . In  the  computer  program,  U is  evaluated 
s s 

by  Gaussian  quadrative  by  using  4 depthwise  Gaussian  stations  at  each  of  3 
spanwise  Gaussian  stations. 


A.  6 Comments  on  Estimating  the  Plastic  Work 

For  calculation  convenience,  the  plastic  work  in  the  entire  structure 
is  evaluated  at  each  time  instant  m an  indirect  fashion.  For  example,  if 
the  structure  were  subjected  to  only  a prescribed  initial  velocity  distri- 
bution, one  would  evaluate  the  associated  initial  kinetic  energy  (KE  ) ; 

o 

thereafter  at  any  time  instant,  one  would  evaluate  (a)  the  total  kinetic 
energy  (KE)  (b)  the  total  elastic  strain  energy  EE.  Then  the  Plastic  Work 
(PW)  is  estimated  from 


PW  = (KE)' 


KE  - EE 


(A. 128) 
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On  the  other  hand  if  the  structure  were  subjected  only  to  a prescribed 
distribution  and  time  history  of  externally  applied  forces,  the  work  done  on 
the  structure  by  those  forces  from  time  zero  until  the  present  instant  of  time 
is  computed  and  saved;  this  is  called  the  work  input  (WI) - In  this  case,  the 
plastic  work  is  estimated  from; 

PW  = WI  — KE  _ EE  (a. i29) 

The  work  input  (WI)  to  the  structure  by,  for  example,  the  externally 
applied  loads  {f}  may  be  evaluated  by  using 
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(A. 130) 


where  for  evaluations  up  to  time  instant  t = nAt,  one  may  use  the  trape- 

n 

zoidal  rule  to  write 


WI(t„)=^-(H+H,)+ V (VHJ -*••"+ 

where  H = LF.l{i}  = power  input  at  t=0 

H=LF,J{f}  = power  input  at  t = lAt 


(A. 131) 


WI  Co)  = O 

This  is  the  procedure  employed  in  the  computer  program* 
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(b)  [k^]  for  Plate  Sides  2 and  4 


TABLE  A. 1 CONCLUDED 


UNIAXIAL  STRESS,  O UNIAXIAL  STRESS 


FIG.  A. 1 APPROXIMATION  OF  A UNIAXIAL  STRESS-STRAIN  CURVE  BY  THE 
MECHANICAL-SUBLAYER  MODEL 
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STRESS,  a STRESS 


APPENDIX  B 


GOVERNING  EQUATIONS  ON  WHICH  THE  CIVM-PLATE  PROGRAM  IS  BASED 
B.l  Introduction 

The  CIVM-PLATE  program  is  designed  to  predict  the  large-deflection, 
elastic-plastic,  transient  responses  of  stiffened  and/or  unstiffened 
mitially-flat  plates  subjected  to  impact  by  an  idealized  rigid  spherical 
fragment  having  specified  translational  and/or  rotational  velocity  components 
prior  to  impact.  Much  of  the  theoretical  basis  of  the  CIVM-PLATE  program  is 
identical  to  that  of  the  PLATE  program;  this  is  evidenced  by  the  large 
number  of  computer  subroutines  shared  by  the  PLATE  and  CIVM-PLATE  program 
(see  Sections  3 and  6) . The  key  difference  between  the  two  programs  is  the 
cause  of  structural  response.  In  the  PLATE  program,  structural  response  is 
a result  of  prescribed  initial  nodal  velocities  or  prescribed  externally- 
applied  forces.  In  the  CIVM-PLATE  program,  structural  response  is  a result 
of  fragment/plate  impact  and  interaction;  no  other  form  of  "external  loading" 
is  permitted. 

The  governing  equations  used  to  formulate  the  element  property  matrices 
for  unstiffened  and  stiffened  plate  elements  also  apply  to  the  CIVM-PLATE 
program  and  the  reader  is  invited  to  consult  Subsections  A. 1 and  A. 2 for 
a discussion  of  these  developments.  However,  the  following  exceptions  should 
be  noted.  Since  no  externally-applied  forces  are  allowed  in  the  CIVM-PLATE 
program,  the  development  of  nodal  force  vectors  given  in  Subsection  A. 1.3.4 
is  not  required  in  the  CIVM-PLATE  program.  Also,  in  order  that  the  mass 
properties  of  the  plate  used  in  the  transient  structural  response  calculations 
be  consistent  with  those  assumed  m the  impact- interaction  calculations, 
only  lumped  (diagonal)  mass  matrices  (Eqs.  A. 30  and  A. 31,  and  A. 92)  are  used 
in  the  CIVM-PLATE  program. 

To  predict  the  transient  response  of  the  plate  structure,  programming 
logic  must  be  introduced  which  (1)  detects  the  time  and  location  on  the  plate 
of  a plate/fragment  collision,  (2)  predicts  the  interaction  between  the  plate 
and  fragment  during  the  collision,  and  (3)  moves  the  transient  structural 
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response  calculations  ahead  m time.  The  formulation  of  the  equations 
governing  the  collision  inspection/ interaction  analysis  is  given  m Subsec- 
tion B.2,  and  a description  of  the  solution  of  the  governing  dynamic  equa- 
tions of  motion  of  the  rigid  fragment  and  the  structure  is  given  m 
Subsection  B.3.  Finally,  the  step-by-step  program  flow  of  the  collision 
inspection/interaction  analysis  is  discussed  in  Subsection  B.4. 

A detailed  list  of  the  assumptions  which  apply  to  the  collision 
inspection/interaction  analysis  as  well  as  a terse  description  of  each  of 
these  procedures  is  given  in  Subsection  2.4.  It  is  recommended  that  the 
information  m that  subsection  as  well  as  Fig.  7 be  reviewed. 

B. 2 Plate/Fragment  Collision  Inspection/Interaction  Analysis 

B.2.1  Inspection  for  Location  of  Plate/Fragment  Collision 

The  first  task  in  the  collision  inspection/interaction  analysis  is  to 
determine  if  a plate/fragment  collision  has  occurred  during  the  current  time 
step  and,  if  so,  to  determine  the  position  on  the  plate  where  the  collision 
occurs;  this  is  a problem  of  geometry.  Previous  inspection  schemes  for  two- 
dimensional  beam/ring  impact  codes  such  as  CIVM-JET  4B  [3]  and  CIVM-JET  5B 
[ 4 ] have  been  based  on  the  approximation  that  the  deformed  beam/ring  element 
is-  straight  (for  the  sake  of  inspection  calculations  only) ; these  schemes 
attempt  not  only  to  determine  the  point  of  collision  but  also  to  calculate 
the  approximate  instant  of  the  time  of  collision.  Such  techniques  require 
a knowledge  (or  assumption)  of  the  structure  nodal  and  fragment  centroidal 
location  as  a function  of  time  within  each  time  step. 

The  calculation  of  the  instant  of  collision  is  deemed  not  practical  at 
present  for  plate/fragment  impact  problems.  Instead,  trial  positions  for  the 
plate  nodes  and  the  centroid  of  the  spherical  fragment  at  the  end  of  a time 
step  are  calculated.  Based  on  these  trial  positions  and  various  simplifying 
assumptions  on  the  space  occupancy  of  the  plate  elements  between  nodes,  the 
space  occupancy  of  the  plate  elements  and  the  spherical  fragment  are  compared; 
if  any  overlap  of  the  plate  and  fragment  are  detected,  a collision  is  said 
to  have  occurred  during  that  time  step.  No  attempt  is  made  to  calculate  the 
precise  instant  in  time  of  plate/fragment  collision.  Instead,  the  collision 
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is  assumed  to  have  occurred  at  the  beginning  of  the  time  step,  and  the 
corrections  invoked  as  a result  of  the  impact  interaction  analysis  are 
enforced  at  the  beginning  of  the  time  step- 

— t 

The  inspection  for  plate  fragment  overlap  is  based  on  current  trial 
positions  of  the  plate  nodes  and  fragment  centroid  at  the  end  of  each  time 
step;  time  as  a variable  does  not  enter  into  these  calculations.  The 
inspection  for  position  (on  the  plate)  of  plate/fragment  overlap 
can  be  accomplished  by  inspecting  for  overlap  in  each  element.  However, 
this  potentially  time-consuming  inspection  process  has  been  simplified  in 
the  CIVM-PLATE  program.  First,  the  distance  from  the  fragment  centroid 
to  each  nodal  position  is  calculated  and  the  node  closest  to  the  fragment 
centroid  is  identified.  The  plate/fragment  overlap  (if  any)  should 
be  found  in  one  of  the  elements  connected  to  the  identified  node.  At  most, 
four  plate  elements  can  be  connected  to  the  identified  node  and  thus  the 
inspection  is  carried  out  element  by  element  over  these  four  (or  fewer) 
elements. 

The  inspection  procedure  within  each  element  must  be  simplified  further. 
Prior  to  initial  impact  each  plate  element  is  flat,  of  rectangular  planform, 
and  of  uniform  thickness.  After  deformation  the  space  occupancy  of  a single 
element  is  complicated  and  is  a combination  of  the  plate  initial  coordinates 
plus  the  assumed  deformation  shapes  given  by  Eqs.  A. 3.  Inspection  using 
this  complicated  surface  has  been  judged  to  be  impractical  and  inefficient. 
Instead,  the  following  simplified  geometry  has  been  used;  as  discussed  in 
Subsection  2.4,  the  plate  element  is  subdivided  into  two  triangles  using  the 
convention  shown  in  Fig.  6.  A planar  triangular  region  is  then  defined  by 
the  current  location  of  the  three  nodes  associated  with  the  triangle.  The 
inspection  for  each  element  is  thus  divided  into  two  inspections,  each  over 
a triangular  region.  The  remainder  of  this  subsection  is  devoted  to  the 
presentation  of  the  equations  which  may  be  used  to  determine  whether  overlap 
between  the  spherical  fragment  and  a triangular  planar  region,  and,  if  so, 
to  calculate  the  amount  of  this  overlap. 


435 


Assume  a triangular  planar  region  of  uniform  thickness,  h,  in  global 
x,y,z  space  with  the  midsurface  defined  by  the  coordinates  (x^,y^),  i=l,2,3 
of  the  corners  of  the  triangle.  The  idealized  rigid  spherical  fragment  of 
radius  R is  located  by  the  coordinates  (xf,y^,zf)  of  its  centroid  (Fig.  5) 
relative  to  the  same  global  x,y,z  system.  The  nodal  numbering  sequence  for 
either  triangular  inspection  subregion  has  been  chosen  (see  Fig.  B.l)  in  such 
a way  that  a vector,  v , which  is  normal  to  the  triangular  region  (and 
therefore  normal  to  the  plane  defined  by  the  triangular  region)  can  be  defined 
by  the  vector  cross-product 


V = V x V 

vn  viZ  vi3 


(B.l) 


where  ls  the  vector  from  node  1 to  node  2 and  is  the  vector  from 

node  1 to  node  3 of  the  triangle.  The  vector  will  be  directed  toward  the 
outer  surface  of  the  plate,  and  it  is  assumed  that  impact  always  occurs  on 
the  inner  surface  of  the  plate.  The  vectors  and  can  be  defined  in 
terms  of  the  global  coordinates  of  the  nodes  of  the  triangle.  Using  the 


notation  x ,=x  -x  etc.  to  define  the  difference  between  nodal  coordinates, 
13.  i D 

the  vector  can  be  evaluated  from  Eq.  B.l  and  is  given  by 


AAA 


V„  = 

A f + 

are  unit 

vectors 

A = 

B = 

*31 

C = 

x2,  y3 

A 

If 


(B.  2) 


where  i,3,k  are  unit  vectors  in  the  global  x,y,  and  z directions  and 


zi 


(B. 2a) 


*21  *3/ 

*3, 

A coordinate  transformation  is  required  (for  the  later  stages  of  collision 
inspection  and  for  all  phases  of  collision  interaction  to  a system  x y z such 
that  the  z axis  (or  N axis,  as  used  in  the  impact  interaction  analysis)  is 
normal  to  plane  of  impact  (m  the  triangular  region  where  overlap  occurs)  and 
the  x and  y axes  lie  in  the  impacted  plane.  This  coordinate  transformation 
will  now  be  derived. 

The  vector  V is  normal  to  triangular  plane  and  is  directed  along  the  z 
n /% 

axis.  The  unit  vector  k in  the  z direction  can  then  be  defined  from  Eq.  B.2  as 
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(B.  3) 


Jt  = 


_A_ 

i. 
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B A C A 

+ ~r  * + ~r  -*■ 

^3 


where  £ is  the  length  of  the  vector  and  is  given  by 


4 = [a2  + B2  + c2]2 


(B. 3a) 


In  order  to  define  the  x and  y coordinates  which  lie  in  the  plane  of  the 
triangle,  one  of  these  directions  may  be  chosen  arbitrarily;  m the  present 
case,  it  is  assumed  that  the  x axis  is  directed  from  node  1 to  node  2 of  the 
triangle.  The  vector  V1 _ is  thus  directed  along  the  x axis  and  the  unit 
vector  i along  the  x axis  can  be  defined  as 


A 

L = 


'21 


i, 


1 + 


y*\  a 

X'  + 


21 


A 

Ji 


(B.  4) 


where  £^  is  the  length  of  the  vector  given  by 


4 = f 4 


'21 


+ 2 


21 


] 


2 


(B. 4a) 


The  unit  vector  j along  the  y axis  can  then  be  defined  in  terms  of  k and  i 


by  the  vector  cross-product 

A A.  A 

X 1 


$ = * 

which  upon  substitution  of  Eqs.  B.3  and  B.4  becomes 

(a  * 2 1 a Zji) 


(B.  5) 


t __  (B^-CjQ 
7 ~ 1,1, 


A 

L + 


A 4 


z\  (A  Yt\  *“  B *2i)  * 

1 + — * 


yt,  1-1 


(B.  5a) 


'3  A- 1 -*-3 

The  coordinate  transformation  matrix  can  now  be  defined.  Consider  any 
vector  V having  components  (vx'Vy'vz)  the  XYZ  coordinate  system,  and 
components  (V^V^V^)  in  the  x y z coordinate  system.  The  vector  V may  be 
written  in  terms  of  components  m either  coordinate  system  and  therefore 
the  following  equality  must  hold; 

~ A — A A 


(B.  6) 
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The  relation  between  components  (V  ,V  ,V  ) and  (V  ,V  ,V  ) is  obtained  by  first 

aX  y z x y z /n 

dotting  both  sides  of  Eq.  B.6  by  i,  then  dotting  both  sides  of  Eq.  B.6  by  3, 

A 

and  finally,  dotting  both  sides  of  Eq.  B.6  by  k.  The  three  equations  thus 


(B.  7) 


obtained  can  be 

written 

/ — 'i 
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Is  • A 

A A. 

A-  Jl 

or 


v = T V 


(B. 7a) 


The  matrix  T is  the  required  transformation  matrix  to  obtain  components  of 

a vector  in  the  x y z coordinate  system  in  terms  of  components  m the  xyz 

coordinate  system.  The  inverse  of  Eq.  B.7a  can  be  obtained  by  noting  that 

-1  T 

T is  an  orthogonal  matrix  (having  the  property  that  T =T  ) so  that 


V = JT  V 


(B. 7b) 


The  unit  vector  dot  products  in  Eq.  B.7  can  be  evaluated  from  Eqs.  B.3,  B.4, 
and  B.5a  giving  T in  terms  of  known  nodal  coordinates  (and  other  previously- 
defined  quantities  related  to  nodal  coordinates)  by 


T = 
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*21 
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c 


(B.  8) 


The  perpendicular  distance,  d^  , between  the  fragment  centroid  and  the 
plane  of  the  triangle  can  be  calculated  by  noting  that  by  applying  the  above 
coordinate  transformation,  the  triangular  region  now  lies  in  a z = constant 
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plane.  The  distance  d,  can  be  calculated  as  the  difference  between  the  z 

fp 

location  of  the  fragment  centroid  (obtained  by  transformation  of  the  fragment 
centroid  coordinates  xf, and  zf  using  the  last  row  of  T and  Eq.  B.7a)  and 
the  z location  of  any  triangle  node  (here  the  z location  of  node  1 is  used, 
obtained  by  using  the  last  row  of  T and  Eq.  B.7a).  Adopting  the  convention 
that  a negative  value  of  d^_  implies  that  the  fragment  centroid  is  below  the 
plate  (m  a negative  z direction  from  the  plate) , df^  is  given  by 


dfp=  = Vy x.)  +1JA-y.)  + Ts<Vz') 
_ A(V*,)  + B(yr-  h)  + C (yQ 


(B.  9) 


] 


[a1  + b2  + y 

intior 

(amount  of  plate/fragment  overlap) , can  be  calculated  as 


Using  the  above-mentioned  convention  for  d_  , the  penetration  distance,  d 

fp  o 


(B. 10) 


where  r^  is  the  radius  of  the  rigid  spherical  fragment  and  h is  the  (constant) 
thickness  of  the  plate. 

Impact  can  occur  only  if  dQ  is  positive.  If  dQ  < 0,  no  further  inspec- 
tion is  required;  overlap  cannot  occur.  If  dQ  is  positive,  this  implies  that 
overlap  occurs  at  some  point  located  by  coordinates  (xn,y^,z^)  t*ie  plane 

which  includes  the  triangular  region.  The  coordinates  (x  ,y  ,z  ) of  the 

n n n 

point  on  the  plane  which  is  along  the  normal  line  from  (x^,yf,zf)  to  the 

plane  and  at  which  the  overlap  dQ  is  obtained  must  be  found.  The  vector 

from  (x,,y.,z.)  to  x ,y  ,z  ) has  a magnitude  of  d_  and  is  directed  in  the 
f f f n Jn  n fp 

positive  z direction  if  d is  negative.  The  components  of  this  vector  in 
the  xyz  coordinate  system  can  be  obtained  by  applying  Eq.  B.7b  to  give 
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(^X = " 
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Bdfp 
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(B.ll) 
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Hence,  the  coordinates  (x^y^z^)  can  obtained  by  adding  these  components 
to  the  fragment  centro idal  position  as 


(B. 12) 


where  A,  B,  and  C are  given  by  Eqs.  B.2a,  SL ^ by  Eq.  B.3a,  and  d^  is  calcu- 
lated from  Eq.  B.9.  An  inspection  must  be  performed  to  determine  if  the 
point  (x^y^,  z^)  falls  within  the  triangular  inspection  region. 

The  transformation  given  by  Eq.  B.7a  can  be  applied  to  the  coordinates 
of  the  corners  of  the  triangle  yielding  (x^y^z^,  (x2'y2,Z2*  ' and  ^x3,y3,z3^ 

and  to  the  point  of  maximum  overlap  (x  ,y  ,z  ) to  give  (x  ,y  ,z  ) where 
_ _ _ ~ "nnn  nnn 

z =z  =z  =z  . Triangular  coordinates  (L, ,L„,L_.)  can  be  defined  by  (see,  for 
1 2 3 n 12  3 

example.  Ref.  10) 
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and  A*  is  the  area  of  the  triangle  and  is  given  by 


A = Y *» Yz+XiYi  - *zY<  - xsYz 


- *r  h) 


(B. 13b) 


It  can  be  verified  easily  that  for  all  values  of  (x,y)  within  the  triangle, 
the  values  of  the  triangular  coordinates  (L^/L^L^)  will  be  between  0 and  1. 

To  check  if  point  (x^y^  falls  inside  the  triangular  region,  the  coordinates 
(xn,yn)  are  substituted  into  Eqs.  B.13.  If  the  point  (x^y^)  is  within  the 
triangle,  the  following  conditions  must  be  satisfied: 

° — ^ (B.  14) 

O 6 L2(xn)y n)  6 I 

o 6 L9  ( y„)  £ I 

If  any  of  Eqs.  B.14  is  violated,  the  point  of  maximum  plane/fragment  overlap 
is  not  within  the  triangular  region  and  no  plate/fragment  overlap  occurs  in 
this  triangular  inspection  region. 

If  Eqs.  B.14  are  satisfied,  a plate/fragment  impact  has  occurred  during 

the  current  time  step  at  point  (x  ,y  ) {or  at  point  (x  ,y  ,z  ))  in  this 

n n n n n 

triangular  inspection  region  with  an  overlap  (penetration)  of  dQ  given  by 
Eq.  B.10.  This  procedure  is  followed  for  each  of  the  two  triangular  inspection 
regions  for  each  element  in  the  region  of  interest.  As  a result  of  this 
inspection,  it  is  possible  that  either  (a)  no  positive  penetrations  or  (b)  one 
or  more  positive  penetrations  will  be  found.  If  no  positive  penetrations  are 
found  (i.e.  dQ  <_  0 or  Eqs.  B.14  are  not  satisfied  for  all  triangular  inspection 
regions),  fragment/plate  impact  has  not  occurred  during  the  current  time 
cycle . 

If  fragment/plate  impact  occurs  during  the  current  cycle,  one  or  more 

positive  dQ  (with  Eqs.  B.14  also  satisfied)  values  will  be  found.  If  only  one 

positive  d is  detected,  impact  is  said  to  occur  at  (x  ,y  ,z  ) as  described 
o n n n 

above.  However,  it  should  be  recalled  that  no  attempt  is  made  in  the  present 
program  to  "subdivide"  the  time  step.  At,  m order  to  identify  precise  times 
of  impact,  etc.  Such  schemes  introduce  unwanted  complications  and  additional 
computations,  as  they  tend  to  engender  an  excessive  number  of  "special  cases" 
and  corresponding  checks.  Therefore,  if  more  than  one  positive  overlap  is 
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detected  during  the  inspection,  no  attempt  is  made  to  identify  which  "impact 
occurred  first.  Instead,  the  2 or  more  impacts  are  assumed  to  have  occurred 
simultaneously,  and  their  effects  are  imposed  (as  described  earlier)  at  the 
beginning  of  the  time  cycle. 

The  developments  m this  subsection  have  concentrated  on  a typical 
triangular  inspection  region.  For  purposes  of  impact  correction  (see  the  collision 
interaction  analysis  to  be  described  in  Subsection  B.2.2),  the  point  of  impact 
and  the  plane  of  impact  must  be  defined  (along  with  the  corresponding  coordi- 
nate transformation  matrix).  If  only  one  overlap  occurs,  the  point  and  plane 
of  impact,  and  transformation  are  as  described  earlier.  If  2 or  more  overlaps 
occur,  a modified  definition  is  needed  and  is  described  m the  following. 

It  is  assumed  that  all  points  of  overlap  and  associated  planes  of  impact 
for  the  cycle  have  been  identified.  If  more  than  one  overlap  has  occurred, 
effective  plate/fragment  impact  is  said  to  occur  at  the  location  (x  ,y_ ,z  ) 

1 ' cl  cl  cl 

which  is  computed  as  the  algebraic  average  of  all  points  of  plate/fragment 

overlap.  The  effective  plane  of  impact  and  associated  coordinate  transforma- 

/\ 

tion  must  also  be  defined.  The  unit  outward  normal,  k , to  the  effective 

a 

plane  of  impact  is  given  by 


(B.15a) 


where  A , B , and  C are  the  sum  of  the  x,  y,  and  z components,  respectively, 

cl  cl  cl 

of  the  unit  outward  normals  to  each  plane  of  overlap.  Also, 


Z _ 2 ^2 

A + + C 


(B.15b) 


so  that  is  a unit  vector.  Note  that  this  is  analogous  to  defining  the 
"average"  plane  of  impact. 

In  order  to  define  the  necessary  coordinate  transformation  matrix  (analogous 

to  Eqs . B.7-B.8),  the  inplane  x-y  coordinate  directions  must  be  identified. 

Therefore,  define  a vector  C-  as 

x 


c = (*i  - \)  ? + (Yi  -y*))+  (*<  - 


(B. 15c) 
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where  (x  ,y  ,z  ) is  some  as  yet  unspecified  location.  Now  require  that  C- 

111  X 

define  the  x direction  and,  therefore,  lie  in  a plane  having  the  unit  outward 

A 

normal,  k . Thus,  (x  ,y^,z  ) should  be  chosen  such  that 
A 


A ■ c_  = o 

a.  x 


(B.lSd) 


Clearly,  two  of  the  coordinates  can  be  chosen  arbitrarily  and  the  third 
determined  from  Eq.  B.lSd.  The  following  choices  satisfy  Eq.  B.15d: 


(*i  - = ' 

(2i  ) £ — a. 


(B.15e) 


so  that  the  unit  vector,  i,  in  the  x direction  is  given  by 


where 


a. 


2, 


( ? + j - 4 ^ ) 


A = \ 2+4 


(B.15f ) 


(B.15g) 


The  unit  vector,  3 , m the  y direction  is  then  given  by 

cl 

t = t x l = T H i 


(B.15h) 


where 


- JLt  iz 


(B. 15i) 


With  the  coordinate  directions  of  the  effective  plane  of  impact  defined 
above,  the  coordinate  transformation  matrix,  T,  can  be  defined  via  Eqs.  B.7 


AAA 


and  B.7a  with  i,  3,  k in  B.7  replaced  by  i , 3 , k , respectively,  defined 

3 cl  cl 

in  Eqs.  B.15a,  B.15f,  and  B.15h.  The  result  is 
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T = 


C-S.4-Q) 
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fCa+  4.) 
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(B.15j) 


It  should  be  noted  that  the  identification  of  an  effective  point  of  impact 
for  multiple  overlaps  during  a time  step  is  used  only  m the  general  whole- 
plate  analysis.  For  the  symmetry  cases,  maximum  positive  penetration 
determines  the  point  and  plane  of  impact.  Also  note  that  the  present  effective 
point  and  plane  of  impact  reduces  to  the  actual  point  and  plane  of  impact  for 
cases  where  only  one  overlap  is  found.  Finally,  in  subsequent  discussion  and 
descriptions,  the  terminologies  "point  of  maximum  penetration",  "point  of 
impact" , and  "point  of  effective  impact"  may  be  used  interchangeably. 


B.2.2  Collision  Interaction  Analysis 

Momentum  and  energy  considerations  are  utilized  to  predict  the  inter- 
action between  the  rigid  fragment  and  the  plate  once  a plate/fragment 
collision  (overlap)  is  detected.  First  the  region  of  the  plate  affected  by 
the  impact  is  defined;  those  nodes  which  fall  m this  region  of  the  plate 
are  termed  the  impact-affected  nodes.  The  impact  interaction  analysis  to  be 


444 


described  in  this  subsection  is  then  used  to  predict  the  changes  in  velocity 
of  the  fragment  and  of  the  impact-affected  nodes.  This  procedure  is  termed 
the  Collision-Imparted-Velocity-Method  (CIVM) . The  CIVM  has  been  previously 
utilized  in  2-D  beam/ring  codes  [1,2,3,4L,_  and  is  extended  here  for  the 
present  3-D  plate  impact  analysis. 

As  discussed  in  the  previous  subsection,  no  attempt  is  made  to  identify 
the  precise  instant  in  time  (during  the  time  step.  At)  at  which  impact  occurs. 
Instead,  when  plate/fragment  overlap  is  detected  at  the  end  of  a time  step, 
the  velocity  corrections  (as  a result  of  impact)  are  based  on  the  positions 
and  velocities  at  the  beginning  of  the  time  step  and  corrections  are  imposed 
at  the  beginning  of  the  time  step. 

Before  calculating  velocity  corrections,  the  impact-affected  region  of 
the  plate  must  be  defined.  For  present  purposes,  the  impact  affected  region 
of  the  plate  (see  Fig.  B.2)  is  defined  by  a circle  whose  origin  is  at  the 
calculated  point  of  plate/fragment  collision  (maximum  plate/fragment  overlap) . 
The  effects  of  the  impact  are  assumed  to  travel  at  the  elastic  longitudinal 


wave  speed  so  that  the  radius  of  the  circle,  Leff, 
distance  traveled  in  the  time  step.  At, 


can  be  defined  as  the 


(B.16) 


where  E,  V,  and  pQ  are  Young's  modulus,  the  Poisson  ratio,  and  the  mass  density 
of  the  plate  material.  Those  plate  nodes  which  fall  within  this  circular  region 
are  the  impact-affected  nodes.  Other  estimates  for  L ^ could,  of  course, 
be  selected  and  used  (see  Card  70  m Subsection  5.2). 

The  impulse-momentum  relations  will  be  written  for  the  fragment  and  each 

impact-affected  node  in  the  transformed  coordinate  system  (x,y,N)  (with  N 

replacing  z defined  as  the  plane  of  impact  (see  Subsection  B.2.1).  Thus, 

components  of  velocity  and  impulse  normal  (N)  and  tangent  (x,y)  to  the  impact 
are  considered. 

For  present  purposes,  a cone-shaped  distribution"1"  of  impulse  (centered  at 
the  point  of  impact)  is  assumed  over  the  impact-affected  region  of  the  plate. 

+This  is  similar  to  the  procedure  used  by  Gerstle  [15,16,17]. 
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The  impulse  components,  p^  -,  p^-,  and  p^N  applied  at  node  i in  the  impact- 
affected  region  are  then  given  by 


K,mc0~ 


C <X; 

(0 


c *, 


= C OC; 


ft? 


pL 

ry 


N 


(B. 17a) 


is  | is  the  distance  from  the  ith  impact-affected  node  to  the  point  of 


where 

impact  (see  Fig.  B.2)  and  it  is  assumed  that  k nodes  fall  in  the  impact- 
affected  region.  The  components  p-,  p-,  p^  represent  the  total  impulse 
applied  to  the  plate  and  m an  equal  but  opposed  fashion  to  the  fragment. 

The  constant,  c,  is  determined  by  requiring  that  the  sum  of  the  nodal  impulse 
components  be  equal  to  the  total  imparted  impulse,  i.e. 

■\ 


Jt 

z < 

i = I 
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h 

/v 

p? 

/V 

l3 N 


(B. 17b) 


substituting  any  one  of  Eqs.  B. 17a  into  Eq.  B.17b  yields 


It  is  assumed  that  only  the  translational  components  of  nodal  velocity 
are  affected.  Denoting  by  primes  the  "after-impact"  translational  and 
rotational  (fragment  only)  velocities,  the  following  impulse-momentum 
relations  may  be  written  for  the  fragment  and  the  impact-affected  plate 
nodes: 
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x-Direction:  Translational 
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(B. 19a) 


plate  impact-affected  nodes 


fragment 


(B. 19b) 


plate  impact-affected  nodes 


fragment 


(B. 19c) 


plate  impact-affected  nodes 
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(B.19d) 


fragment 


where  m^,  I^,  and  r^  are  the  mass,  mass  moment  of  inertia,  and  radius  of  the 
fragment,  m is  the  (diagonalized  lumped)  translational  mass  of  node  i,  and 
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a^(-ca^)  is  the  proportionality  constant  associated  with  node  i.  The  known 

translational  velocity  components  of  node  i are  v.-,  v.-,  and  v and  the 

ix  ly  in 

known  translational  and  rotational  components  of  the  fragment  centroid  are 

vfx'  Vfy'  VfN7  Wfx'  ufy'  an<^  (these  are  the  transformed  nodal  and  fragment 
velocities  at  the  beginning  of  the  time  step).  Note  that  the  last  of  Eqs.  B.19d 
simply  indicates  that  there  is  no  mechanism  (i.e.,  friction,  etc.)  which  can 
change  the  angular  velocity  of  the  fragment  about  the  N axis.  Once  the  impulse 
components  p-,  p-,  and  pN  are  determined,  the  post-impact  (primed)  nodal  and 
fragment  velocities  can  be  calculated  from  Eqs.  B.19. 


Analytic  expressions  for  the  impulse  components  p-,  p-,  at  the  instant 
of  termination  of  the  impact  are  obtained  by  an  extension  of  a graphical 
technique  suggested  by  Goldsmith  [18 ] . The  motion  of  the  system  during  the 
impact  process  is  described  by  an  image  point,  P,  in  the  p-,  p-,  p^  space 
(Fig.  B.3).  The  coordinates  of  P at  the  termination  of  the  impact  process 
then  define  the  impulse  imparted  during  impact. 

The  relative  velocity  of  sliding.  S’,  and  the  relative  velocity  of 
approach.  A1 , between  the  impact-affected  plate  nodes  and  the  fragment  at 
the  point  of  contact  can  be  defined  by 


S Cos  & = [ V — K CO.' 

L + x T T y 

S si*  & - \ Vp_  - r co  ' 
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(B. 20) 


where  9 is  the  angle  found  by  the  direction  of  sliding  with  the  x axis  (see 
Fig.  B.3).  Substituting  the  impulse-momentum  relations  (B.19)  into  Eqs.  B.20 
yields  relations  in  the  form 
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448 


where  A , S, , S_,  B.  , B_,  and  B_  are  given  by 
o 1 2 1 2 3 


Ji 
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It  should  be  noted  that,  as  defined,  and  B^  must  be  non-negative 


Also, 

the  relative  velocity  of  approach  at  the  instant  of  initiation  of  contact. 


Aq,  must  be  non-negative;  if  Aq  < 0,  the  plate  and  fragment  are  moving  apart 
and  no  collision  occurs.  If  or  are  positive,  the  fragment  slides 
initially  along  the  plate  segment;  this  sliding  is  assumed  to  occur  at  the 
value  of  limiting  friction. 

The  no- sliding  and  maximum-approach  conditions  identify  limiting 

conditions  during  the  collision  process.  From  the  first  two  of  Eqs.  B.21, 

it  is  seen  that  the  locus  of  no  sliding,  S’=0,  is  a straight  line  perpendicular 

to  the  p-  p-  plane,  which  intersects  the  p =0  plane  at: 
x y N 
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From  the  last  of  Eqs.  B.21,  the  locus  of  maximum  approach,  A’=0,  is  seen  to 
be  a plane  whose  r 
axis  at  the  point 


be  a plane  whose  normal  is  in  the  p^  direction.  The  plane  intersects  the  p^ 


F = — 

Pn  EL 


Finally,  the  line  of  no  sliding,  S'=0,  intersects  the  plane  of  maximum 
approach,  A'=0,  at  the  point  (see  Fig.  B.3): 

s,  ~ S.  ~ A. 


K = 
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B. 


^ = 


B, 


K = 


B. 


In  order  to  obtain  the  impulse  coordinates  p-  p-  p at  the  instant  of 

x y N 

termination  of  the  collision,  the  motion  of  the  image  point,  P,  in  p_  p_  p^ 
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space,  must  be  followed.  The  existence  of  a value  of  limiting  friction,  y, 
requires  that  the  first  stage  of  the  path  of  P be  governed  by  the  relations 
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cos  Q 
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Si n & 


(B. 23) 


This  condition  restricts  initial  motion  to  be  in  the  plane  formed  by  the 

line  S'=0  and  the  5 axis,  at  an  angle 

N 


ta. 


n JLA 


(B.  24) 


with  respect  to  the  p^  axis.  The  subsequent  motion  of  P will  first  Be 
defined  for  the  general  case  where  0<y<°°,  then  for  the  two  special  cases, 
y=0  (perfectly  smooth  contact  surfaces)  and  y=°°  (perfectly  rough  contact 
surfaces) . 


Case  I:  0<y«” 

First  the  friction  angle,  v,  is  defined  according  to  Eq.  B.24.  Next, 
the  angle  A formed  between  the  p^  axis  and  the  line  from  the  origin  to  the 
intersection  of  S'=0  and  A'=0  (see  Fig.  B.4)  is  defined  by 

— ta  n 

Initially,  the  image  point  moves  along  the  path  which  subtends  an  angle  V 
with  the  p^  axis.  Subsequent  motion  is  described  by  the  following  two 
subcases. 

Subcase  la;  y=tanV<tanA 

The  subsequent  motion  of  P is  shown  m Fig.  B.4a.  The  line  PqL  of 

initial  motion  intersects  the  plane  of  maximum  approach,  A'=0,  at  point  P1 

before  reaching  the  line  of  no  sliding,  S'=0.  The  intersection  point  P1 

represents  the  state  at  the  instant  of  termination  of  the  approach  period. 

This  is  followed  by  a restitution  period;  the  process  ceases  at  point  P' 

(path  P -P,-P'),  whose  coordinates  are 
o 1 


B. 


A.B, 


(B. 25) 
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(B.  25a) 


Subcase  lb;  u=tanV>.tanA 

The  subsequent  motion  of  the  image  point  P for  this  subcase  is 

illustrated  m Fig.  B.4b.  The  line  P L of  initial  motion  will  intersect 

o 

the  line  of  no  sliding,  S'=0,  first  at  the  point  P^  which  marks  the  end 
of  the  initial  sliding  phase.  The  image  point  P will  then  move  along  the 
line  of  no  sliding,  through  the  intersection  point  P^  with  the  plane  of 
maximum  approach,  A'=0.  This  is  followed  by  a restoration  period,  moving 


the  image  point 

to 

P' 

(path 

VP2' 
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The  final  impulse  coordinate 
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The  special  subcases  will  now  be  considered. 


Case  II:  yt=0  (perfectly  smooth  contact  surfaces) 

This  situation  is  a special  case  of  Subcase  la  in  which  line  PqL 
coalesces  with  the  pN  axis.  The  image  point  will  move  along  the  pN  axis 
through  the  plane  A'=0  so  that  after  a period  of  restoration,  the  final 
impulse  coordinate  values  are 
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Case  III;  u=°°  (completely  rough  contact  surfaces) 

The  motion  of  P is  similar  to  Subcase  lb  except  that  P moves  initially 

in  the  p = 0 plane  to  the  line  S'=0.  The  remaining  motion  along  the  line  of 
N 

no  sliding  to  the  end  of  impact  is  identical  to  Subcase  lb.  The  final  impulse 
coordinates  are  thus 
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(B. 28) 


Once  the  values  of  p-  p-,  and  p are  determined  from  Eqs.  B.25,  or  B.26, 

x,  N 

or  B.27,  or  B.28,  the  post- impact  plate  nodal  and  fragment  centroidal  velocity 
components  can  be  calculated  from  the  impulse-momentum  relations  (Eqs.  B.19). 
For  example,  the  normal  components  of  post- impact  velocity  would  be  calculated 
as 
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Similar  relations  are  found  for  the  x and  y components. 

It  should  be  noted  that  the  relations  in  this  subsection  have  been 

written  in  the  transformed  (x,y,N)  system.  When  the  procedure  is  linked  with 

the  dynamic  structural  response  calculations,  it  is  necessary  to  transform 

impact-affected  nodal  and  fragment  velocities  to  the  (x,y,N)  system  before 

calculation  of  p-,p-,  and  3 . After  calculation  of  the  post- impact  nodal 
x y N 

and  fragment  velocities,  these  quantities  will  be  transformed  back  to  the 
(x,y,z)  coordinate  system. 


B.2.3  Collision  Inspection/Interaction  Analysis  for  Cases  of  Single  and 
Double  Symmetry 

For  the  general  case  of  impact  on  a plate,  the  inspection  and  interaction 
analyses  discussed  m Subsections  B.2.1  and  B.2.2  must  be  applied.  In  some 
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of  these  problems,  the  computron  tunes  and  computer  core  storage  requirements 
can  become  excessive.  However,  in  a number  of  practical  problems,  the 
geometry  of  the  plate,  locations  of  plate/fragment  impact,  and  subsequent 
interaction  may  be  such  that  the  response  of  the  plate  (and  fragment)  will  be 
symmetric  with  respect  to  one  or  two  planes.  In  these  cases,  it  is  necessary 
to  model  only  one-half  (m  the  case  of  a single  symmetry)  or  one-quarter  (in 
the  case  of  a double  symmetry)  of  the  plate;  as  a result,  considerable  savings 
in  computation  time  and  computer  core  storage  can  be  realized. 

In  these  cases,  the  collision  inspection  is  simplified  and  the  collision 
interaction  analysis  must  be  modified  to  reflect  the  single-  and  double- 
symmetry conditions;  that  is,  the  resulting  plate  nodal  and  fragment  centroidal 
post-impact  velocities  obtained  from  the  symmetric  analysis  must  be  identical 
to  those  which  would  be  obtained  from  the  corresponding  analysis  of  the  whole 
plate.  Details  of  these  modifications  for  both  single  and  double  symmetry 
are  given  next. 

B.2.3.1  Inspection/Interaction  Analysis  for  Single  Symmetry 

Without  loss  of  generality,  the  following  two  cases  of  single  symmetry 
can  be  identified:  (1)  the  case  where  the  x-axis  (xz  plane)  is  the  line  of 

symmetry,  and  (2)  where  the  y axis  (yz  plane)  is  the  line  of  symmetry.  The 
case  where  the  x axis  is  the  line  of  symmetry  will  be  considered  first. 

In  order  that  the  x axis  be  a line  of  symmetry,  the  fragment  coordinates 
and  velocity  must  satisfy 


In  addition,  the  results  obtained  from  the  collision  interaction  analysis  must 
satisfy  Eqs . B.30  for  all  time.  The  collision  inspection  procedure  used  m 
the  general  case  is  also  used  here.  When  plate/fragment  impact  is  detected, 
a specialized  collision  interaction  analysis  is  followed. 

In  the  case  of  single  symmetry  (about  the  xz  plane)  each  impact  may  be 
considered  as  a single  impact  occurring  along  the  line  of  symmetry  at  location 
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(xc,o)  with  two  points  of  contact  located  symmetrically  with  respect  to  the 

line  of  symmetry  (i.e.  at  (x  ,y  ) abd  (x  ,-y  ))  as  shown  m Fig.  B.5a.  Once 

c c c c 

the  point  of  effective  impact  is  identified,  a coordinate  transformation  is 
defined  such  that  the  x axis  is  along  the  line  between  the  nodes  on  the  line 
of  symmetry  which  bound  the  point  of  effective  impact;  the  N coordinate  is 
then  defined  as  normal  to  the  line  connecting  these  nodes  (see  Fig.  B.5b). 

The  impact  interaction  analysis  is  then  performed  in  the  (x,y,N)  system. 

In  order  to  perform  the  impact  interaction  analysis  in  the  half-plate 
(HP)  model,  the  general  interaction  equations  for  the  whole-plate  (WP) 
presented  m Subsection  B.2.2  are  first  reduced  to  the  case  of  symmetry  about 
the  x axis.  Denoting  by  a superscript  "B"  those  plate  nodes  falling  on  the 
boundary  (line  of  symmetry)  and  by  "I"  those  nodes  falling  in  the  interior 
of  the  plate,  and  noting  that  p^  must  be  zero  by  symmetry,  the  impulse- 
momentum  equations  may  be  written 
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ith  plate  boundary  node 


ith  plate  interior  node 


The  impact  interaction  constants  (Aq,S^,S2,  — ) will  be  given  by 

— S,  9 ~ + ir  co  8 8 I X "1 
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The  impulse  coordinates  p-  and  p^  can  be  obtained  from  Cases  I through  III 

in  Subsection  B.2.2  by  substituting  S2=0  and  by  noting  that  p^=0  for  all  cases. 

By  examining  the  resulting  equations,  it  is  seen  that  the  solutions  for  p- 

and  3 are  functions  of  the  ratios  A /B_  and  S,/B, . 

N o'  3 11 

It  is  required  to  perform  an  analysis  of  the  half -plate  model  and  obtain 
the  same  post- impact  velocities  for  the  fragment  and  impact-affected  plate 
nodes  as  m the  whole-plate  analysis.  An  examination  of  the  expressions  for 
and  Aq  (Eqs . B.32)  show  that 


(XL  = (X)wP 

provided  that  the  a_^  terms  are  multiplied  by  2.0  to  account  for  the  missing 
lower-half  interior  nodes  in  the  summation. 

Consider  now  the  parameters  B and  B in  Eqs.  B.32  term  by  term.  In  the 

■Q  ± J 

half-plate  analysis,  the  mass,  m , assigned  to  each  boundary  node  is  half 
that  of  the  corresponding  node  in  the  whole-plate  analysis,  so  that 


( 


2 


(B. 34) 


The  summations  over  the  interior  nodes  for  the  half-plate 
of  the  whole  plate  analysis  (interior  node  masses  will  be 
and  whole  plate  analysis)  since  only  the  upper  half  plate 
But  the  sum  will  increase  by  a factor  of  4 as  a result  of 


will  be  half  that 
the  same  for  half 
nodes  are  included, 
the  redefining  of 


(B. 34b) 


If  the  actual  fragment  mass,  m^,  and  mass  moment  of  inertia,  1^,  are  reduced 
by  a factor  of  2 for  half-plate  analyses,  then 
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As  a result  of  Eqs.  B.34,  the  parameters  (B  ) and  (B  ) for  the  half-plate 

X HP  3 HP 

are  related  to  the  equivalent  whole-plate  values  by 


(B,)„p  = 2 (B'X 

ft)HP  = 2 (bs) 


(B. 35) 


I HP  \~ZJWP 

so  that  a combination  of  Eqs.  B.33  and  B.35  yields 
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The  total  imparted  impulses  p-  and  p^  are  functions  of  the  ratios  given  m 
Eqs.  B. 36.  Therefore,  for  all  interaction  cases  where  the  x-axis  is  a line 
of  symmetry 


(f-L-i(f’) 


(B. 37) 


The  post-impact  plate  node  and  fragment  velocities  for  the  case  of 
symmetry  would  be  calculated  from  Eqs.  B.31  for  the  whole-plate  analysis. 
However,  it  can  be  easily  verified  that  in  the  half-plate  analysis  by 
redefining  (scaling)  a1,  m , and  I as  discussed,  and  as  a result  of  the 
boundary  plate  node  masses  being  (nO^  = anc^  t*ie  resu^t  liven  by 

Eq.  B.37,  all  scaling  factors  cancel  in  Eqs.  B.31.  As  a result,  the  post- 
impact plate  node  and  fragment  velocities  calculated  by  the  half-plate 
analysis  will  be  the  same  as  those  obtained  in  the  whole-plate  analysis. 
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The  relations  established  and  programming  logic  used  for  general  (whole- 
plate)  impact  interaction  calculations  can  be  used  for  the  present  single 
symmetry  case  in  which  the  x-axis  is  the  line  of  symmetry,  provided  the 
following  modifications  are  made: 

Scale  the  fragment  mass,  m^  = -jn^,  and  fragment  mass  moment  of 
inertia,  If  = •|rf,  prior  to  the  first  time  step. 

Calculate  all  as  if  performing  a whole  plate  analysis  (Eqs.  B.17a 
and  B.18) . 

Scale  corresponding  to  interior  nodes  by  cu  = 2a^. 

Set  S2  = 0. 

Solve  impact- interaction  problem  in  transformed  (x-N)  system,  using 
the  same  logic  as  in  the  whole  plate  analysis.  Note  that  the  nodal 
velocities  in  the  y-direction  must  remain  unchanged  and  the  fragment 
velocities  must  satisfy  Eqs.  B.30. 

A second  case  of  single  symmetry  is  one  in  which  the  y-axis  (yz  plane) 
is  the  line  of  symmetry.  In  this  case,  the  fragment  coordinates  and  velocity 
must  satisfy 


V,  =0  (B*38) 

+ x 

at  all  instants  of  time.  Each  impact  may  be  considered  as  a single  impact 

occurring  along  the  line  of  symmetry  at  location  (o,yc)  with  two  points  of 

simultaneous  contact  located  symmetrically  with  respect  to  the  line  of 

symmetry  (i.e.  at  (x  ,y  ) and  (-x  ,y  ))  as  shown  in  Fig.  B.6a,  and  directed 

c c c c 

normal  to  line  of  symmetry.  Once  the  point  of  effective  impact  is  identified, 
a coordinate  transformation  is  defined  such  that  the  y axis  is  along  the 
line  between  the  nodes  on  the  line  of  symmetry  which  bounds  the  point  of 
effective  impact;  the  N direction  is  defined  as  normal  to  the  line  connecting 
these  nodes  (see  Fig.  B.6b).  The  impact  interaction  calculations  are 
performed  m the  (x,y,N)  system. 


(1) 

(2) 

(3) 

(4) 

(5) 
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The  development  of  an  impact  interaction  analysis  for  this  case  of 

single  symmetry  follows  steps  similar  to  those  for  the  previous  single 

symmetry  case  (x-axis  being  the  line  of  symmetry) . However,  in  the  present 

case  where  the  y-axis  is  the  line  of  symmetry,  the  impulse  p^  must  be  zero 

by  symmetry;  also,  the  parameter  S1  (Eq.  B.22)  will  be  zero,  while  S2  will 

be  nonzero.  The  impulse  coordinates  p-  and  p will  be  obtained  from  Cases  I 

y N 

through  III  in  Subsection  B.2.2  by  substituting  S^=0  and  Px=0. 

It  can  be  shown  that  the  relations  established  and  the  program  logic  used 
for  the  general  impact  interaction  calculations  can  be  used  to  obtain  the 
post-impact  fragment  and  plate-node  velocities  for  the  present  single-symmetry 
case  (where  the  y-axis  is  the  line  of  symmetry)  provided  the  following 
modifications  are  made: 

Scale  the  fragment  mass,  mf  = -^m  , and  fragment  mass  moment  of 
1 i 2 t 

inertia,  1^  = —I f,  prior  to  the  first  time  step. 

Calculate  all  as  if  performing  a whole-plate  analysis  (Eqs.  B.17a 
and  B. 18) . 

Scale  a1  corresponding  to  interior  nodes  by  a*  = 2a1. 

i ii 

Set  S1=0. 

Solve  the  impact-interaction  problem  m the  transformed  (x,y,N) 
system,  using  the  same  logic  as  for  general  impact  cases.  Note 
that  nodal  velocities  in  the  x direction  must  remain  unchanged 
and  the  fragment  velocities  must  satisfy  Eqs.  B.38. 

B.2.3.2  Inspection/Interaction  Analysis  for  Double  Symmetry* 

In  cases  where  both  the  x and  y axes  are  lines  of  symmetry  and  where  the 
initial  and  all  subsequent  impacts  occur  at  the  center  of  the  plate,  double 
symmetry  exists  and  the  analysis  may  be  reduced  to  a quarter  of  the  plate 
structure;  in  the  present  case  it  is  assumed  that  the  first  quadrant  (see 
Fig.  B.7)  is  analyzed  and  that  the  origin  of  the  x,y  system  is  at  the  center 
of  the  original  whole  plate. 

In  the  case  of  double-symmetry,  the  following  assumptions/simplif ications 
can  be  made: 

* 

This  implies  either  frictionless  impact- interaction  or  a non-spinning 
spherical  fragment. 


(1) 

(2) 

(3) 

(4) 

(5) 
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(1)  Impact  is  treated  as  a single  impact  occurring  at  point  (0,0)  with 

4 points  of  simultaneous  contact,  i.e.  at  (x  ,y  ),  (-x  ,y  ), 

c c c c 

(-x  ,-y  ),  and  (x  ,-y  ) as  shown  in  Fig.  B.7. 
c c c c 

(2)  The  net  effective  normal  direction  for  the  single  impact  is  the 
global  z-axis. 

(3)  No  net  impulse  should  be  found  in  the  global  x or  y directions 
at  any  plate  nodes.  This  is  based  on  the  assumption  that  the 
impact-affected  regions  for  each  of  the  4 simultaneous  contact 
points  overlap  completely;  m this  case,  the  inplane  x and  y 
direction  impulses  must  cancel  exactly  at  all  impact-affected 
plate  nodes. 

(4)  As  a consequence  of  (3),  the  impulse  coordinates  p^  and  p^  will  be 
zero;  as  a result,  no  post- impact  velocity  changes  m the  x and  y 
direction  will  occur. 

(5)  The  fragment  coordinates  and  velocity  must  satisfy 
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at  all  time  instants. 


The  impact-interaction  calculations  are  performed  in  the  global  (x,y,z) 

coordinate  system  (i.e.  no  transformation  of  coordinates  is  required).  Since 

p and  p are  zero,  only  p need  be  considered;  again,  it  assumed  that  the 
x y z 

impulse  at  node  l is  given  by 


/V 


where  the  are  calculated  as  for  the  whole-plate  analysis.  Using  super- 
scripts B and  I to  refer  to  symmetry  boundary  and  interior  nodes,  respectively, 
and  noting  that  the  center  node  is  node  number  1,  the  impulse-momentum 
relations  for  the  double  symmetry  case  are  given  as 
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The  only  remaining  nonzero  interaction  parameters  are  A and  B (see 


Eqs.  B. 22)  and  are  given  by 
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The  impulse  p is  obtained  from  Cases  I through  III  of  Subsection  B.2.2  with 
z 

S^=S2=0,  and  reduces  to  the  same  expression  for  all  cases: 


l = 0 + €) 
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B, 


(B.43) 


It  should  be  noted  that  the  value  of  p^  is  independent  of  the  coefficient 

of  friction,  )J,  since  no  relative  sliding  takes  place. 

It  is  required  to  perform  the  interaction  on  the  quarter  plate  model 

(QP)  and  obtain  the  same  post-impact  velocities  as  would  be  obtained  in  the 

whole-plate  (WP)  analysis.  The  effects  of  the  quarter-plate  model  on  A and 

B B° 

B„  must  be  investigated.  The  whole  plate  model  would  include  each  a v . term 

3 I I 1 12 

twice  and  each  a v term  four  times  m A ; thus,  if  the  sums  in  A apply 
l iz  B I ° ° 

only  to  the  quarter-model,  the  and  terms  must  be  scaled  by 


(B.44) 


so  that 


(<)  - 

2( 

4! 

oo 

(A.) 

- / 

A) 

' 'QP 

\ 

v ° J 

WP 


(B. 45) 


460 


Consider  each  term  in  B. 
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The  scaling  of  = 4a*  will  increase  the  sum  by  a 

ii 


In  the  quarter  model,  the  sum  will  be  1/4  that  of  the  whole 
plate. 

factor  of  16,  so  that 
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For  the  quarter  model,  the  sum  will  be  1/2  that  of  the 
whole  plate. 


B B 

Because  of  the  scaling  a.  = 2a,  the  sum  will 

11  B 

increase  by  a factor  of  4.  Finally,  the  nodal  masses,  m^, 

generated  internally  for  boundary  nodes  will  be  1/2  of  the 

value  for  a whole  plate  analysis.  Thus, 
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In  the  quarter  model,  the  internally-generated  mass  at 
node  1 is  1/4  that  of  the  whole  plate  analysis,  so  that 
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(B. 46c) 
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To  achieve  consistency  with  Eqs.  B.46a  - B.46c,  the 
fragment  mass  used  in  the  quarter-plate  analysis  is 
redefined  to  be  one-quarter  the  actual  fragment  mass, 
so  that 


(B. 46d) 


As  a result  of  Eqs. 


B. 46  through  B.46d, 


(B3>qp 


for  the  quarter-plate  will  be 


(B . 47) 
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and  by  substituting  Eqs.  B.45  and  B.47  into  Eq.  B.43 


(B. 48) 


Compare  the  impulse-momentum  equations  used  to  obtain  post-impact 
velocities  for  the  whole-plate  analysis  and  for  the  quarter-plate  analysis: 


Whole-Plate  Analysis 


Quarter-Plate  Analysis 


The  scaling  factors  in  the  quarter-plate  analysis  cancel,  so  the  same  post- 
impact fragment  and  plate  nodal  velocities  would  be  found  using  either 
analysis. 

Thus,  the  relations  established  and  program  logic  used  for  the  general 
impact  interaction  calculations  can  be  used  m the  case  of  a quarter-plate 
analysis  provided  the  following  modifications  are  made: 


(1)  Scale  the  fragment  mass  by  m^  = ^m^. 

(2)  Calculate  all  as  if  performing  a whole  plate  analysis  (Eqs.  B.16 
and  B. 18) . 

B 

(3)  Scale  a corresponding  to  nodes  on  each  symmetry  boundary  by 

B r I II 

ai  = 2ai'  and  a±  corresponding  to  interior  nodes  by  = 4a^. 

(4)  Set  S -S2»0. 

(5)  Solve  the  impact- interaction  problem  m the  global  (x,y,z)  system 
(no  coordinate  transformation) , using  the  same  logic  as  for  the 
general  interaction  cases.  Note  that  nodal  velocities  in  the 

x and  y directions  will  remain  unchanged  and  that  the  fragment 
velocities  will  satisfy  Eqs.  B.39. 
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B.3  Timewise  Solution  of  the  Governing  Equations  of  Motion  for  the  Fragment 
and  the  Plate 


B.3.1  Motion  of  the  Fragment 


The  motion  of  the  rigid  spherical  fragment  is  given  in  terms  of  the 
motion  of  its  centroid.  Neglecting  the  effects  of  gravity,  the  governing 
equations  of  motion  for  the  fragment  are  given  by 
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Equations  B.49  represent  constant-velocity  motion.  Thus  the  Cartesian 

coordinates  of  the  fragment  at  time  t , can  be  obtained  from  the  Cartesian 

m+l 

coordinates  and  translational  velocities  of  the  fragment  at  time  t^  as 
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The  angular  position  of  the  fragment  at  time  t^+^  is  given  by 
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where  At=t  ,-t  is  the  time  increment, 
m+l  m 

The  fragment  velocities  used  in  Eqs.  B.50a  and  B.50b  are  the  current 


velocities  at  time  t 


m 


If  no  impact  occurs  during  the  time  t to  t , , 

m m+l 


these  will  be  the  same  velocity  values  as  for  the  previous  time  step. 

However,  if  impact  is  detected  during  the  time  t to  t , , the  fragment 

m m+l 

velocities  used  m Eqs.  B.50a  and  B.50b  will  be  the  updated  post- impact 
fragment  velocities  obtained  from  the  collision  interaction  analysis 
described  in  Subsection  B.2.2. 
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B.3.2  Motion  of  the  Plate 


The  governing  discretized  equations  of  motion  for  the  plate  structure 
have  been  derived  in  Appendix  A.  For  impact  response  problems,  no  prescribed, 
externally-applied  loads  are  present.  Thus,  the  equations  of  motion  of  the 
plate  for  plate/fragment  impact  response  predictions  are  obtained  from 
Eq.  A. 109  by  setting  F=0  and  are 

M -4-  K f*  = FNL  (B.  51) 

~ o A;  i.  ~ 

••  NL 

where  M,  K,  q*,  q*,  and  F are  as  defined  following  Eq.  A. 109. 

The  solution  of  Eq.  B.51  is  accomplished  by  applying  a direct  timewise 
integration  scheme,  which  results  in  a recurrence  relation  from  which  displace- 
ments can  be  calculated  at  each  discrete  time  instant.  The  (implicit)  Houbolt 
operator  is  used  (as  in  the  PLATE  program) . Following  the  steps  outlined  by 
Eqs.  A. 110  through  A. 114,  the  following  recurrence  relation  (corresponding  to 
Eq.  B.51)  is  obtained: 
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3 S+i 

at 

time 

t , , based 
m+l 

on  the  known  quantities  F^  , q*,  and  q^.  It  should  again  be  noted  that 
NXi  NL 

F , = F , (q*  ,);  however,  linear  extrapolation  of  this  quantity  is  used 

~m+l  ~m+l  ~m+l 

as  given  in  Eq.  A. 115  with  no  iteration. 

The  form  of  Eq.  B.52  is  particularly  suited  to  the  present  impact 

analysis.  During  a time  step  m which  plate/fragment  collision  occurs,  the 

nodal  velocity  vector  q^  is  updated  to  post-impact  nodal  velocities  according 

to  the  collision  interaction  analysis  described  in  Subsection  B.2.2. 

The  overall  solution  procedure  for  a time  step  is  as  follows.  Given 
. nl 

qS  q^,  and  Fm+1  (evaluated  by  linear  extrapolation,  and  based  on  q£) , a 

trial  displacement  vector,  q£+^,  is  evaluated  from  Eq.  B.52.  Based  on  these 

trial  nodal  displacements  (and  similar  trial  displacements  of  the  fragment) , 

the  collision  inspection  is  performed.  If  no  plate/f ragment  overlap  is  found, 

T 

the  trial  displacements  q^+^  are  the  correct  nodal  displacements.  If  plate/ 
fragment  overlap  is  detected,  the  collision  interaction  analysis  is  performed 
and  the  nodal  velocities  q^  are  updated  to  their  post-impact  value  (as  are  the 
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is  calculated 


fragment  velocities) . A new  trial  displacement  vector,  q^+^, 

from  Eq.  B.52  and  a collision  inspection  is  performed-  This  process  is 

repeated  until  no  plate/fragment  overlap  is  detected;  then  the  trial  displace- 
T 

ments,  q^+^,  are  said  to  be  the  actual  displacements. 

It  should  be  recalled  at  this  point  that  the  corrections  resulting  from 

a plate/fragment  impact  are  applied  at  the  beginning  of  the  time  step  during 

which  the  impact  occurs;  no  attempt  is  made  to  identify  the  precise  instant 

of  impact.  The  advantage  of  this  scheme  is  the  resulting  relative  simplicity 

of  the  inspection/ interaction  procedure;  few,  if  any,  "special  cases"  need  be 

considered.  Impulse-momentum  and  conservation  of  kinetic  energy  are  utilized 

to  calculate  the  instantaneous  post-impact  nodal  (and  fragment)  velocities 

which  are  applied  at  the  beginning  of  a time  step.  It  can  be  remarked  that 

this  interaction  analysis  neglects  all  other  system  forces/energies  in  the 

calculation  of  velocity.  However,  since  all  pertinent  system  energies  are 

included  in  Eqs.  B.51  and  B.52,  the  subsequent  motion  of  the  plate  as  a result 

of  impact  does  include  all  of  the  system  forces/energies. 

Once  the  displacements,  q^+^,  have  been  calculated,  the  nodal  velocities, 

q^+^  (needed  to  calculate  q^+^) ' can  evaluated.  If  no  impacts  occurred 

during  the  time  t to  t , , then  Eq.  A. 11  (repeated  here  for  convenience), 
m m+1 


• * 


2 At 


(3  f - 4 f*  + f * ) 

\ /Ny  “f  I /vW  ^ * / 


(B. 53) 


can  be  used;  recall  that  this  difference  formula  has  the  same  truncation 
error  as  the  Houbolt  expression  for  q^  . If  impact  has  occurred  during  this 
time  step,  a modified  expression  must  be  used: 


f 


•* 

M+t 


(B. 54) 


where  q^  is  the  vector  of  post- impact  (corrected)  nodal  velocities.  The 
derivation  and  possible  implications  of  the  use  of  Eq.  B.54  are  now  discussed. 

The  modified  velocity  expression  given  by  Eq.  B.54  can  be  derived  m a 
manner  analogous  to  the  starting  sequence  required  m the  PLATE  program 
(Eqs.  A. 116  - A. 118).  If  q^+^  ls  calculated  from  the  central  difference 
expression  for  q^: 
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The  unconditional  stability  of  the  Houbolt  operator,  represented  by 
Eqs.  A. 112  and  B.53,  is  well  established  for  linear  systems.  For  nonlinear 
systems,  this  operator  is  conditionally  stabled  For  cycles  in  which  no 
plate/fragment  impacts  occur,  the  Houbolt  operator  is  used;  whereas,  for 
cycles  m which  impact  occurs,  the  modified  Houbolt  operator,  represented  by 
Eqs.  A. 112  and  B.54,  is  used.  Numerical  experience  with  the  CIVM-PLATE 
program  shows  the  following  trends;  (1)  early  m the  timewise  response, 
the  impacts  are  widely  spaced  m time  and  the  Houbolt  operator  is,  in  effect, 
used  for  nearly  all  cycles,  (2)  however,  as  the  fragment  velocity  decreases 
and  nears  zero  (prior  to  rebound) , impacts  may  be  found  during  nearly  every 
cycle,  so  that  the  modified  Houbolt  operator  dominates.  In  view  of  the  fact 
that  a large  segment  of  timewise  response  could  be  governed  by  the  modified 
Houbolt  operator,  it  is  desirable  to  obtain  some  idea  of  the  stability 
characteristics  of  this  operator. 

The  discussion  of  stability  of  the  modified  Houbolt  operator  is  simpli- 
fied if  the  operator  can  be  shown  to  be  analogous  to  seme  other  operator. 
Consider  the  difference  expressions  corresponding  to  the  Generalized 
Acceleration  Method  [8,19]  as  written  here,  for  simplicity,  for  a one  degree- 
of- freedom  system: 


= Xm  +(At)  *m  + (At)Z[(z-P)  ? **+|  ] 


(B. 56a) 


*.♦,  = **+ 


(At)  [(l-Y)  xm+  Y x„,+|_ 


(B.  56b) 


where  8 and  y are  parameters  to  be  specified.  A variety  of  difference 
expressions  (both  explicit  and  implicit)  can  be  obtained  by  the  choice  of 
8 and  y.  For  the  present  case,  substitution  of  8=1/2  into  Eq.  B.56a  yields, 
after  rearranging, 

This  is  the  case  if  iteration  is  not  used  within  a given  time  step  At:  iteration 
is  not  used  here. 


466 


W-+  I 


2 ( *IM+|  - X™) 

2 

y 

(At)2 

At  w 

(B. 57) 


which  is  identical  to  Eq.  A. 112  of  the  Houbolt  operator.  Substituting 
Eq.  B.57  into  Eq.  B.56a,  with  Y=l/  yields  after  rearranging: 


X»h-h  = 


At 


M 


(B. 58) 


which  is  identical  to  the  velocity  expression  (Eq.  B.54)  of  the  modified 
Houbolt  operator.  Thus,  the  modified  Houbolt  operator  used  for  cycles  in 
which  impact  occurs  corresponds  to  a Generalized  Acceleration  Method  with 
3=1/2  and  Y=l.  For  linear  systems,  this  algorithm  can  be  shown  to  be 
unconditionally  stable  [19] ; however,  no  data  are  available  for  nonlinear 
systems. 

To  obtain  a comparison  of  the  Houbolt  and  modified  Houbolt  operators 
for  nonlinear  systems,  consider  the  one  degree-of-freedom  nonlinear  spring/ 
mass  system  with  a cubic  hardening  spring  governed  by  the  equation 

x + co  ( I + A xz ) X = o (b.  59a) 


subject  to  the  initial  conditions 

x C° ) = ° 


x (o)  = B 


(B.  59b) 


The  predicted  response  for  the  displacement  x versus  time  t for  the  case 
2 

0)  =100,  A=10,  and  B=60  is  shown  in  Figs.  B.8a  and  B.8b,  for  the  Houbolt  and 
modified  Houbolt  operators,  respectively.  Time  step  sizes  of  At=0.001,  0.01, 
and  0.02  are  used  in  each  case.  For  comparison,  the  time  step  bound  of  the 
central-difference  operator  for  the  linear  equivalent  of  the  above  system  is 


CD 

At  = 2/03  = 0.2. 

max  max 


The  following  observations  are  made  on  the  basis  of  comparison  of 
results  presented  in  Figs.  B.8a  and  B.8b.  For  the  case  At=0.02,  the  results 
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by  the  Houbolt  operator  begin  to  diverge,  whereas  the  results  by  the  modified 
Houbolt  operator  become  unstable  very  early  m the  timewise  response.  For 
the  case  At=0.001,  the  results  by  the  modified  Houbolt  operator  show  more 
artificial  damping  and  phase  shift  than  the  results  by  the  Houbolt  operator. 

For  the  case  At=0.01,  the  results  obtained  by  the  Houbolt  operator  are  m 
essential  agreement  with  the  results  for  At=0.001.  The  results  obtained  by 
the  modified  Houbolt  operator  illustrate  substantial  artificial  damping  and 
phase  shift  compared  with  the  results  for  At=0.001. 

The  result  of  primary  interest  is  stability.  It  appears  that  the 
modified  Houbolt  operator  may  require  a somewhat  smaller  time  step  size  than 
the  Houbolt  operator  to  ensure  stability.  Moreover,  the  question  of  stability 
is  complicated  by  the  fact  that  the  velocity  q^  in  Eq.  B.54  represents  the 
post- impact  velocity;  thus,  when  impacts  occur  each  cycle  (as  is  characteristic 
of  the  time  range  near  fragment  rebound) , a velocity  increment  is  imposed  at 
each  time  cycle.  Such  imposed  velocity  increments  if  sufficiently  large 
compared  with  the  actual  (pre-impact)  nodal  velocities,  could  cause  an 
instability.  Such  an  instability  has  been  observed  in  a test  case  of  the 
CIVM-PLATE  program;  unrealistic  and  severely  oscillatory  strain  values  in  the 
vicinity  of  the  impact  location  near  the  time  of  fragment  rebound  have  been 
observed.  By  reducing  the  time  step  size,  this  behavior  was  eliminated.  In 
general,  the  guidelines  suggested  in  Subsection  2.5  should  be  followed;  if 
the  above-mentioned  instability  is  found,  the  time  step  size  used  should  be 
reduced. 

B. 4 Collision  Inspection  and  Solution  Procedure 

The  collision  inspection  and  solution  procedure  used  m the  CIVM-PLATE 
program  will  now  be  discussed.  The  discussion  pertains  to  all  impact  cases 
including  the  special  symmetry  cases.  If  special  operations  are  required  for 
symmetry  cases,  they  are  noted  in  each  step.  Therefore,  unless  otherwise 
noted,  the  step  is  assumed  to  apply  to  all  cases.  For  the  sake  of  convenience, 
the  following  notation  (consistent  with  the  variables  input  m CIVM-PLATE)  is 
used  to  denote  the  various  symmetry  cases: 
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(1)  NSYM=0  refers  to  general  impact  cases. 

(2)  NSYM=1  and  IPSS=1  refers  to  the  single  symmetry  case  where  the 
x axis  is  the  line  of  symmetry. 

(3)  NSYM=1  and  IPSS=4  refers  to  the  single  symmetry  case  where  the 
y axis  is  the  line  of  symmetry. 

(4)  NSYM=2  refers  to  the  double- symmetry  case. 


The  following  procedure  indicated  in  the  flow  diagram  of  Fig.  7 may  be 
employed  to  predict  the  motions  of  the  plate  and  the  rigid  spherical  fragment, 
their  possible  collision,  the  resulting  collision- imparted  velocities 
experienced  by  each,  and  the  subsequent  motion  of  each  body: 

Step  1:  Let  it  be  assumed  at  time  t that  the  displacements  q£,  and  the 

displacement  increments  Aq£  are  known.  One  can  then  calculate  the 

strain  increments  As  at  all  Gaussian  stations  over  the  span  and 

~m 

through  the  thickness  of  the  plate. 


Step  2:  Using  a suitable  constitutive  relation  for  the  plate  material,  the 

stress  increments  Au  and  the  plastic  strain  increments  AeP  at 

~m  ~m 

corresponding  Gaussian  stations  within  each  finite  element  can  be 

determined  from  the  known  strain  increments  Ae  . This  information 

~m 

together  with  the  appropriate  linear  extrapolation  permits  determin- 

NL 

ing  the  equivalent  force  vector  F , in  Eq.  B.52. 

~m+l 


Step  3:  Solve  Eq.  B.52  for  the  trial  nodal  displacements,  q^+.,  and  calculate 

T T T ~ 

the  trial  fragment  positions  (x^,  y , zf)  +-j_  from  Eq.  B.50a.  Trial 

T T 

displacement  increments  Aq*  (=  q*  - q*)  are  then  calculated  for 

~ ~ ~ t t 

the  plate  nodes,  and  for  the  fragment  (e.g.  Ax^  = xf  “ xg  ) • 

m+1  m+1  m 

Since  impact  may  have  occurred  between  t^  and  t the  following 
sequence  of  steps  may  be  employed  to  determine  whether  or  not  a 
collision  occurred  and,  if  so,  to  calculate  the  corrected  post-impact 
plate- node  and  fragment  velocities  at  time  t^. 
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Step  4:  The  current  position  of  the  plate  nodes  and  fragment  centroid  are 

calculated  based  on  the  positions  at  t and  the  trial  displacement 

' m 

increments.  The  distance  (squared)  from  the  fragment  centroid  to 
each  plate  node  is  then  calculated.  The  minimum  of  these  distances 
and  the  corresponding  node  number  are  identified.  The  four  elements 
which  share  the  identified  node  will  be  examined  for  possible  plate- 
fragment  collision.  For  NSYM=1  only  those  nodes  along  the  line  of 
symmetry  are  checked  and  the  two  elements  sharing  the  identified 
node  are  subject  to  collision  inspection.  For  NSYM=2,  this  check  is 
not  made;  instead,  element  number  1 is  identified  as  the  only  element 
subject  to  collision  inspection. 

Step  4a:  Following  the  procedure  outlined  in  Subsection  B.2.1,  each  of  the 

elements  subject  to  collision  inspection  is  subdivided  into  two 

triangular  subregions.  Based  on  the  current  trial  nodal  and  fragment 

positions,  the  penetration  distance  dQ  (Eq.  B.10)  is  calculated  for 

each  triangular  region.  If  dQ>0,  it  is  determined  whether  or  not 

the  location  of  maximum  overlap  (x  ,y  ,z  ) from  Eq.  B.12  falls 

n n n 

within  the  triangular  inspection  region.  If  not,  dQ  is  assigned 
a negative  value  to  indicate  no  plate/fragment  overlap  within  the 
triangular  inspection  region. 

Step  4b;  A search  is  performed  to  identify  the  maximum  of  all  d values 

o 

calculated.  If  all  values  of  d are  less  than  or  equal  to  zero, 

o 

no  collision  has  occurred  and  Step  7 is  followed.  For  NSYM  = 1 

and  NSYM  =2,  if  any  of  the  d values  are  positive,  the  element 

o 

number  and  triangular  subregion  number  corresponding  to  the 
maximum  value  of  dQ  are  identified.  However,  for  NSYM  = 0,  an 
average  of  all  detected  points  of  overlap  is  used  as  the  location 
of  effective  impact.  The  following  sequence  of  steps  is  then 
followed  to  define  the  impact  interaction  parameters. 

Step  5;  The  plate/fragment  impact  is  assumed  to  occur  at  the  global 

coordinates  (x  ,y  ,z  ) where  the  maximum  d value  for  NSYM  = 1 
n n n o 

or  NSYM  = 2 is  calculated,  or  at  the  effective  point  of  impact 
for  NSYM  = 0.  However,  if  symmetry  options  are  in  effect,  these 
values  are  modified  according  to  the  discussion  in  Subsection 
B.2.3,  as  follows. 
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(1) 


If  NSYM=1  and  IPSS=1,  set  y =0. 

n 

(2)  If  NSYM=1  and  IPSS=4,  set  x =0. 

n 

(3)  If  NSYM=2,  set  x =0  and  y =0. 

n Jn 


Step  5a; 


Calculate  the  distance  from  (x  ,y  , z ) to  each  plate  node. 

n Jn  n r 


If 


this  distance  is  less  them  or  equal  to  Leff  (Eq.  B.15  or  otherwise 
specified) , the  node  is  identified  as  falling  within  the  impact- 
affected  zone  on  the  plate.  The  proportionality  factor  ct^  (Eq.  B.16) 
for  each  impact-affected  node  is  calculated  by 


(B.  60) 


where  |s  | is  the  distance  from  the  ith  impact- affected  node  to 

(x  ,y  ,z  ).  If  a symmetry  option  is  in  effect;  some  of  the  a!  must 
n n n i 

be  multiplied  by  a factor  f (see  Subsection  B.2.3).  Thus,  each  of 
the  impact-affected  nodes  is  inspected  and  the  following  values  of 
f apply: 

For  cases  where  NSYM=0,  no  scaling  is  necessary  (f=l) . 

For  cases  where  NSYM=1;  f=2  for  all  impact-affected  nodes  in 
the  interior  of  the  plate,  and  f=l  (no  scaling)  for  impact- 
affected  nodes  on  the  symmetry  boundary. 

For  cases  where  NSYM=2:  f=l  (no  scaling)  for  node  number  1 

(where  lines  of  symmetry  intersect) , f=2  for  all  impact- 
affected  nodes  (except  node  1)  falling  on  a line  of  symmetry, 
and  f=4  for  all  impact-affected  nodes  in  the  interior  of  the 
plate. 


After  all  have  been  calculated  (and  scaled  if  necessary) , the 
normalization  factor,  C,  is  calculated  from  Eq.  B.18,  and  the  impulse 
impulse  proportionality  factor  a ^ (see  Eqs.  B.19)  for  each  impact- 
affected  node  is  calculated  from 

C(  = C 0(.'  (B . 61) 

L L 
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Ste£_5b_:  For  NSYM-1  and  NSYM-2,  the  coordinate  transformation  matrix  T (Eq.  B.7) 

is  then  defined  corresponding  to  the  triangular  inspection  region  m 
which  the  maximum  plate/fragment  overlap  was  detected.  For  the  cases 
NSYM=1,  T is  shown  m Fig.  B.5b  (for  IPSS=1)  or  Fig.  B.6b  (for  IPSS=4) . 
For  the  case  NSYM=2,  no  transformation  is  required  (or,  for  consistency 
one  may  define  T to  be  the  identity  matrix,  I) . For  the  case  NSYM=0, 

T is  defined  by  Eq.  B.15j  if  more  than  one  impact  point  is  detected; 
however,  if  only  one  location  of  impact  occurs,  T is  evaluated  from 
Eq . B . 8 . 

Step  5c:  The  translational  velocity  components  (v  ,v  ,v  ) at  each  impact- 

* x.  y.  z. 

ill 

affected  node  are  extracted  from  the  nodal  velocity  vector  q^  (at 

time  t ) and  the  components  (v  ,v  ,v  ) of  velocity  in  the  trans- 
it x.  y.  z. 

11  i 

formed  coordinate  system  (normal  and  tangent  to  the  plane  of  impact) 

at  each  impact-affected  node  are  calculated  from  Eq.  B.7a,  using  T 

established  m step  5b.  The  fragment  translational  velocity 

components  (v^x,v  jV^)^  rotational  velocity  components 

(uk  ) at  time  t are  transformed  using  Eq.  B.7a  yielding 

fx  fy  fz_m  _ _ m _ _ 1 r 

components  (vfx, v , vfz)  and  tofx'^fy'ufz) • 

Step  5d:  The  impact  interaction  constants  S^,  S^,  Aq,  B^,  and  B^  are  now 

calculated.  For  the  cases  NSYM=0  and  NSYM=1,  Eqs.  B.22  are  used  to 
calculate  these  constants.  However,  when  NSYM=1  and  IPSS=1,  S must 
be  set  to  zero;  when  NSYM=1  and  IPSS=4,  S^  must  be  set  to  zero.  For 
the  case  of  NSYM=2,  only  Aq  and  B^  are  nonzero  and  are  calculated 
from  Eqs.  B.42. 

Step  5e:  The  value  of  Aq  is  checked.  If  Aq<0 , the  plate  and  fragment  are 

moving  apart  and  no  collision  occurs;  in  this  situation,  Step  7 is 
followed  next.  If  Aq>0 , the  next  steps  are  followed  to  calculate 
the  post- impact  nodal  and  fragment  velocities. 


Step  6:  The  total  impulse  imparted  to  the  impact-affected  nodes  and  to  the 

fragment  are  calculated,  and  post- impact  velocities  are  calculated 
according  to  the  following  steps. 
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Step  6a: 


Step  6b: 


Step  6c: 


The  components  p-,  p-,  p^  of  the  total  imparted  impulse  are  calcu- 
lated corresponding  to  Case  I,  II,  or  III  as  presented  m Subsec- 
tion B.2.2.  Note  that  if  NSYM=0,  the  only  nonzero  impulse  component 
is  p^  = p^  as  given  by  Eg.  B.43. 


The  collision- induced  velocity  differences  (i.e.  v^-  - v^-, 

vlx  ” vlx'  etc*^  t^ie  i^psct-affected  plate  nodes  and  the 

fragment  are  then  calculated  from  Eqs.  B.19  and  transformed  back 

to  the  global  coordinate  system  by  using  Eq.  B.7b.  This  yields 

velocity  increments  (Av  ,Av  . ,Av  .)  at  each  impact-affected  plate 

xi  yi  zi 

node,  and  (Av.  ,Av_  ,Av_  ) and  (Aw,.  ,Aw_  ,Aw_  ) for  the  fragment, 
fx  fy  fz  fx  fy  fz 


The  velocity  components  of  the  impact-affected  plate  nodes  and 
fragment  are  then  updated  to  their  post- impact  values  by 
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(B. 62a) 


(B. 62b) 


(B.62c) 


The  nodal  velocity  vector,  q^,  is  then  updated;  the  components  of 
translational  velocity  in  q^  corresponding  to  impact-affected  nodes 
are  replaced  by  the  post-impact  translational  velocity  components 
at  those  impact-affected  nodes  as  calculated  m Eq.  B.62a.  It 
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should  be  emphasized  that  the  nodal  velocities,  q^,  and  fragment 

velocities  (given  by  Eqs.  B.62b  and  B.62c)  at  time  t are  now  the 

m 

updated  post- impact  values.  It  should  also  be  noted  that  the 

effects  of  impact  occurring  in  the  range  t <t<t  , , have  been 
m—  - m+l 

accounted  for  as  updated  (modified)  nodal  and  fragment  velocities 
at  time  t (i.e.  at  the  beginning  of  the  time  step). 


Step  7:  The  plate  node  and  fragment  positions  are  reduced  back  to  their 

ip  T T T 

usma  t ' 
m 

for  the  fragment. 


values  at  time  t . using  Aq^+1  for  the  plate  nodes  and  (Ax^,Ay^,Azf )m+^ 


Step  8;  If  no  collision  has  been  detected.  Step  9 is  followed  next.  If  a 

plate/fragment  collision  has  occurred,  new  trial  nodal  and  fragment 

displacements  must  be  calculated  (now  including  the  post-impact 

nodal  and  fragment  velocities)  at  time  t , . Thus,  steps  3 through 

m+l 

7 are  again  followed.  This  "iteration"  process  will  continue  until 
no  plate/fragment  overlap  is  detected  or  until  a value  Aq<0  is 
found. 


Step  9;  This  step  is  reached  when  no  (further)  plate/fragment  collisions 

are  detected  for  the  current  time  cycle.  The  trial  plate  node  and 

fragment  displacements  become  the  actual  (corrected-f or- impact) 

displacements  and  the  fragment  and  plate  node  positions  at  time 

t , are  updated  based  on  the  actual  displacement  increments 
m+l 

<e-9-  4S*m+l  - 5S+1  - • 


Step  10;  The  nodal  velocity  vector  q^+^  (required  for  the  displacement 

solution  for  the  next  time  step)  is  then  calculated.  If  no  impacts 

have  occurred  during  the  time  step,  Eq.  B.53  is  used.  If  one  (or 

more)  impact  has  occurred  during  the  current  time  step,  Eq.  B.54 

is  used.  The  solution  for  the  current  time  step  is  now  complete; 

the  solution  for  the  next  time  step  (for  t „)  is  obtained  by 

m+2 

proceeding  to  step  1 (with  the  indices  appropriately  incremented) . 
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Steps  1 through  10  may  be  carried  out  for  as  many  time  steps  as 
desired  or  may  be  terminated  by  invoking  (and  implementing  in  CIVM-PLATE) 
the  use  of  a termination  criterion  such  as,  for  example,  the  reaching  of  a 
critical  value  of  strain  at  some  location  on  the  plate. 
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NODE  4 


Actual  Deformed  Reference 
Surface  for  Typical  Element 
in  the  Deformed  Plate 


Boundaries  of  Triangular 
Inspection  Regions  Used 
m the  Impact  Inspection 
Procedure 


NODES  1,  2,  3 ARE  TRIANGULAR  INSPECTION  REGION  NODES 
FIG.  B.l  CONVENTION  ADOPTED  FOR  TRIANGULAR  COLLISION  INSPECTION  REGIONS 
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Distribution  of  impulse 
assumed  to  be  cone-shaped 
centered  at  point  of 
impact. 


ith  impact-affected 
node 


Plate  reference 


surface 


FRAGMENT 


• Impact-affected  nodes  falling  within  circle  of  radius 
Lef£  centered  at  point  of  impact 

@ Point  of  impact  (maximum  plate/fragment  overlap) . 

s Distance  from  point  of  impact  to  ith  impact-affected 
node. 


FIG.  B.2  IDENTIFICATION  OF  IMPACT-AFFECTED  NODES  AND  ASSUMED  IMPULSE 
DISTRIBUTION 


FIG.  B 


P 


IMAGE  POINT  IN  p-, 
x 


P? 


p COORDINATES 
N 


3 DESCRIPTION  OF  IMPULSE  COORDINATE  SPACE  FOR  IMPACT  INTERACTION 
ANALYSIS 


'8 


(a)  For  v < A 


FIG.  B . 4 


THE  TRAJECTORY  OF  THE  IMPAGE  POINT  P IN  THE  3- , 3-,  3 PLANE 

x y N 

TO  DESCRIBE  THE  IMPULSE  STATE  AT  EACH  CONTACT  INSTANT 
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HALF  MODELED  FOR 
FINITE-ELEMENT  ANALYSIS 


• POINTS  OF  SIMULTANEOUS  PLATE/FRAGMENT  IMPACT 
(x)  POINT  OF  EFFECTIVE  IMPACT  ON  LINE  OF  SYMMETRY 


(a)  Finite-Element  Model  and  Location  of  Effective  Point  of  Impact. 


M = 


cos  /3 

o 


0 

1 

O 


sin  £ 

O 

cos  fi 


(b)  Coordinate  Transformation. 


Sin  £ = 

co*  fi  — 


x. 

4 


FIG.  B . 5 CONVENTIONS  AND  COORDINATE  TRANSFORMATION  WHEN  THE  X AXIS  IS 
A LINE  OF  SYMMETRY 
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/ 

/ 


FIG.  B 


QUADRANT  MODELED  FOR 


/ / 
/ / 


• POINTS  OF  SIMULTANEOUS  PLATE/FRAGMENT  IMPACT 
<g>  POINT  OF  EFFECTIVE  IMPACT 


7 CONVENTIONS  AND  MODELING  FOR  DOUBLE  SYMMETRY  IMPACT  CASES 
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DISPLACEMENT 


100  (1  + 10  x ) x = 0 


x (0)  = 0 


x (0)  = 60 


At  = 0.001 


O At  = 0.010 


At  = 0.020 
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